<%
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
%>
<HTML><HEAD><TITLE>Fotos de crianças book infantil fotografia artistica album de fotografia bebe criancas recem nascidos. Recordação fotografo para salão de festas e buffet</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 6.00.2800.1400" name=GENERATOR>
<style type="text/css">
font {
size:8pt;
text-decoration: none;
color:#0033cc ;
}
A {size:8pt;
text-decoration: none;
color:#999999 ;
}
A:hover {
text-decoration: underline;
color:darkblue ;
}
TD {
FONT-SIZE: 12px; FONT-FAMILY: "Arial", "Helvetica", "sans-serif"
}
body{
FONT-SIZE: 12px; FONT-FAMILY: "Arial", "Helvetica", "sans-serif";
scrollbar-face-color: cccccc;
scrollbar-shadow-color: white;
scrollbar-highlight-color: f0f0f0;
scrollbar-3dlight-color: ffffff;
scrollbar-darkshadow-color: c0c0c0;
scrollbar-track-color: f0f0f0;
scrollbar-arrow-color: #ff00cc;
}
}
</STYLE></HEAD>
<BODY leftMargin=14 topMargin=0 onload=openandclose(1) marginwidth="0"
marginheight="0" bgcolor="#F9F9F9">
<%
strSQL = "SELECT * FROM perfis WHERE sexo LIKE 'K' ORDER BY cod desc"
RS.Open strSQL
if RS.EOF then
response.write("Busca efetivada:")
%>
<%
end if %>
<%
Do While Not RS.EOF %>
<b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">
<a href="ikedashowkids.asp?cod=<% = RS("cod") %>&foto=<% = RS("foto1") %>" target=parent>
<% = RS("nome") %>
</a><br>
</font></b>
<%
RS.MoveNext
Loop
%><% RS.close
set RS = nothing
%>
</BODY></HTML>