<% Dim strConexao strConexao = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("ikeda.mdb") Set Conexao = Server.CreateObject ("ADODB.Connection") Conexao.Open strConexao %> <% Dim rs Set rs = Server.CreateObject("ADODB.Recordset") Set rs.ActiveConnection = Conexao %> <% strSQL = "SELECT * FROM perfis WHERE sexo LIKE 'dan' ORDER BY cod desc" RS.Open strSQL if RS.EOF then response.write("Busca efetivada:") %> <% end if %> <% Do While Not RS.EOF %> &foto=<% = RS("foto1") %>" target=parent> <% = RS("nome") %>
<% RS.MoveNext Loop %><% RS.close set RS = nothing %>