<%
'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.
Edição feita por: Alex Hiroshi, 22/11/2008, 22:32.
