<%
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 Dança ballet dança do Ventre Dancarinas bailarinas eventos dança de salão Book fotografico Foto
<%
strSQL = "SELECT * FROM perfis where sexo like 'dan' ORDER BY cod desc"
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 %>
.gif){kind=small}
.gif){kind=small}
