<% 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 'feminino' ORDER BY cod asc" RS.Open strSQL if RS.EOF then response.write("Busca efetivada:") %> Infelizmente esta modelo não se encontra em nosso banco de dados.
<% end if %> <% Do While Not RS.EOF %>
<% = RS("nome") %>  
&foto=<% = RS("foto1") %>">.jpg" border="0" > &foto=<% = RS("foto1") %>"> <% = RS("objetivos") %>  

<% RS.MoveNext Loop %><% RS.close set RS = nothing %>