<% lang = request.querystring("lang") %> <% dim mySQL,rsTemp, cn dim id dim nome,cognome,datanascita,indirizzo,citta,residenza,nazione dim idym,telefono,mobile,email,sesso dim altezza,busto,vita,fianchi,taglia,giacca,scarpe,occhi,capelli,carnagione dim sfilate,fotomodella,fotointimo,glamour,fotonudo,pubblicita dim cinemateatro,tv,comparse,stewartHostessPromoter,indossatrice dim ultimamodifica,visite,condizioni 'Open Database Connection call openDB() perpage = 1 id = request.querystring("ID") if len(id) > 0 then 'Open Database Connection call openDB() 'connessione al db ' Set Conn = Server.CreateObject("ADODB.Connection") ' Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/oko.mdb") Set Rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM mma WHERE ID = " & request.querystring("ID") Rs.Open sql, cn, 1, 3 if not rs.eof then nome = rs("nome") cognome = rs("cognome") datanascita = rs("datanascita") citta = rs("citta") sesso = rs("sesso") residenza = rs("residenza") nazione = rs("nazione") email = rs("email") altezza = rs("altezza") busto = rs("busto") vita = rs("vita") fianchi = rs("bacino") taglia = rs("taglia") giacca = rs("giacca") scarpe = rs("piede") occhi = rs("occhi") capelli = rs("capelli") carnagione = rs("carnagione") sfilate = rs("sfilate") fotomodella = rs("fotomodella") fotointimo = rs("fotointimo") glamour = rs("glamour") fotonudo = rs("fotonudo") pubblicita = rs("pubblicita") cinemateatro = rs("cinemateatro") tv = rs("tv") comparse = rs("comparse") stewartHostessPromoter = rs("stewartHostessPromoter") indossatrice = rs("indossatrice") visite = rs("visite") call closeRS(rs) end if end if %>
<% if lang = "it" then %> <% Else %> <% End if %>

<%=nome%> <%=left(cognome,1)%>.

<% if Lang = "it" then %> Dati personali <% else %> Personal data <% end if %>

<% if Lang = "it" then %> Dati fisici <% else %> Physical data <% end if %>

<% if Lang = "it" then %> Disponibile per <% else %> Available for <% end if %>

<% if Lang = "it" then %> Nome: <% else %> Name: <% end if %>  <%=nome%>

<% if Lang = "it" then %> Altezza (cm): <% else %> Height (cm): <% end if %>  <%=altezza%>

<% if Lang = "it" then %> Sfilate Moda <% else %> Fashion Shows <% end if %> >

<% if Lang = "it" then %> Data di Nascita: <% else %> Date of Birth: <% end if %>  <%=datanascita%>

<% if Lang = "it" then %> Busto (cm): <% else %> Bust (cm): <% end if %>  <%=busto%>

<% if Lang = "it" then %> Fotografia Moda <% else %> Fashion Shoot <% end if %> >

<% if Lang = "it" then %> Città: <% else %> City: <% end if %>  <%=citta%>

<% if Lang = "it" then %> Vita (cm): <% else %> Waist (cm): <% end if %>  <%=vita%>

<% if Lang = "it" then %> Fotografia Intimo <% else %> Lingerie Shoot <% end if %> >

<% if Lang = "it" then %> Residenza: <% else %> Residence: <% end if %>  <%=residenza%>

<% if Lang = "it" then %> Fianchi (cm): <% else %> Hips (cm): <% end if %>  <%=fianchi%>

<% if Lang = "it" then %> Fotografia Glamour <% else %> Glamour Shoot <% end if %> >

<% if Lang = "it" then %> Nazione: <% else %> Country: <% end if %>  <%=nazione%>

<% if Lang = "it" then %> Taglia (It): <% else %> Size (It): <% end if %>  <%=taglia%>

<% if Lang = "it" then %> Fotografia Nudo <% else %> Nude Shoot <% end if %> >

<% if Lang = "it" then %> Scarpe (It): <% else %> Shoes (It): <% end if %>  <%=scarpe%>

<% if Lang = "it" then %> Pubblicità <% else %> Advertising <% end if %> >

<% if Lang = "it" then %> Occhi: <% else %> Eyes: <% end if %>   <% if Lang = "it" then Response.write occhi else mySQL="SELECT occhiEN " _ & "FROM occhi "_ & "WHERE occhi LIKE '%" & occhi & "%'" set rsTemp = openRSexecute(mySQL) if not rsTemp.eof then Response.write rsTemp("occhiEN") end if end if %>

<% if Lang = "it" then %> Cinema-Teatro <% else %> Cinema-Theatre <% end if %> >

<% if Lang = "it" then %> Capelli: <% else %> Hair: <% end if %>   <% if Lang = "it" then Response.write capelli else mySQL="SELECT capelliEN " _ & "FROM capelli "_ & "WHERE capelli LIKE '%" & capelli & "%'" set rsTemp = openRSexecute(mySQL) if not rsTemp.eof then Response.write rsTemp("capelliEN") end if end if %>

<% if Lang = "it" then %> Televisione <% else %> Television <% end if %> >

<% if Lang = "it" then %> Carnagione: <% else %> Skin Complexion: <% end if %>   <% if Lang = "it" then Response.write carnagione else mySQL="SELECT carnagioneEN " _ & "FROM carnagione "_ & "WHERE carnagione LIKE '%" & carnagione & "%'" set rsTemp = openRSexecute(mySQL) if not rsTemp.eof then Response.write rsTemp("carnagioneEN") end if end if %>

<% if Lang = "it" then %> Comparse <% else %> Film-Extras <% end if %> >

 

Hostess / Promoter >
<% if len(id) > 0 then Dim PATH PATH = "public/book/" & id & "/files/" Set directory=server.createobject("scripting.filesystemobject") if directory.FolderExists(server.mappath(PATH)) Then Set allfiles=directory.getfolder(server.mappath(PATH)) ' Lista di tutti i file presenti nella directory For each directoryfile in allFiles.files if directoryfile.Name <> "Thumbs.db" and directoryfile.Name <> "thumbs.db" then if left(directoryfile.Name,3) <> "_tn" then %> <% end if end if Next end if end if %>
Le immagini visibili con la marcatura "OKO VISUALCOMMUNICATION" e "www.oko.it." non indica la paternità delle foto. Le foto sono di proprietà dei rispettivi autori.
The visible images with the marking "OKO VISUALCOMMUNICATION" and "www.oko.it." does not indicate ownership of the photos. The photos are the property of their respective authors.

<- Back

Home Page

Send Message

<% if len(id) > 0 then 'Update visite mySQL = "UPDATE mma SET " _ & "visite= visite + 1 " _ & "WHERE id = " & request.querystring("ID") set rs = openRSexecute(mySQL) call closeRS(rs) end if call closeDB() %>