Filtro Impossível

iniciante_ASP · Março 24, 2007

Amigos

Estou tentando fazer uma consulta com 02 critérios em um banco de dados mas não está dando certo, gerando o erro abaiuxo:

Erro de tempo de execução do Microsoft VBScript error '800a000d'

Tipos incompatíveis: '[string: "SELECT * FROM Automo"]'

/webpub/Pesquisa_veiculos.asp, line 38

Não sei o que está acontecendo. Quando tiro AND Marca = "Carro" a consulta funciona porém não filtra por marca de carros.

Alguém pode me ajudar a decascar esse pepino?

<%

Tipo = request.form("Tipo")

Estados = request.form("Estados")

Cidades = request.form("Cidades")

Carro = request.form("Veiculos")

%>

<%

set expedientes = Server.CreateObject("ADODB.Recordset")

Sql_expedientes = "SELECT * FROM Expedientes WHERE Cidade = '"& Cidades &"'"

expedientes.open(sql_expedientes), banco

%>

<tr>

</table>

<%

While NOT Expedientes.EOF

Set Veiculos = Server.CreateObject("ADODB.Recordset")

Sql_Veiculos = "SELECT * FROM Automoveis WHERE Loja = " & expedientes("ID") AND Marca = "Carro"

Veiculos.open(sql_Veiculos), banco

i=0

Response.write "<tr bgcolor='#bfc6b6'><td width='620' height='2' align='center' colspan='9' bgcolor='Black'></td></tr>"

Response.write "<tr bgcolor='#bfc6b6'>"

Response.write "<td width='620' align='center' height='20' colspan='9'><p align='Left'><b>Revenda: " & Expedientes("razaosocial") & "</b></td>"

Response.write "</tr>"

Response.write "<tr bgcolor='#bfc6b6'><td width='620' height='2' align='center' colspan='9' bgcolor='Black'></td></tr>"

Response.write "<tr bgcolor='#bfc6b6'><td width='620' height='5' align='center' colspan='9' bgcolor='#FFFFFF'></td></tr>"

While NOT Veiculos.EOF

Response.write "<tr bgcolor='#DBE3D0'>"

Response.write "<td width='100' align='center' height='15'>"

Response.write "<form name='Detalhe_revendas' method='post' action='Detalhe_Veiculo.asp' target=_blank>"

Response.write "<input type='submit' name='Submit' value='" & Veiculos("Veiculo") & "' style='font-family: tahoma; color: black; background-color: #DBE3D0; border-width: 0 '></td>"

Response.write "<td width='3' align='center' bgcolor='#FFFFFF' height='15'> </td>"

Response.write "<td width='30' align='center' height='15'><font face='Tahoma' size='2'>" & Veiculos("Ano") & "</font></td>"

Response.write "<td width='3' align='center' bgcolor='#FFFFFF' height='15'> </td>"

Response.write "<td width='60' align='center' height='15'><font face='Tahoma' size='2'>" & Veiculos("cor") & "</font></td>"

Response.write "<td width='3' align='left' bgcolor='#FFFFFF' height='15'> </td>"

Response.write "<td width='348' align='left' height='15'><font face='Tahoma' size='2'>" & Mid(Veiculos("Descricao"),1,40) & "...</font></td>"

Response.write "<td width='3' align='center' bgcolor='#FFFFFF' height='15'> </td>"

Response.write "<td width='70' align='center' height='15'><font face='Tahoma' size='2'>" & Veiculos("preco") & "</font></td>"

Response.write "<input type='hidden' name='Id_Loja' value='id'>"

Response.write "<input type='hidden' name='Id_Carro' value='id'>"

Response.write "</form>"

Response.write "</tr>"

i=1+1

Veiculos.movenext

IF not Veiculos.eof THEN

Response.write "<tr bgcolor='white'>"

Response.write "<td width='100' align='center' height='15'>"

Response.write "<form name='Detalhe_revendas' method='post' action='Detalhe_Veiculo.asp' target=_blank>"

Response.write "<input type='submit' name='Submit' value='" & Veiculos("Veiculo") & "' style='font-family: tahoma; color: black; background-color: white; border-width: 0 '></td>"