Ir para conteúdo
Fórum Script Brasil
  • 0

Qual é O Erro?

BRuckey

Perguntado por BRuckey,

 Share

Pergunta

BRuckey

BRuckey

Postado
Postado 

<%

	Set db = Server.CreateObject("ADODB.Connection")
db.open "DBQ="&server.mappath("bdados.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)}"

if session("logado") <> "true" then
response.redirect("erro.asp?erro=Acesso negado! Você precisar estar logado para acessar o fórum.")
end if


nomesf    = request.form("nomesf")
breve_descricao = request.form("breve_descricao")
codsf    = request.form("codsf")
artigot  	= request.form("artigot")
perguntat  	= request.form("perguntat")
data    = date
iconet    = request.form("iconet")
ultimavisitat  = "-"
ipt    = Request.ServerVariables("REMOTE_HOST")
assinatura  	= request.form("assinatura_confirm")


if iconet = "" then
iconet = "icones/5.gif"
end if


if assinatura = "" then
assinatura = "OFF"
end if
loginu = session("login")	

	SQL = "SELECT codu,loginu FROM tusuario WHERE loginu = '"&loginu&"'"
	Set rs = db.execute(SQL)

	if not rs.eof then


	perguntat = replace(perguntat,"<","")

	SQL1 = "INSERT into ttopico (codu,codsf,datat,artigot,breve_descricao,iconet,respondidot,perguntat,ultimavisitat,assinatura,visitas,ipt)"
	SQL1 = SQL1 & " VALUES ("

    SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("codu")) & ","
    SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("codsf")) & ","
    SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("datat")) & "',"
	SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("artigot")) & "',"
    SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("breve_descricao")) & "',"
    SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("iconet")) & "',"
    SQL1 = SQL1 'Não',"
    SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("perguntat")) & "',"
    SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("ultimavisitat")) & "',"
    SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("assinatura")) & "',"
    SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("visitas")) & "',"
    SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("ipt")) & ")"
    
	Set rs1 = db.execute(SQL1)
	response.redirect("topicos.asp?codsf="&codsf&"&nomesf="&nomesf&"")
	else
	response.redirect("erro.asp?erro=Seu tempo expirou! Logue-se novamente por favor.")
	end if
%>

cool.gif Se puderem me dar uma força valeu desde já!!!!!!!!!!!! biggrin.gif

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
BRuckey

BRuckey

Postado
  • Autor
Postado

<%

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

db.open "DBQ="&server.mappath("bdados.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)}"

if session("logado") <> "true" then

response.redirect("erro.asp?erro=Acesso negado! Você precisar estar logado para acessar o fórum.")

end if

nomesf    = request.form("nomesf")

breve_descricao = request.form("breve_descricao")

codsf    = request.form("codsf")

artigot   = request.form("artigot")

perguntat   = request.form("perguntat")

data    = date

iconet    = request.form("iconet")

ultimavisitat  = "-"

ipt    = Request.ServerVariables("REMOTE_HOST")

assinatura   = request.form("assinatura_confirm")

if iconet = "" then

iconet = "icones/5.gif"

end if

if assinatura = "" then

assinatura = "OFF"

end if

loginu = session("login")

SQL = "SELECT codu,loginu FROM tusuario WHERE loginu = '"&loginu&"'"

Set rs = db.execute(SQL)

if not rs.eof then

perguntat = replace(perguntat,"<","")

SQL1 = "INSERT into ttopico (codu,codsf,datat,artigot,breve_descricao,iconet,respondidot,perguntat,ultimavisitat,assinatura,visitas,ipt)"

SQL1 = SQL1 & " VALUES ("

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("codu")) & ","

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("codsf")) & ","

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("datat")) & "',"

SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("artigot")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("breve_descricao")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("iconet")) & "',"

   SQL1 = SQL1 'Não',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("perguntat")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("ultimavisitat")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("assinatura")) & "',"

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("visitas")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("ipt")) & ")"

   

Set rs1 = db.execute(SQL1) 'aqui tah o erro

response.redirect("topicos.asp?codsf="&codsf&"&nomesf="&nomesf&"")

else

response.redirect("erro.asp?erro=Seu tempo expirou! Logue-se novamente por favor.")

end if

%>

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

/webforum/postar2.asp, line 57

Como você pode ver o erro esta na parte em que eu mando executar a instrução (SQL1)

Se poder me ajudar!!!! Valeu!!!! biggrin.gif

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
Postado

Tire esse server.htmlencode da string sql

faça o tratamento dos campos antes de inseri-los

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

olá..

não sei se você já resolveu seu erro..

mas eu olhando assim.. só achei estranho o que esta em vermelho:

SQL1 = "INSERT into ttopico (codu,codsf,datat,artigot,breve_descricao,iconet,respondidot,perguntat,ultimavisitat,assinatura,visitas,ipt)"

SQL1 = SQL1 & " VALUES ("

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("codu")) & ","

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("codsf")) & ","

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("datat")) & "',"

SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("artigot")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("breve_descricao")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("iconet")) & "',"

   SQL1 = SQL1 'Não',"  

  SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("perguntat")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("ultimavisitat")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("assinatura")) & "',"

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("visitas")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("ipt")) & ")"

  

Set rs1 = db.execute(SQL1) 'aqui tah o erro

response.redirect("topicos.asp?codsf="&codsf&"&nomesf="&nomesf&"")

else

response.redirect("erro.asp?erro=Seu tempo expirou! Logue-se novamente por favor.")

end if

alterado:

SQL1 = "INSERT into ttopico (codu,codsf,datat,artigot,breve_descricao,iconet,respondidot,perguntat,ultimavisitat,assinatura,visitas,ipt)"

SQL1 = SQL1 & " VALUES ("

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("codu")) & ","

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("codsf")) & ","

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("datat")) & "',"

SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("artigot")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("breve_descricao")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("iconet")) & "',"

   SQL1 = SQL1 & "' Não',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("perguntat")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("ultimavisitat")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("assinatura")) & "',"

   SQL1 = SQL1 & "" & Server.HTMLEncode(Request.FORM("visitas")) & "',"

   SQL1 = SQL1 & "'" & Server.HTMLEncode(Request.FORM("ipt")) & ")"

  

Set rs1 = db.execute(SQL1) 'aqui tah o erro

response.redirect("topicos.asp?codsf="&codsf&"&nomesf="&nomesf&"")

else

response.redirect("erro.asp?erro=Seu tempo expirou! Logue-se novamente por favor.")

end if

fora isso.. parece tar tudo certo..

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...