<%
dim conn
dbname="midias.mdb"
strCon="DBQ=" & Server.MapPath(dbname) & ";Driver={Microsoft Access Driver (*.mdb)}"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon
Set objRS= Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 0
objRS.LockType = 3
strQ = "SELECT * FROM tabela1 order by nome"
objRS.Open strQ, objCon, , , &H0001
%>
<%
tudo=false
if Request.QueryString("d")="d" then
tudo=true
end if
cont=-1
response.write ("
")
do while not objrs.eof
mostra=false
if objrs("show")= "s" then
if tudo and objrs("tipo")="d" then
mostra=true
end if
if objrs("tipo")="c" then
mostra=true
end if
if mostra then
cont=cont+1
b=cont mod 5
if b = 0 then
response.write ("
")
end if
response.write ("
")
response.write ("")
response.write (" " & mid(objrs("nome"),1,6))
end if
end if
objrs.movenext
loop
%>