Alberto Mota Postado Abril 12, 2010 Denunciar Share Postado Abril 12, 2010 Prezados colegas, criei num form um campo para se digitar o capital social e atraves desse valor ser encontrado uma aliquotaMas da um erro:Erro de compilação do Microsoft VBScript (0x800A0401)Fim da instrução esperado/omega/verificanovo.asp, line 5, column 61SQL = "SELECT * FROM verifica WHERE ParcelaI < Request.form("txtcapital") And ParcelaFinal > Request.form("txtcapital")"Segue o script. Desde já agradeço<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Set conntemp = Server.CreateObject("ADODB.Connection") conntemp.Open Application("Conecta_bd")SQL = "SELECT * FROM verifica WHERE ParcelaI < Request.form("txtcapital") And ParcelaFinal > Request.form("txtcapital")"et rsPedidos = conntemp.Execute(SQL)base = rsPedidos("Parcela")%> Link para o comentário Compartilhar em outros sites More sharing options...
0 rodrigotnoma Postado Abril 13, 2010 Denunciar Share Postado Abril 13, 2010 (editado) Bom dia.<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set conntemp = Server.CreateObject("ADODB.Connection") conntemp.Open Application("Conecta_bd") vCapital = Request.form("txtcapital") SQL = "SELECT * FROM verifica WHERE ParcelaI < '"&vCapital&"' And ParcelaFinal > '"&vCapital&"'" et rsPedidos = conntemp.Execute(SQL) base = rsPedidos("Parcela") %>Abços. Editado Abril 13, 2010 por rodrigotnoma Link para o comentário Compartilhar em outros sites More sharing options...
0 Alberto Mota Postado Abril 13, 2010 Autor Denunciar Share Postado Abril 13, 2010 Rodrigo, muito obrigado.Funcionou perfeitamente! Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Alberto Mota
Prezados colegas, criei num form um campo para se digitar o capital social
e atraves desse valor ser encontrado uma aliquota
Mas da um erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/omega/verificanovo.asp, line 5, column 61
SQL = "SELECT * FROM verifica WHERE ParcelaI < Request.form("txtcapital") And ParcelaFinal > Request.form("txtcapital")"
Segue o script.
Desde já agradeço
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set conntemp = Server.CreateObject("ADODB.Connection")
conntemp.Open Application("Conecta_bd")
SQL = "SELECT * FROM verifica WHERE ParcelaI < Request.form("txtcapital") And ParcelaFinal > Request.form("txtcapital")"
et rsPedidos = conntemp.Execute(SQL)
base = rsPedidos("Parcela")
%>
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados