ASP executando Stored Procedures
© 2000 João Carlos Lauriano

Exemplos 2 - Inclusão

Parte 1 - Default.asp - Formulário para entrada dos dados

<% @LANGUAGE = VBScript %>

<%
Option Explicit
Response.Expires = 0
%>

<!-- #include file="adovbs.inc" -->

<%

Sub InicializaVariaveis
Session("empresa") = ""
Session("contato") = ""
Session("cargo") = ""
Session("endereco") = ""
Session("cidade") = ""
Session("regiao") = ""
Session("cep") = ""
Session("pais") = ""
Session("telefone") = ""
Session("fax") = ""
Session("homepage") = ""
End Sub

If ( UCASE(Request.QueryString("Tipo")) = "NOVO" or Request.QueryString("Tipo") = "") Then
InicializaVariaveis
End If

%>

<HTML>
<HEAD>
<TITLE>Inclusão na tabela Suppliers</TITLE>
</HEAD>

<BODY>

<script language="JavaScript">
<!--

// Verifica se os campos do formulario foram preenchidos corretamente
function submit_page(form)
{

if (CampoBranco(form.empresa) == true)
{
alert("Você esqueceu de preencher o nome da empresa.");
form.empresa.focus();
return false;
}

if (CampoBranco(form.contato) == true)
{
alert("Você esqueceu de preencher o nome do contato.");
form.contato.focus();
return false;
}

if (CampoBranco(form.cargo) == true)
{
alert("Você esqueceu de preencher o cargo do contato.");
form.cargo.focus();
return false;
}

if (CampoBranco(form.endereco) == true)
{
alert("Você esqueceu de preencher o endereco.");
form.endereco.focus();
return false;
}

if (CampoBranco(form.cidade) == true)
{
alert("Você esqueceu de preencher a cidade.");
form.cidade.focus();
return false;
}

if (CampoBranco(form.regiao) == true)
{
alert("Você esqueceu de preencher a regiao.");
form.regiao.focus();
return false;
}

if (CampoBranco(form.postal) == true)
{
alert("Você esqueceu de preencher o código postal.");
form.postal.focus();
return false;
}

if (CampoBranco(form.pais) == true)
{
alert("Você esqueceu de preencher o país.");
form.pais.focus();
return false;
}

if (CampoBranco(form.telefone) == true)
{
alert("Você esqueceu de preencher o telefone.");
form.telefone.focus();
return false;
}

} // fim da função submit_page()

// Verifica se campo preenchido
function CampoBranco(campo)
{
if(campo.value == "")
return true;
else
return false;
}

-->
</script>

<form action="Inclui.asp" method="POST" name="frmcadastro" onsubmit="return submit_page(this);">
<div align="center"><center><table border="0" cellpadding="0"
cellspacing="1" width="600">
<tr>
<td align="right" width="100">Empresa&nbsp</td>
<td width="500"><input type="text" size="55"
name="empresa" value="<%=Session("empresa")%>"></td>
</tr>
<tr>
<td align="right" width="100">Contato&nbsp</td>
<td width="500"><input type="text" size="55"
name="contato" value="<%=Session("contato")%>"></td>
</tr>
<tr>
<td align="right" width="100">Cargo&nbsp</td>
<td width="500"><input type="text" size="55"
name="cargo" value="<%=Session("cargo")%>"></td>
</tr>
<tr>
<td align="right" width="100">Endereço&nbsp</td>
<td width="500"><input type="text" size="55"
name="endereco" value="<%=Session("endereco")%>"></td>
</tr>
<tr>
<td align="right" width="100">Cidade&nbsp</td>
<td width="500"><input type="text" size="30"
name="cidade" value="<%=Session("cidade")%>"></td>
</tr>
<tr>
<td align="right" width="100">Região&nbsp</td>
<td width="500"><input type="text" size="30"
name="regiao" value="<%=Session("regiao")%>"></td>
</tr>
<tr>
<td align="right" width="100">Código Postal&nbsp</td>
<td width="500"><input type="text" size="20"
name="postal" value="<%=Session("cep")%>"></td>
</tr>
<tr>
<td align="right" width="100">País&nbsp</td>
<td width="500"><input type="text" size="30"
name="pais" value="<%=Session("pais")%>"></td>
</tr>
<tr>
<td align="right" width="100">Telefone&nbsp</td>
<td width="500"><input type="text" size="20"
name="telefone" value="<%=Session("telefone")%>"></td>
</tr>
<tr>
<td align="right" width="100">Fax&nbsp</td>
<td width="500"><input type="text" size="20"
name="fax" value="<%=Session("fax")%>"></td>
</tr>
<tr>
<td align="right" width="100">Home Page&nbsp</td>
<td width="500"><input type="text" size="55"
name="homepage" value="<%=Session("homepage")%>"></td>
</tr>
<tr>
<td align="right" width="100">Mensagem&nbsp</td>
<td width="500"><b><font color="#FF0000" face="Arial" size="2"><%=Session("mensagem")%></font></b></td>
</tr>

</table>
</center></div>

<p><center>
<input type="submit" name="cmdIncluir" value="Gravar">
<input type="reset" name="cmdReset" value="Limpar">
</center></p>

</form>

<script language="JavaScript">
<!--
document.frmcadastro.empresa.focus();
// -->
</script>

</BODY>
</HTML>

Parte 2 - Inclui.asp - Grava os dados do formulário na tabela Suppliers.

<% @LANGUAGE = VBScript %>

<%
Option Explicit
Response.Expires = 0

Dim objConn, objRS
Dim strConnection
Dim objCmd, objParam

Session("empresa") = Request.Form("empresa")
Session("contato") = Request.Form("contato")
Session("cargo") = Request.Form("cargo")
Session("endereco") = Request.Form("endereco")
Session("cidade") = Request.Form("cidade")
Session("regiao") = Request.Form("regiao")
Session("cep") = Request.Form("cep")
Session("pais") = Request.Form("pais")
Session("telefone") = Request.Form("telefone")
Session("fax") = Request.Form("fax")
Session("homepage") = Request.Form("homepage")

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DSN=Northwind;Database=Northwind;"
strConnection = strConnection & "UID=sa;PWD=;"
objConn.Open strConnection

Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.CommandText = "i_suppliers_000"
objCmd.CommandType = adCmdStoredProc
Set objCmd.ActiveConnection = objConn

Set objParam = objCmd.CreateParameter("@CompanyName",adVarChar, adParamInput, 80, Left(Session("empresa"),80))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@ContactName",adVarChar, adParamInput, 60, Left(Session("contato"),60))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@ContactTitle",adVarChar, adParamInput, 60, Left(Session("cargo"),60))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Address",adVarChar, adParamInput, 120, Left(Session("endereco"),120))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@City",adVarChar, adParamInput, 30, Left(Session("cidade"),30))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Region",adVarChar, adParamInput, 30, Left(Session("regiao"),30))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@PostalCode",adVarChar, adParamInput, 20, Left(Session("cep"),20))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Country",adVarChar, adParamInput, 30, Left(Session("pais"),30))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Phone",adVarChar, adParamInput, 48, Left(Session("telefone"),48))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@Fax",adVarChar, adParamInput, 48, Left(Session("fax"),48))
objCmd.Parameters.Append objParam

Set objParam = objCmd.CreateParameter("@HomePage",adChar, adParamInput, 25, Left(Session("homepage"),25))
objCmd.Parameters.Append objParam

Set objRS = objCmd.Execute( )

objConn.close
Set objRS = Nothing
Set objConn = Nothing
Set objParam = Nothing
Set objCmd = Nothing

Session("mensagem") = "Informações gravadas"

Response.Redirect "default.asp?Tipo=NOVO"

%>

<!-- #Include file="ADOVBS.INC" -->



[Volta] [Início]

Página desenvolvida por João Carlos Lauriano.
Atualizada em: 04/06/2000