<% set fs=Server.CreateObject("Scripting.FileSystemObject") 'vbanco =server.MapPath("/dados/banco.txt") Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/castingfeminino.mdb") & ";Persist Security Info=False" 'var barbara = "Medidas : Molelo - Barbara
Altura : 1,73 Cm
Olhos : Negros
Cabelos : Ruivos ou castanhos
Sapato : 36
Cintura : 65 Cm
Quadril : 92 Cm
"; SQL = " select * from modelos " Set rs=OBJdbConnection.Execute(SQL) %>

Ag

Contato : Tel (11) 4818-9144 | Email : contato@tradeshow.com.br


<% do while not rs.eof %> <% vcodigom = rs("codigo") %> <% if vcodigom ="" or isnull( rs("codigo") )then %> <% vcodigom = "000000" %> <% end if %>
>
<% = vcodigom %>
<% vfile = "E:\Vhosts\tradeshow.com.br\httpdocs\CASTINGFEMININO\COMPOSITE\" & rs("nome_artistico") & "\" & rs("nome_artistico") & ".jpg" %> <% if fs.FileExists(vfile) then %>
" & "Altura : " & rs("altura") & " Cm " & "
" & "peso : " & rs("peso") & "KG" & "
" & "Busto : " & rs("busto") & " Cm " & "
" & "Cintura : " & rs("cintura") & " Cm " & "
" &"Quadril : " & rs("quadril") & " Cm " & "
" & "Olhos : " & rs("olhos") & "
" & "Cabelos : " & rs("cabelos") & "
" & "Sapato : " & rs("calcado") & "
" & "Manequim : " & rs("manequim") & "
" %>')" onmouseout="tooltip.hide();">" ><%=rs("nome_artistico")%>.jpg" width="135" height="180">
<% else %>
" & "Altura : " & rs("altura") & " Cm " & "
" & "peso : " & rs("peso") & "KG" & "
" & "Busto : " & rs("busto") & " Cm " & "
" & "Cintura : " & rs("cintura") & " Cm " & "
" &"Quadril : " & rs("quadril") & " Cm " & "
" & "Olhos : " & rs("olhos") & "
" & "Cabelos : " & rs("cabelos") & "
" & "Sapato : " & rs("calcado") & "
" & "Manequim : " & rs("manequim") & "
" %>')" onmouseout="tooltip.hide();">" >
<% end if %>
<% = rs("nome_artistico") %>
    <% rs.movenext %> <% loop %>