<%
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
%>
Fotos de homens book masculino fotografia artistica
<%
strSQL = "SELECT * FROM perfis WHERE sexo LIKE 'M' 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
%>