Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

serpaulo

Erro no sql

Recommended Posts

E ai galera beleza, tem como vcs me ajudarem a localizar o erro desse codigo.Valeu<%nome=Request.Form("nome")email=Request.Form("email")idade=Request.Form("idade")cidade=Request.Form("cidade")estado=Request.Form("estado")comment=Request.Form("comment")Set Con = Server.CreateObject("ADODB.CONNECTION")Con.Open "osapostolicos1_visitas"Set RS = Server.Createobject("AdoDB.RecordSet")Set RS.ActiveConnection = ConRS.pagesize= 5SQL="Insert Into assinar (nome, email, idade, cidade, estado, comment) values ('" & nome & "','" & email & "','" & idade & "','" & cidade & "','" & estado & "','" & comment & "')"Set RS = Con.Execute(SQL)%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu, o erro é esseTipo de erro:Erro de compilação do Microsoft VBScript (0x800A0409)Constante de seqüência não finalizada/apostolica/Web/Guest/Incluir.asp, line 19, column 110SQL="Insert Into assinar (nome, email, idade, cidade, estado, comment) values ('" & nome & "','" & email & "',-------------------------------------------------------------------------------------------------------------^

Compartilhar este post


Link para o post
Compartilhar em outros sites

Essa pagina se chama incluir.asp, tenho um formulario em uma pagina com o nome assign.asp que manda o que foi digitado para essa pagina para gravar no access e depois exibir na pagina default.asp do livro de visitas.

 

O codigo da pagina incluir.asp é esse

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

 

<%

 

nome=Request.Form("nome")

email=Request.Form("email")

idade=Request.Form("idade")

cidade=Request.Form("cidade")

estado=Request.Form("estado")

comment=Request.Form("comment")

 

Set Con = Server.CreateObject("ADODB.CONNECTION")

Con.Open "osapostolicos1_visitas"

Set RS = Server.Createobject("AdoDB.RecordSet")

Set RS.ActiveConnection = Con

RS.pagesize = 5

 

SQL="Insert Into assinar (nome, email, idade, cidade, estado, comment) values ('" & nome & "','" & email & "',

'" & idade & "','" & cidade & "','" & estado & "','" & comment & "')"

Set RS = Con.Execute(SQL)

 

%>

 

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>Igreja Apostolica do Brasil</title>

</head>

 

<body>

 

</body>

</html>

 

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu pessoal eu ja consegui resolver o problema, agora nao estou me lembrando como eu faco para concatenar para mandar metade do codigo pra linha de baixo, o codigo ficou assim

 

 

<%

 

nome=Request.Form("nome")

email=Request.Form("email")

idade=Request.Form("idade")

cidade=Request.Form("cidade")

estado=Request.Form("estado")

comment=Request.Form("comment")

 

SQL = "insert into assinar (nome, email, idade, cidade, estado, comment) values ('" & nome & "','" & email & "'," & idade & ",'" & cidade & "','" & estado & "','" & comment & "')"

 

Set Con = Server.CreateObject("ADODB.CONNECTION")

Con.Open "osapostolicos1_visitas"

SET RS = Con.execute(SQL)

 

%>

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

usa o undescore

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.