<%
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
'dim teste
'teste= request("cod")
'response.write teste
%><%
strSQL = "SELECT * FROM perfis WHERE cod LIKE '%" & Request("cod") & "%'"
RS.Open strSQL
if RS.EOF then
response.write("Busca efetivada:")
%><%
end if %>
<%
Do While Not RS.EOF
%>
Fotos de dança e arte <% response.write RS("nome")%> Ensaio para danças em geral
book modelos mulheres danca do ventre dancas salao professoras foto de danca nacional" >
