Ir para conteúdo

POWERED BY:

Arquivado

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

camarao.net

Me nesse erro....

Por , em ASP Clássico

Recommended Posts

camarao.net    0

camarao.net
Postado

:wacko: Pessoal, não estou conseguindo fazer rodar um simples código de inserção de registro... não sei o que há de errado nele, ele dá ume erro em tempo de execução, alguem poderia dar uma olhada????Segue o código:<body><form action="Cadastra_Produto.asp" method="post" name="Form_AddPro"> <table width="70%" border="0" align="center" cellpadding="2" cellspacing="0" bordercolor="#FF6600"> <tr valign="bottom" bgcolor="#FFF4E6"> <td height="25" colspan="2"> <div align="right"><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Adicionar Produtos</strong></font></div></td> </tr> <tr> <td width="29%"><div align="right"><font color="#999900" size="1" face="Verdana">Nome do Produto</font></div></td> <td width="71%"><div align="left"><font color="#999900" size="2" face="Verdana">  <input name="txtNome" type="text" size="35" maxlength="50"> </font></div></td> </tr> <tr> <td><div align="right"><font color="#999900" size="1" face="Verdana">Preço</font></div></td> <td><div align="left"><font color="#999900" size="2" face="Verdana">  <input name="txtPreco" type="text" size="10"> </font></div></td> </tr> <tr> <td><div align="right"><font color="#999900" size="1" face="Verdana">Figura</font></div></td> <td><div align="left"><font color="#999900" size="2" face="Verdana">  <input name="txtFigura" type="text" size="35"> </font></div></td> </tr> <tr> <td><div align="right"><font color="#999900" size="1" face="Verdana">Categoria</font></div></td> <td><div align="left"><font color="#999900" size="2" face="Verdana">  <input name="txtCategoria" type="text" size="35"> </font></div></td> </tr> <tr> <td><div align="right"><font color="#999900" size="1" face="Verdana">Breve Derscrição </font></div></td> <td><div align="left"><font color="#999900" size="2" face="Verdana">  <textarea name="txtDescr_Breve" cols="50"></textarea> </font></div></td> </tr> <tr> <td><div align="right"><font color="#999900" size="1" face="Verdana">Descrição Completa </font></div></td> <td><div align="left"><font color="#999900" size="2" face="Verdana">  <textarea name="txtDescr_Total" cols="50" rows="10"></textarea> </font></div></td> </tr> <tr> <td><div align="right"><font color="#999900" size="1" face="Verdana">Status</font></div></td> <td><div align="left"><font color="#999900" size="2" face="Verdana">  <select name="sltStatus"> </select> </font></div></td> </tr> <tr> <td colspan="2" bgcolor="#FFF4E6"> <div align="center"></div> <div align="center"><font color="#999900" size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></div> <div align="center"><font color="#999900" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <input name="cmdLimpar" type="reset" value="Limpar"> <input name="cmdAdicionar" type="submit" value="Adicionar"> </font></div></td> </tr> </table></form></body></html>Agora o código ASP:<%nome = Trim(request.form("txtNome"))preco = Trim(request.form("txtPreco"))figura = Trim(request.form("txtFigura"))categoria = Trim(request.form("txtCategoria"))descr_breve = Trim(request.form("txtDescr_Breve"))descr_total = Trim(request.form("txtDescr_Total"))status = Trim(request.form("sltStatus"))'Abrir ConexãoSet Con = Server.CreateObject("ADODB.Connection")strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd/orange.mdb")Con.Open strCon%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE> New Document </TITLE><META NAME="Generator" CONTENT="EditPlus"><META NAME="Author" CONTENT=""><META NAME="Keywords" CONTENT=""><META NAME="Description" CONTENT=""></HEAD><BODY><%strSQL = "insert into Produtos (nome, preco, figura, categoria, "&_"descr_breve, descr_total, status) Values("&_" '"&Nome&"',"&cCur(Preco)&", '"&Figura&"', "&_" '"&Categoria&"', '"&Descr_Breve&"', "&_" '"&Descr_Total&"', "&Status&")"strSQL = "insert into Produtos (nome, preco, figura, categoria, descr_breve, descr_total, status) values ('"&Nome&"',"&cCur(Preco)&",'"&Figura&"','"&Categoria&"','"&Descr_Breve&"','"&Descr_Total&"','"&Status&"')Con.Execute strSQL%><table width="100%" height="282" border="0"> <tr> <td width="12%"> </td> <td width="77%"> </td> <td width="11%"> </td> </tr> <tr> <td> </td> <td bgcolor="#FFFFFF"><div align="center"><font color="#FF6600" size="2" face="Verdana">O Produto<%=nome%> foi adicionado com exito</font></div></td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr></table><A HREF="Cad_Pro.asp"><font color="#FF6600" size="1" face="Verdana">Adicionarmais produtos</font></A></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Qual é o erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

camarao.net    0

camarao.net
Postado

Desculpem o erro é:Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0409)Constante de seqüência não finalizada/ecommerce/Cadastra_Produto.asp, line 31, column 211strSQL = "insert into Produtos (nome, preco, figura, categoria, descr_breve, descr_total, status) values ('"&Nome&"',"&cCur(Preco)&",'"&Figura&"','"&Categoria&"','"&Descr_Breve&"','"&Descr_Total&"','"&Status&"')------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo.cunha    0

ricardo.cunha
Postado

Ué, é só finalizar a String com uma Aspas, assim:strSQL = "insert into Produtos (nome, preco, figura, categoria, descr_breve, descr_total, status) values ('"&Nome&"',"&cCur(Preco)&",'"&Figura&"','"&Categoria&"','"&Descr_Breve&"','"&Descr_Total&"','"&Status&"')" <- uma aspas deois do parenteses

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