Ir para conteúdo

POWERED BY:

Arquivado

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

Bayma

erro dizendo q falta fim da instrucao...!

Por , em ASP Clássico

Recommended Posts

Bayma    0

Bayma
Postado

<%

Set rs2 = Server.CreateObject("ADODB.Recordset")

 

 

sql2 = "INSERT INTO publicidade(nome) values('"&nome&"'),"

sql2 = sql2 & " link = '"&link&"'"

sql2 = sql2 & " imagem = '"ℑ&"',"

sql2 = sql2 & " clicks = "&clicks&","

sql2 = sql2 & " exposicao = '"&exposicao&"',"

sql2 = sql2 & " tipo = '"&tipo&"',"

sql2 = sql2 & " width = '"&width&"',"

sql2 = sql2 & " posicao = "&posicao&","

sql2 = sql2 & " data = '"&data&"',"

sql2 = sql2 & " dataFinal = '"&dataFinal&"',"

sql2 = sql2 & " maxExposicao = '"&maxExposicao&"',"

sql2 = sql2 & " status = '"&status&"',"

sql2 = sql2 & " texto = '"&texto&"',"

sql2 = sql2 & " exposicaoDia = '"&exposicaoDia&"',"

sql2 = sql2 & " exposicaoDiaLimite = '"&exposicaoDiaLimite&"',"

sql2 = sql2 & " dia = '"&dia&"'";

 

'Response.Write(sql2)

'Response.End()

 

rs2.CursorLocation = 2

rs2.CursorType = 1

rs2.LockType = 2

 

rs2.Open sql2, conexao,,, &H0001

 

Response.Redirect("Publicidade.asp")

 

%>

 

=====================================================

 

ERRO Fim da instrução esperado

 

O QUE TA ERRADO?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bayma    0

Bayma
Postado

<%

'Codifica a linguagem para PT-BR

Response.charset = "Iso-8859-1"

 

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("publicidade.mdb")

 

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br">

<head>

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

<title>Untitled Document</title>

</head>

 

<%

 

id = Request.QueryString("id")

 

Set rs = Server.CreateObject("ADODB.Recordset")

 

sql = "SELECT * FROM publicidade"

 

rs.CursorLocation = 2

rs.CursorType = 1

rs.LockType = 2

 

rs.Open sql, conexao,,, &H0001

 

rs.movefirst

 

%>

 

<%

 

nome = Request.Form("nome")

link = Request.Form("link")

imagem = Request.Form("imagem")

clicks = Request.Form("clicks")

exposicao = Request.Form("exposicao")

tipo = Request.Form("tipo")

width = Request.Form("width")

height = Request.Form("height")

posicao = Request.Form("posicao")

data = Request.Form("data")

dataFinal = Request.Form("dataFinal")

maxExposicao = Request.Form("maxExposicao")

status = Request.Form("status")

texto = Request.Form("texto")

exposicaoDia = Request.Form("exposicaoDia")

exposicaoDiaLimite = Request.Form("exposicaoDiaLimite")

dia = Request.Form("dia")

 

%>

 

<%

Set rs2 = Server.CreateObject("ADODB.Recordset")

 

 

sql2 = "INSERT INTO publicidade(nome) values('"&nome&"'),"

sql2 = sql2 & " link = '"&link&"'"

sql2 = sql2 & " imagem = '"ℑ&"',"

sql2 = sql2 & " clicks = "&clicks&","

sql2 = sql2 & " exposicao = '"&exposicao&"',"

sql2 = sql2 & " tipo = '"&tipo&"',"

sql2 = sql2 & " width = '"&width&"',"

'sql2 = sql2 & " height = '"&height&"',"

sql2 = sql2 & " posicao = "&posicao&","

sql2 = sql2 & " data = '"&data&"',"

sql2 = sql2 & " dataFinal = '"&dataFinal&"',"

sql2 = sql2 & " maxExposicao = '"&maxExposicao&"',"

sql2 = sql2 & " status = '"&status&"',"

sql2 = sql2 & " texto = '"&texto&"',"

sql2 = sql2 & " exposicaoDia = '"&exposicaoDia&"',"

sql2 = sql2 & " exposicaoDiaLimite = '"&exposicaoDiaLimite&"',"

sql2 = sql2 & " dia = '"&dia&"'";

 

'Response.Write(sql2)

'Response.End()

 

rs2.CursorLocation = 2

rs2.CursorType = 1

rs2.LockType = 2

 

rs2.Open sql2, conexao,,, &H0001

 

Response.Redirect("Publicidade.asp")

 

%>

 

 

 

</html>

 

=====================

 

ESSE EH O CODIGO TODO

Compartilhar este post

Link para o post
Compartilhar em outros sites

Giancarlo Braga    0

Giancarlo Braga
Postado

Ao invés desse monte de opções que você está usando vamos simplificar?

 

Ao invés disto:

rs2.CursorLocation = 2
rs2.CursorType = 1
rs2.LockType = 2

rs2.Open sql2, conexao,,, &H0001

Use isto:

set rs2 = conexao.Execute(sql2)

Abraço.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o erro ta na monstagem da sql

 

voce colocou ou tirou uma aspa que nao devia

 

descomente 'Response.Write(sql2) e poste aqui o que vier fica mais facil de achar o local errado

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito