Ir para conteúdo

POWERED BY:

Arquivado

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

masterofdreams

Olha nois aqui outra vez...

Por , em ASP Clássico

Recommended Posts

masterofdreams    0

masterofdreams
Postado

Eu não estou consegindo fazer esse cadatro .alguém pode me dar uma luz..<html><head><title>TRIAGEM DE RUA</title></head><body><center><font face="Arial" size="4"><b>Formulário de Inclusão</b></h2></center><%If IsEmpty( Request.Form("submit") ) Then%><form method=post action="<%=Request.ServerVariables("script_name")%>"><table border=0 width="80%" align=center> <tr> <font face="Arial" size="2"> <input type=hidden name="Atendente" value="<%=session("nome_usuario")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Reclamante:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="Reclamante" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Circuito:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="Circuito" value="" size=8 maxlength=8 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">DDD+Telefone:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="Telefone" value="" size=10 maxlength=10 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Contato:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="Contato" value="" size=8 maxlength=8 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Estado:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <select size="1" name="Estado" style="{<font-family:Arial; font-size:12}"> <option value=""></option> <option value="AL">AL</option> <option value="CE">CE</option> <option value="PB">PB</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="SE">SE</option> <option value="BA">BA</option> <option value="PE">PE</option> <option value="PA">PA</option> <option value="MG">MG</option> <option value="ES">ES</option> <option value="MA">MA</option> <option value="PI">PI</option> <option value="AM">AM</option> </select> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Problema:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <select size="1" name="Problema" style="{<font-family:Arial; font-size:12}"> <option value=""></option> <option value="ALT PROTOCOLO">ALT PROTOCOLO</option> <option value="ALT VELOCIDADE">ALT VELOCIDADE</option> <option value="ALT CATEGORIA">ALT CATEGORIA</option> <option value="ALT DE IP">ALT DE IP</option> <option value="ALT DE PERCENTUAL">ALT DE PERCENTUAL</option> <option value="ALTPDEM">ALTPDEM</option> <option value="BUSCA ">BUSCA </option> <option value="CONTAS">CONTAS</option> <option value="CHAMADO TI">CHAMADO TI</option> <option value="DVI">DVI</option> <option value="ENTREGA DE CD">ENTREGA DE CD</option> <option value="ITCP">ITCP</option> <option value="INSADSL">INSADSL</option> <option value="MIGRAÇAO">MIGRAÇAO</option> <option value="MUDEXT">MUDEXT</option> <option value="MICROFILTRO">MICROFILTRO</option> <option value="RET BLOQ">RET BLOQ</option> <option value="RET FALELOCAL">RET FALELOCAL</option> <option value="RET MINHA LINHA">RET MINHA LINHA</option> <option value="RET MODEM">RET MODEM</option> <option value="RET ADSL">RET ADSL</option> <option value="REPARO">REPARO</option> <option value="SUBNUM">SUBNUM</option> <option value="SERINT">SERINT</option> <option value="SERV INTELIGENTES">SERV INTELIGENTES</option> <option value="TROCA DE VINCULADO">TROCA DE VINCULADO</option> <option value="TRAAS">TRAAS</option> <option value="RET BLOQ">RET BLOQ</option> <option value="" selected></option> <option value="" selected></option> </select> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Observacao:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <textarea name="Observacao" rows=15 cols=50 style="{<font-family:Arial; font-size:12}"></textarea> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Retencao:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=radio name="Retencao" value="Sim"> Sim<BR> <input type=radio name="Retencao" value="Não"> Não<BR> <BR> </td> </tr></table><center><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}"></center></form><%Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("Atendente")) <> "" AND Trim(Request.Form("Reclamante")) <> "" AND Trim(Request.Form("Circuito")) <> "" AND Trim(Request.Form("Telefone")) <> "" AND Trim(Request.Form("Contato")) <> "" AND Trim(Request.Form("Estado")) <> "" AND Trim(Request.Form("Problema")) <> "" AND Trim(Request.Form("Observacao")) <> "" AND Trim(Request.Form("Retencao")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\Intranet\notaonline.mdb;Driver={Microsoft Access Driver (*.mdb)};" ComandoSQL = "INSERT INTO notaonline (Atendente, Reclamante, Circuito, Telefone, Contato, Estado, Problema, Observacao, Retencao)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Atendente")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Reclamante")) & "'," ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("Circuito")) & "," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Telefone")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Contato")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Estado")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Problema")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Observacao")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Retencao")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing%> <font face="Arial" size="2"> <center><br>Os dados foram enviados com sucesso! <br><a href=""><b>Clique aqui</b></a> para continuar</font></center><% Else%> <font face="Arial" size="2"> <center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente <br><a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center><% End IfEnd If%></body></html>da erro na linha..[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement./triagem.asp, line 50 :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Parece que o erro está na sintaxe do INSERT.

 

Sintaxe:

"INSERT INTO tabela(campo) VALUES ('"&variavel&"')"

Tenta isso:

Atendente = Server.HTMLEncode(Request.FORM("Atendente"))
Reclamante = Server.HTMLEncode(Request.FORM("Reclamante"))
Circuito = Server.HTMLEncode(Request.FORM("Circuito"))
Telefone = Server.HTMLEncode(Request.FORM("Telefone"))
Contato = Server.HTMLEncode(Request.FORM("Contato"))
Estado = Server.HTMLEncode(Request.FORM("Estado"))
Problema = Server.HTMLEncode(Request.FORM("Problema"))
Observacao = Server.HTMLEncode(Request.FORM("Observacao"))
Retencao = Server.HTMLEncode(Request.FORM("Retencao"))


ComandoSQL = "INSERT INTO notaonline (Atendente, Reclamante, Circuito, Telefone, Contato, Estado, Problema, Observacao, Retencao)  VALUES ('"&Atendente&"','"&Reclamante&"','"&Circuito&"','"&Telefone&"','"&Contato&"','"&Estado&"','"&Problema&"','"&Observacao&"','"&Retencao&"')"

Da uma diminuída nessa codigo seu... ta grande e complicado :huh:

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