<% 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 %> Book Fotográfico Infantil - fotos de Crianças - Fotógrafo de Festas Buffet Infantil Brinquedos diversão salão de festas fotografia
<% 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 %>
Nascimento: <% response.write RS("nascimento") %>
Altura: <% response.write RS("altura") %>
Peso: <% response.write RS("peso") %>
Sapatos: <% response.write RS("calcado") %>

Book Virtual de <% response.write RS("nome") %>
&foto=<% = RS("foto1") %>">.jpg" border="1"> &foto=<% = RS("foto2") %>">.jpg" border="1"> &foto=<% = RS("foto3") %>">.jpg" border="1"> &foto=<% = RS("foto4") %>">.jpg" border="1"> &foto=<% = RS("foto5") %>">.jpg" border="1"> &foto=<% = RS("foto6") %>">.jpg" border="1">
&foto=<% = RS("foto7") %>">.jpg" border="1"> &foto=<% = RS("foto8") %>">.jpg" border="1"> &foto=<% = RS("foto9") %>">.jpg" border="1"> &foto=<% = RS("foto10") %>">.jpg" border="1"> &foto=<% = RS("foto11") %>">.jpg" border="1"> &foto=<% = RS("foto12") %>">.jpg" border="1">
.jpg" width="220">

Atividades rotineiras
<% response.write RS("rotina") %>


Personalidade
<% response.write RS("personalidade") %>


Hobbies,Atividades favoritas,Objetivos

<% response.write RS("objetivos") %>


CLIQUE AQUI PARA VER MAIS FOTOS INFANTIL E TEEN
Outros books desta categoria:
 
Eventos, festas, Buffet, Infantil Crianças
Fotografia em Estúdio e Externa
Aluguel para Estúdio Fotográfico
eduardo@fashionbooks.com.br
Saúde São Paulo - SP <% RS.MoveNext Loop %><% RS.close set RS = nothing %>