Busca randomica

[asp.net 0]

Galera tenho o codigo abaixo, ele funciona beleza porem o que eu quero fazer é no caso dele cair na linha onde não encontrou registro nenhum ele chamar novamente a página.

 

<%

Dim busca_carros, busca_randomica, arr, aleatorio, x, fotominiatura

Obrecordset.CursorType = 3

busca_randomica="select * from tb_carro"

Obrecordset.Open busca_randomica

arr=array()

While not Obrecordset.EOF

'redimensionando o array em mais uma unidade

Redim preserve arr(Ubound(arr)+1)

'passando para o array mais uma variável do Obrecordset

arr(Ubound(arr))=Obrecordset("car_codigo")

'Movendo um elemento no recordset

Obrecordset.MoveNext

wend

Obrecordset.Close

if Ubound(arr)<0 then

'Aqui eu quero chamar novamente o script desta página.

Obrecordset.Open

else

x=Cint(Ubound(arr))

'response.Write(x) randomize()

aleatorio=Cint((rnd*x))

'response.Write(aleatorio)

 

busca_carros="select car_codigo, car_fotom, car_montadora, car_modelo, car_ano_modelo, car_preco, car_placa from tb_carro where car_codigo="&arr(aleatorio)

 

Obrecordset.Maxrecords=1

Obrecordset.Open busca_carros

if Obrecordset.BOF and Obrecordset.EOF then

response.Write("Sem veículos no momento")

else

'fotominiatura=Obrecordset("car_foto")&m

response.Write("<table width='100%'>")

response.Write("<td width='50%' align='right' valign='bottom'>")

response.Write("<a href="&"carro.asp?veiculo="&Obrecordset("car_codigo")&">")

If IsNumeric(Obrecordset("car_fotom")) then

response.Write("<img src='img_carros/nd_m.jpg'")

else

response.Write("<img src="&Obrecordset("car_fotom")&" border='0'>")

end if

response.Write("</a>")

response.Write("</td>")

response.Write("<td wdth='50%' valign='bottom'>")

response.Write("<a href="&"carro.asp?veiculo="&Obrecordset("car_codigo")&">")

response.write("<B>Carro</B> "&Obrecordset("car_montadora")&" "&Obrecordset("car_modelo")&"<BR>")

response.write("<B>Ano</b> "&Obrecordset("car_ano_modelo")&"<BR>")

response.Write("<B>R$</B> "&FormatNumber(Obrecordset("car_preco"),2)&"<BR>")

if IsNumeric(Obrecordset("car_placa")) then

response.Write("<font face='Tahoma' size='2'>Carro sem placa</font>")

else

response.write("<B>Placa<b> "&Ucase(Obrecordset("car_placa")))

end if

response.Write("</a>")

response.Write("</td></table>")

end if

end if

 

%>

[Salgado 4]

Cria uma função recursiva, abrindo o RecordSet e com um If para verificar se veio dados, se não veio é só chamar ela de novo!

[asp.net 0]

beleza.