Jump to content


Roger São Paulo

Member Since 10/11/2008
Offline Last Active 12/11/2008, 17:05
-----

Topics I've Started

Não Consigo Inserir Dados Via Asp.

10/11/2008, 13:27

Olá a todos. Estou desenvolvendo em asp e como não tenho muita afinidade, estou tendo problemas. Fiz um form e para inserir dados num banco SQL server 7.0 usei o seguinte código:
<%
'Declarando as variáveis
Dim aucpf, aunome, auendereco, autelefone, aucidade, auestado
Dim RS, Conn
Dim SQLStmt
on error resume next
aucpf=request.QueryString("cpf")
aunome=request.QueryString("nome")
auendereco=request.QueryString("endereco")
autelefone=request.QueryString("telefone")
aucidade=request.QueryString("cidade")
auestado=request.QueryString("estado")

'Debugando variáveis
'response.Write(aucpf)
'response.Write(aunome)
'response.Write(auendereco)
'response.Write(autelefone)
'response.Write(aucidade)
'response.Write(auestado)

'String de conecção
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=xxxxxxx;UID=xxxx;PWD="";DATABASE=xxxxxxx"
Conn.open DSNtest

Set RS=server.createobject("ADODB.Recordset")
RS.open "Tbl_Servidores", conn,3,3

'SQL para inserir dados na tabela
SQLStmt = "INSERT INTO Tbl_Servidores(cpf,nome,endereco,telefone,)VALUES('"&aucpf&"','"&aunome&"','"&auendereco&"','"&autelefone&"')"
Set RS = Conn.Execute(SQLStmt)

'Fechando tabela e conecção
RS.close
Conn.close

'Para informar erros
if SQLStmt.errors.count >0 then
response.Write("Ocorreram erros nesta função")
else
response.Write("A função está OK")
end if
if conn.errors.count>0 then
response.Write("Ocorreram erros na conecção com o  banco de dados")
else
response.Write("O banco foi conectado com êxito")
end if
%>

Mas sempre dá esta mensagem:
Ocorreram erros nesta funçãoO banco foi conectado com êxito
Não consigo achar onde poderia estar este erro na função. Tentei debugar as variáveis usando o response.Write e estão carregando direitinho. O IIS também está bem configurado.
Aguardo alguém que possa ajudar e já vou agradecendo.

IPB Skin By Virteq