Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

[Resolvido] Pagina de Consulta com erro

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

e ai gente beleza

 

esse é o meu codigo da pagina da consulta e está dando esse erro

<%@ Language=VBScript %>

<HTML>

<HEAD>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

</HEAD>

<BODY>

<title> Consultar Codigo do Vendedor Cadastrado </title>

<form name="frm1" Method="Post" action="">

<table align="center" border="0" width="35%">

<td bgcolor="while" width="33%"><font color="black"><select name="ds_name_campo" style="width"=100%">

<option value="">Select</option>

<option value="CodCliente">CodCliente</option>

<option value="RazaoSocial">RazaoSocial</option>

<option value="Fantasia">Fantasia</option>

<option value="CNPJ">CNPJ</option>

<option value="IE">IE</option>

<option value="Tipo">Tipo</option>

<option value="Potencial">Potencial</option>

<option value="Endereco">Endereco</option>

<option value="Complemento">Complemento</option>

<option value="Bairro">Bairro</option>

<option value="Municipio">Municipio</option>

<option value="Cep">Cep</option>

<option value="Estado">Estado</option>

<option value="Telefone">Telefone</option>

<option value="Celular">Celular</option>

<option value="HomePage">HomePage</option>

<option value="Cobranca">Cobranca</option>

<option value="Correio">Correio</option>

<option value="Anotacoes">Anotacoes</option>

</option>

</td>

<td bgcolor="White" width="33%"><input type="text" name="pesquisar" Size="20"></td>

<td bgcolor="While" width="33%"><input type="Submit" name="btn_pesquisar" value=" Pesquisar >>"></td>

 

 

</form>

</table>

</tr>

</td>

<P> </P>

 

</BODY>

</HTML>

 

 

<%

 

if Request.Form("ds_nome_campo") <> "" and Request.Form("Pesquisar") <> "" then

 

set objconexao=server.CreateObject("adodb.connection")

set objrecordset=server.CreateObject("adodb.recordset")

 

dim StrSQL

 

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

 

strconexao="DBQ=c:\vendas\db_vendedor.mdb"

strdriver="Driver={Microsoft Access Driver (*.mdb)}"

 

objconexao.Open strconexao & ";" & strdriver

 

objrecordset.Open "Consulta",objconexao,1,3,2

 

 

objconexao.Open Strconexao

 

StrSQL= "Select" * " &_

 

"From [Consulta] " &_

 

"WHERE " & Request.Form("ds_nome_campo") & " Like '%" & Request.Form("Pesquisar") & "&' "

 

 

objrecordset.Open StrSQL, objconexao,1,2,2

 

do until objrecordset.EOF

Response.Write objrecordset.Fields.item(0).value & "<br>"

Response.Write objrecordset.Fields.item(1).value & "<br>"

Response.Write objrecordset.Fields.item(2).value & "<br>"

Response.Write objrecordset.Fields.item(3).value & "<br>"

Response.Write objrecordset.Fields.item(4).value & "<br>"

Response.Write objrecordset.Fields.item(5).value & "<br>"

Response.Write objrecordset.Fields.item(6).value & "<br>"

Response.Write objrecordset.Fields.item(7).value & "<br>"

Response.Write objrecordset.Fields.item(8).value & "<br>"

Response.Write objrecordset.Fields.item(9).value & "<br>"

Response.Write objrecordset.Fields.item(10).value & "<br>"

Response.Write objrecordset.Fields.item(11).value & "<br>"

Response.Write objrecordset.Fields.item(12).value & "<br>"

Response.Write objrecordset.Fields.item(13).value & "<br>"

Response.Write objrecordset.Fields.item(14).value & "<br>"

Response.Write objrecordset.Fields.item(15).value & "<br>"

Response.Write objrecordset.Fields.item(15).value & "<br>"

Response.Write objrecordset.Fields.item(16).value & "<br>"

Response.Write objrecordset.Fields.item(17).value & "<br>"

Response.Write objrecordset.Fields.item(18).value & "<br>"

Response.Write objrecordset.Fields.item(19).value & "<br>"

 

objrecordset.MoveNext

 

loop

 

objconexao.close

set objconexao=nothing

set objrecordset=nothing

 

end if

 

 

%>

 

 

 

o nome do erro é

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0409)

Constante de seqüência não finalizada

/vendas/consulta_vendedor.asp, line 68, column 23

StrSQL= "Select" * " &_

----------------------^

 

como eu faço pra arrumar isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Tem uma aspa a mais antes do *

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Que bom

 

Abraços

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