<% vbusca = request("busca") if vbusca = "0" then lista = "0#9" else lista = vbusca End if Session.LCID = 1046 %>

Lista por ordem ALFABÉTICA
<% Dim conn Set conn= Server.CreateObject("ADODB.Connection") conn.Open "DBQ=" & Server.MapPath("http://www.pagarporque.com.br/blog/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;" if vbusca = "0" then menor = "0" maior = "9" 'sql="select * from dvd where codArt = '" & vArtista & "' order by Artista" sql="select * from posts where Nome between '" &menor& "' and '" &maior& "' order by Nome" else sql="select * from posts where Nome like '" & vbusca & "%' order by Nome" end if set rsquery =conn.execute(sql) contador = 0 if rsquery.eof = 0 then response.write "

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write " Código Nome Categoria Transm Postagem

"

while not rsquery.eof
response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

" &rsquery("Codigo")& "

" &rsquery("nome")& "

" &rsquery("Categoria")& "

" &rsquery("Transmissao")& "

" &rsquery("Postagem")& "

"
response.write "" response.write ""

contador = contador + 1
rsquery.movenext
wend

conn.close

response.write "
"
response.write "Registro(s) localizado(s)"
response.write ": "
response.write contador
response.write "
"
else
%>

 

Nenhum Registro localizado como <%=vbusca %> em <%=mostra1 %>

<% End if %>







voltar