<% varCod = request.QueryString("Cod") %> <% if varCod = 1 then vartitulo = "" end if if varCod = 2 then vartitulo = "" end if if varCod = 3 then vartitulo = "" end if if varCod = 4 then vartitulo = "" end if if varCod = 5 then vartitulo = "" end if if varCod = 6 then vartitulo = "" end if if varCod = 7 then vartitulo = "" end if if varCod = 8 then vartitulo = "" end if if varCod = 9 then vartitulo = "" end if if varCod = 10 then vartitulo = "" end if if varCod = 11 then vartitulo = "" end if %> <% response.write varTitulo %>
<% sql = "select * from Imagens where CodSub =" & "'" & varCod & "'" & "order by Cod desc" call conecta(rs,sql,3) i = 1 '========================== '========================== while not rs.eof response.Write("") if i = 3 then response.Write("") i = 1 else i = i + 1 end if rs.movenext nReg = nReg + 1 wend call fecha(rs) %>
") response.Write("") response.Write("
" & rs("NomeFoto") & "



") response.Write("