<% Dim strConexao strConexao = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("ikedatop.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 %> Agenciamento - <% response.write RS("nome")%> Agência de Modelos Top Brasil
 




<< voltar

.jpg" border="1" bordercolor="orange">

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

Nascimento: <% response.write RS("nasc") %>
Altura: <% response.write RS("altura") %>
Peso: <% response.write RS("peso") %>
Manequim: <% response.write RS("manequim") %>
busto: <% response.write RS("busto") %>
Cintura: <% response.write RS("cintura") %>
Quadril: <% response.write RS("quadril") %>
Sapatos: <% response.write RS("calcado") %>
.jpg" width="220" border="1">
<% RS.MoveNext Loop %><% RS.close set RS = nothing %>
Modelos disponíveis para trabalhos fotográficos
catálogos, revistas, publicidade e propaganda e material publicitário
Eduardo: 11 5594.7699