<% hor=2 vert=4 perp=hor*vert %> Ингуш.RU - Фото галерея
новости веб-чат СЕРДАЛО карта заставка
 






<% '***************************************************************************** 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 response.write "
" & rs("comment") & "" '********************************************************* '********************************************************* 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 "" response.write "

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

----

??????.???????
Новости |  Наш Президент |  Пишет пресса |  Документы |  ЖЗЛ |  История
Абсолютный Слух |  Тесты он-лайн |  Прогноз погоды |  Фотогалерея |  Конкурс
Видеогалерея |  Форум |  Искусство |  Веб-чат
Перепечатка материалов сайта - ТОЛЬКО с разрешения автора или владельца сайта и ТОЛЬКО с активной ссылкой на www.ingush.ru
По вопросам сотрудничества или размещения рекламы обращайтесь web@ingush.ru