<% hor=2 vert=4 perp=hor*vert '***************************************************************************** Set adoCon = Server.CreateObject("ADODB.Connection") strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/foto.mdb") '--------------------------------------------------------------------------------------------------------------------------------------------- pagea=CInt(Request("pagea")) album1=CInt(Request("album_num")) if pagea<1 then page1=1 if album1<1 then album1=1 recordcount=0 adoCon.Open strCon Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM foto_"&album1&" ORDER BY ID DESC;" rs.Open strSQL, adoCon rs.movefirst while not rs.eof recordcount=recordcount+1 rs.movenext wend rs.Close strSQL = "SELECT * FROM foto_"&album1&" Where (ID>" &(recordcount/perp - pagea)*perp&") and (ID<=" &(recordcount/perp - pagea+1)*perp& ") ORDER BY ID DESC;" rs.Open strSQL, adoCon rs.Movefirst %> ':. Italian amusement rides .:'



Production























" rs.movefirst while not rs.eof response.write "" tt=tt+1 if tt=hor then response.write "" tt=0 end if tt1=tt1+1 rs.movenext wend select case tt case 1 response.write "" response.write "" response.write "" case 2 response.write "" response.write "" case 3 response.write "" end select response.write "" %>
<% response.write "
Attraction " & rs("comment") & "

" filenam="text"+CStr(album1)+".inc" Set fs = CreateObject("Scripting.FileSystemObject") if fs.fileexists("D:\www\kacheli.ru\"+filenam) then Server.Execute filenam else Response.Write("Attractions") end if response.write "

" response.write "" response.write "Attraction
"& rs("model")&"

      

Cтраницы:   <% If recordcount mod perp = 0 then endpage=recordcount/perp Else endpage=recordcount/perp+1 End If For i = 1 To endpage if i=pagea then response.write"[ " response.write " " & i & "" & "  " if i=pagea then response.write"] " Next rs.Close Set rs = Nothing %>


Amusement rides and attractions safety and comfort are guaranteed by the Italian quality.
















   Создаем мечты, продаeм эмоции...

   www.ito.org  »  карта сайта  »  map.ito.ru