peron Postado Abril 29, 2004 Denunciar Share Postado Abril 29, 2004 Ta dando esse erro na minha hp:Microsoft VBScript compilation error '800a0409' Unterminated string constant /gravaip.asp, line 19 Set recordset = conexao.Execute("INSERT INTO IP_FULL(CONEXAO, ACESSO, IPADDRESS, CHAVE_CLIENT, HORA_INFOIP )O Código é esse:<html><head><title>Grava Ip!!</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%Dim conexaoDim recordsetDim ipSet conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Driver={Mysql}; Server=localhost; " &_ "Database=goalsol_IPAddress; UID=goalsol_peron; " &_ "PWD=perongoal"'if request.QueryString("conexao") <> "" or request.QueryString("ip") <> "" or request.QueryString("chave") <> "" then Set recordset = conexao.Execute("INSERT INTO IP_FULL(CONEXAO, ACESSO, IPADDRESS, CHAVE_CLIENT, HORA_INFOIP ) VALUES ('"& request.QueryString("conexao")&", "& request.QueryString("acesso")&", " & request.QueryString("ip")&", "& request.QueryString("chave")&","& date + time &")")'Não esquecer de fechar a conexãorecordset.CloseSet recordset = Nothingconexao.CloseSet conexao = Nothing'end if'Response.Redirect("mostraip.asp")%></body></html>O q está errado?? Por favor me ajudem!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mkboy Postado Abril 29, 2004 Denunciar Share Postado Abril 29, 2004 Tenta assim: theSQL = "insert into IP_FULL" theSQL = theSQL & "(CONEXAO, ACESSO, IPADDRESS, CHAVE_CLIENT,HORA_INFOIP)" theSQL = theSQL & " values ('"&CONEXAO&"','"&ACESSO&"','"&IPADDRESS&"','"&CHAVE_CLIENT&"','"&HORA_INFOIP&"')" Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Victor Postado Abril 30, 2004 Denunciar Share Postado Abril 30, 2004 Você não pega esse variavel com set assim como você fez:Set recordset = conexao.Execute("INSERT INTO IP_FULL(CONEXAO, ACESSO, IPADDRESS, CHAVE_CLIENT, HORA_INFOIP ) VALUES ('"& request.QueryString("conexao")&", "& request.QueryString("acesso")&", " Se você quiser, você pode fazer assim: recordset = conexao.Execute("INSERT INTO IP_FULL (CONEXAO, ACESSO, IPADDRESS, CHAVE_CLIENT, HORA_INFOIP ) VALUES ('"& request.QueryString("conexao")&", "& request.QueryString("acesso")&", "Agora só falta você chama essa viriavel, onde você vai querer usar... Se tiver mai alguma dúvida é só postar que nós te ajudaremos!!! []'sVictor Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
peron
Ta dando esse erro na minha hp:
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/gravaip.asp, line 19
Set recordset = conexao.Execute("INSERT INTO IP_FULL(CONEXAO, ACESSO, IPADDRESS, CHAVE_CLIENT, HORA_INFOIP )
O Código é esse:
<html>
<head>
<title>Grava Ip!!</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim conexao
Dim recordset
Dim ip
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Driver={Mysql}; Server=localhost; " &_
"Database=goalsol_IPAddress; UID=goalsol_peron; " &_
"PWD=perongoal"
'if request.QueryString("conexao") <> "" or request.QueryString("ip") <> "" or request.QueryString("chave") <> "" then
Set recordset = conexao.Execute("INSERT INTO IP_FULL(CONEXAO, ACESSO, IPADDRESS, CHAVE_CLIENT, HORA_INFOIP )
VALUES ('"& request.QueryString("conexao")&", "& request.QueryString("acesso")&", "
& request.QueryString("ip")&", "& request.QueryString("chave")&","& date + time &")")
'Não esquecer de fechar a conexão
recordset.Close
Set recordset = Nothing
conexao.Close
Set conexao = Nothing
'end if
'Response.Redirect("mostraip.asp")
%>
</body>
</html>
O q está errado?? Por favor me ajudem!!
Link para o comentário
Compartilhar em outros sites
2 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.