%
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
%>
Fashion books serviço de criação de books de modelos fotograficos em São Paulo SP Preços e qualidade excelentes.como fazer um book
<%
strSQL = "SELECT * FROM perfis WHERE cod LIKE '%" & Request("cod") & "%'"
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
%>
Data do evento:
<%
response.write RS("nascimento")
%>