<% lang = request.querystring("lang") %> <% perpage = 1 '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 status LIKE '%models%' AND sesso = 'D' ORDER BY visite DESC" Rs.Open sql, Conn, 1, 3 %>
<% 'recupero la pagina page = Request.QueryString("page") 'imposto il numero di record per pagina if page = "" then page = 1 end if perpage=8 'imposto la dimensione della pagina Rs.PageSize = perpage totalePagine = Rs.PageCount ' mi sposto all'ultima pagina Rs.AbsolutePage = page 'scrivo i link ai record %> <% if lang = "it" then %> <% Else %> <% End if %>

Navigator Models

   Page <%=page%> / <%=totalePagine%> <% for i = 1 to perpage if Not Rs.EOF then %> <% Rs.MoveNext end if next %>

&lang=<% = lang %>"> /thumb.jpg" style="border: 1px solid #999999; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" width="80" height="200">

&lang=<% = lang %>">

<% = Rs("nome") %> <% = Left(Rs("cognome"),1) %>.
<% = Rs("nazione") %>

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.

<% preced = page - 1 if preced <> 0 then %> <- Back <% end if %>

Home Page

<% success = page + 1 if success > rs.PageCount then %> <% else %> Next -> <% end if %>