Estou utilizando o seguinte sistema para incluir os dados do form no meu bd sql:
incluir.htm
<HTML>
<HEAD>
<TITLE>Formulario</TITLE>
</HEAD>
<BODY>
<H1>FORM DE INCLUSÃO</H1>
<FORM METHOD="POST" ACTION="incluir.asp">
<TABLE>
<TR><TD>Nome:</TD>
<TD><INPUT NAME="Nome"></TD></TR>
<TR><TD>Endereço:</TD>
<TD><INPUT NAME="Endereco"></TD></TR>
<TR><TD>Cidade:</TD>
<TD><INPUT NAME="Cidade"></TD></TR>
<TR><TD>Estado:</TD>
<TD><INPUT NAME="Estado"></TD></TR>
<TR><TD>Cep:</TD>
<TD><INPUT NAME="Cep"></TD></TR>
</TABLE>
<BR><INPUT TYPE="SUBMIT" VALUE="Salvar Registro">
<BR><BR>
</FORM>
</BODY>
</HTML>
incluir.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>incluir2.asp - Exemplo</title>
</head>
<body>
<H1> Incluindo um novo cliente </H1>
<%
Dim con
Dim rst
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
' Abre a conexão com o banco de dados sql
con.Open "DRIVER={SQL Server};DATABASE=teste;Network=DBMSSOCN;server=server-bd;uid=teste;pwd=teste"
rs.Open "SELECT * FROM form", con, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Nome")= Request.Form("Nome")
rs("Endereco")= Request.Form("Endereco")
rs("Cidade")= Request.Form("Cidade")
rs("Estado")= Request.Form("Estado")
rs("CEP")= Request.Form("Cep")
rs.Update
Response.Write "<B>Usuário cadastrado</B>"
rs.Close
con.Close
%>
<BR>
</BODY>
Ele está me passando o seguinte erro:
Server Application Error
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance.
já dei uma olhada nas permissoes e estao todas corretas....
Pergunta
Bob Esponja
Estou utilizando o seguinte sistema para incluir os dados do form no meu bd sql:
incluir.htm <HTML> <HEAD> <TITLE>Formulario</TITLE> </HEAD> <BODY> <H1>FORM DE INCLUSÃO</H1> <FORM METHOD="POST" ACTION="incluir.asp"> <TABLE> <TR><TD>Nome:</TD> <TD><INPUT NAME="Nome"></TD></TR> <TR><TD>Endereço:</TD> <TD><INPUT NAME="Endereco"></TD></TR> <TR><TD>Cidade:</TD> <TD><INPUT NAME="Cidade"></TD></TR> <TR><TD>Estado:</TD> <TD><INPUT NAME="Estado"></TD></TR> <TR><TD>Cep:</TD> <TD><INPUT NAME="Cep"></TD></TR> </TABLE> <BR><INPUT TYPE="SUBMIT" VALUE="Salvar Registro"> <BR><BR> </FORM> </BODY> </HTML> incluir.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>incluir2.asp - Exemplo</title> </head> <body> <H1> Incluindo um novo cliente </H1> <% Dim con Dim rst Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set con = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") ' Abre a conexão com o banco de dados sql con.Open "DRIVER={SQL Server};DATABASE=teste;Network=DBMSSOCN;server=server-bd;uid=teste;pwd=teste" rs.Open "SELECT * FROM form", con, adOpenKeyset, adLockOptimistic rs.AddNew rs("Nome")= Request.Form("Nome") rs("Endereco")= Request.Form("Endereco") rs("Cidade")= Request.Form("Cidade") rs("Estado")= Request.Form("Estado") rs("CEP")= Request.Form("Cep") rs.Update Response.Write "<B>Usuário cadastrado</B>" rs.Close con.Close %> <BR> </BODY>Ele está me passando o seguinte erro:
já dei uma olhada nas permissoes e estao todas corretas....
Se alguém puder me ajudar, posta aí !!
Obrigado...!!!
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.