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 </td>
<td width="500"><input type="text"
size="55"
name="empresa"
value="<%=Session("empresa")%>"></td>
</tr>
<tr>
<td align="right"
width="100">Contato </td>
<td width="500"><input type="text"
size="55"
name="contato"
value="<%=Session("contato")%>"></td>
</tr>
<tr>
<td align="right"
width="100">Cargo </td>
<td width="500"><input type="text"
size="55"
name="cargo"
value="<%=Session("cargo")%>"></td>
</tr>
<tr>
<td align="right"
width="100">Endereço </td>
<td width="500"><input type="text"
size="55"
name="endereco"
value="<%=Session("endereco")%>"></td>
</tr>
<tr>
<td align="right"
width="100">Cidade </td>
<td width="500"><input type="text"
size="30"
name="cidade"
value="<%=Session("cidade")%>"></td>
</tr>
<tr>
<td align="right"
width="100">Região </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 </td>
<td width="500"><input type="text"
size="20"
name="postal"
value="<%=Session("cep")%>"></td>
</tr>
<tr>
<td align="right"
width="100">País </td>
<td width="500"><input type="text"
size="30"
name="pais"
value="<%=Session("pais")%>"></td>
</tr>
<tr>
<td align="right"
width="100">Telefone </td>
<td width="500"><input type="text"
size="20"
name="telefone"
value="<%=Session("telefone")%>"></td>
</tr>
<tr>
<td align="right"
width="100">Fax </td>
<td width="500"><input type="text"
size="20"
name="fax"
value="<%=Session("fax")%>"></td>
</tr>
<tr>
<td align="right" width="100">Home
Page </td>
<td width="500"><input type="text"
size="55"
name="homepage"
value="<%=Session("homepage")%>"></td>
</tr>
<tr>
<td align="right"
width="100">Mensagem </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" -->
Página desenvolvida por João Carlos
Lauriano.
Atualizada em: 04/06/2000