dartvader

Pessoal boa noite,
Estou com um problema q nao consigo identificar no meu codigo asp.Fiz um codigo rondom so que ele repete 1 a 2 vezes a mesma foto do veiculo.Que linha de codigo posso botar nele para q impessa do mesmo repetir?

Segue codigo para analise.
agradeço.
Abraços

<%
Set rsV = abredb.Execute("SELECT * FROM veiculos ORDER BY data_cad ASC")

V1 = 0
V2 = 0
V3 = 0
V4 = 0
V5 = 0
V6 = 0

if not rsV.eof then
strVeiculos = rsV.getrows()
rsV.movefirst
Do While Not rsV.EOF
intCounter = intCounter + 1
rsV.movenext
Loop

rsV.MoveFirst
end if

cont = 1
if not rsV.eof then

for x = 1 to 3
if not rsV.eof then

Randomize
intID = Int(Rnd * intCounter)

Do Until intID <> V1 AND intID <> V2 AND intID <> V3 AND intID <> V4 AND intID <> V5 AND intID <> V6

Randomize
intID = Int(Rnd * intCounter)

Loop

if V1 <> 0 then
V1 = intID
elseif V3 <> 0 then
V3 = intID
else
V5 = intID
end if

%>

Ola amigos estou fazendo um script busca para meu site de classificados de automoveis.So que estou encontrando um problema .Nesta busca tera categorias(carro,motos,caminhao) e subcategoria(fiat,honda....) so que quando aperto o botao "procurar" ele me mostra todos os automoveis inseridos no site.Quero que ele me mostre somente o especificado na busca e nao todos como ele esta fazendo.Qual seria o problema? Peço a ajuda a alguem.
Segue embaixo codigo fonte para analise.
Abraços e obrigado

<%
Set categorias = abredb.Execute("SELECT * FROM categorias ORDER BY cod_categoria ASC")
%>
<SELECT class=formu style="WIDTH: 120px" size="1" onchange=java script:CarregaMarca(this.value); name=tipo>
<OPTION value="" selected>::: Categoria</OPTION>
<%
contaCATEGORIAS = 0
Do While not categorias.eof
%>
<OPTION value="<%=categorias.Fields("cod_categoria")%>"><%=TRIM(enDeCrypt(categorias.Fields("categoria"), pEncriptaChave))%></OPTION>
<%
contaCATEGORIAS = contaCATEGORIAS + 1
categorias.MoveNext
Loop %>
</SELECT>
<%
categorias.Close
Set categorias = Nothing
%> <br>
<SELECT class=formu style="WIDTH: 120px" size="1" onchange=java script:CarregaModelo(this.value); name=marca>
<OPTION value="0" selected>::: Marca</OPTION>
</SELECT>
<br>
<SELECT class=formu size="1" style="WIDTH: 120px" name=modelo>
<OPTION value=0 selected>::: Modelo</OPTION>
</SELECT>
<%
response.write "<script language=JavaScript>" & vbNewLine
response.write "<!-- //" & vbNewLine
response.write "var form = document.n_veiculo;" & vbNewLine
response.write "var tipolen = form.tipo.length;" & vbNewLine
response.write "var arrmarcas = new Array(tipolen);" & vbNewLine
response.write "for (i = 0; i <="& contaCATEGORIAS &"; i++) arrmarcas[i] = new Array();" & vbNewLine
response.write "arrmarcas[0][0] = new Option(':: Todas as marcas','0');" & vbNewLine
for jM = 1 to contaCATEGORIAS Step 1
response.write "arrmarcas["& jM &"][0] = new Option(':: Todas as marcas','0');" & vbNewLine
Next

Set rsMARCAS = abredb.Execute("SELECT * FROM marcas ORDER BY cod_categoria ASC")

minha_categoria = rsMARCAS.Fields("cod_categoria")
count = 0
Do While not rsMARCAS.eof
if rsMARCAS.Fields("cod_categoria") <> minha_categoria Then
minha_categoria = rsMARCAS.Fields("cod_categoria")
count = 0
end if
contador = contador + 1
response.write "arrmarcas["& rsMARCAS.Fields("cod_categoria") &"]["& count &"] = new Option('"& enDeCrypt(rsMARCAS.Fields("marca"), pEncriptaChave) &"','"& rsMARCAS.Fields("cod_marca") &"');" & vbNewLine
count = count + 1
rsMARCAS.MoveNext
Loop

response.write vbNewLine & "function CarregaMarca(index) {" & vbNewLine
response.write "var marca = form.marca;" & vbNewLine
response.write "for (m = marca.options.length; m > 0; m--) marca.options[m] = null;" & vbNewLine
response.write "if (index > 0) {" & vbNewLine
response.write "for (i = 0; i < arrmarcas[index].length; i++) {" & vbNewLine
response.write "marca.options[i+1] = new Option(arrmarcas[index][i].text, arrmarcas[index][i].value);" & vbNewLine
response.write "}" & vbNewLine
response.write "}" & vbNewLine
response.write "marca.options[0].selected = true;" & vbNewLine
response.write "}" & vbNewLine
response.write "CarregaMarca(form.tipo.value);" & vbNewLine

response.write vbNewLine & "function CarregaModelo(index) {" & vbNewLine
response.write "var modelo = form.modelo;" & vbNewLine
response.write "var marcalen = form.marca.length;" & vbNewLine
response.write "var arrmodelos = new Array(marcalen);" & vbNewLine
response.write "if (index > 0) {" & vbNewLine
response.write "for (i = 0; i <= "& contador &"; i++) arrmodelos[i] = new Array();" & vbNewLine
response.write "arrmodelos[0][0] = new Option(':: Todos os modelos','0');" & vbNewLine & vbNewLine
for j = 0 to contador Step 1
response.write "arrmodelos["& j &"][0] = new Option(':: Todos os modelos','0');" & vbNewLine
Next
Set rsMODELOS = abredb.Execute("SELECT * FROM modelos ORDER BY cod_marca ASC")

minha_marca = rsMODELOS.Fields("cod_marca")
countM = 0
Do While not rsMODELOS.eof
if rsMODELOS.Fields("cod_marca") <> minha_marca Then
minha_marca = rsMODELOS.Fields("cod_marca")
countM = 0
end if

response.write "arrmodelos["& rsMODELOS.Fields("cod_marca") &"]["& countM &"] = new Option('"& enDeCrypt(rsMODELOS.Fields("modelo"), pEncriptaChave) &"','"& rsMODELOS.Fields("cod_modelo") &"');" & vbNewLine
countM = countM + 1
rsMODELOS.MoveNext
Loop

response.write vbNewLine & "for (m = modelo.options.length; m > 0; m--) modelo.options[m] = null;" & vbNewLine
response.write "for (i = 0; i < arrmodelos[index].length; i++) {" & vbNewLine
response.write "modelo.options[i+1] = new Option(arrmodelos[index][i].text, arrmodelos[index][i].value);" & vbNewLine
response.write "}" & vbNewLine
response.write "}" & vbNewLine
response.write "modelo.options[0].selected = true;" & vbNewLine
response.write "}" & vbNewLine
response.write "CarregaModelo(form.marca.value);" & vbNewLine & vbNewLine

response.write vbNewLine & "function ValidaPesquisaRapida(formpesquisa) {" & vbNewLine
response.write "tipcodIx = form.tipo.selectedIndex;" & vbNewLine
response.write "marcodIx = form.marca.selectedIndex;" & vbNewLine
response.write "if (tipcodIx == 0) { alert('Selecione um tipo de automóvel.'); form.tipo.focus(); return false; } if (marcodIx == 0) { alert('Selecione uma marca para realizar a pesquisa.'); form.marca.focus(); return false; } }" & vbNewLine

response.write vbNewLine & "// -->" & vbNewLine & vbNewLine
response.write "</SCRIPT>" & vbNewLine
%>

Boa noite.Estou desenvolvenso um site em asp de classificados de automoveis.Tenho duas seções carros novos e carros usados.Na pagina de carros novos nao aparece nenhum veiculo, mas aparece o seguinte erro:

Encontrados: 6 automóveis estado novo ( 0 Km )

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/veiculos_novos.asp, line 568


JA quando entro na pagina de carros usados ela diz que foram Encontrados: 5 automóveis usado(s).
Aparece a foto e dados de tres deles e logo abaixo o erro:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/veiculos_usados.asp, line 568


Onde esta o problema.Q sera q estou fazendo de errado.Alguem pode me orientar? Uso banco de dados access.

Abaixo segue o script para estudarem.Obrigado

<%
fim = 1
end if
xx=0

TotalRS = CLng(rsVeiculos.RecordCount)
TotalPg = CLng(rsVeiculos.PageCount)

Do While not rsVeiculos.eof AND xx < rsVeiculos.pagesize
xx = xx + 1

if not rsVeiculos.eof then

Ncomb = rsVeiculos.Fields("veiculo_combustivel")
if Ncomb = 1 then
comb = "Gasolina"
elseif Ncomb = 2 then
comb = "Diesel"
elseif Ncomb = 3 then
comb = "Álcool"
elseif Ncomb = 4 then
comb = "Gás"
end if

Set rsVModelo = abredb.Execute("SELECT * FROM modelos WHERE cod_modelo LIKE '"& rsVeiculos.Fields("cod_modelo") &"'")
m_modelo = rsVModelo.Fields("cod_marca")

Set rsVMarca = abredb.Execute("SELECT * FROM marcas WHERE cod_marca LIKE '"& m_modelo &"'")
m_marca = enDeCrypt(rsVMarca.Fields("marca"), pEncriptaChave)

if rsVeiculos.Fields("cod_revendedora") <> "" then
Set rsVRevenda = abredb.Execute("SELECT * FROM revendas WHERE cod_revenda LIKE '"& rsVeiculos.Fields("cod_revendedora") &"'")
v_p_r = "<img src=""img_r/"& rsVRevenda.Fields("revenda_imagem") &""" border=""0"">"
cod_p_r = "loja="& rsVRevenda.Fields("cod_revenda")
else
v_p_r = "Particular"
cod_p_r = "proprietario="& rsVeiculos.Fields("cod_proprietario")
end if
%>