<%@ language = "VBSCRIPT" %> <% 'Image Gallery Script with Access database 'By Steinthor Kristinsson 'You may change this code as mutch as 'you want all I ask is that you leave this 'comment whith the script and dont take 'credit for it. %> <% Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim strOrderBy 'A fake parameter used to illustrate passing them Dim SQL 'SQL command to execute Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var %> <% smallF = "" BlackF = "" NormalF = "" iPageSize =12 'number of images shown on each page ' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If If Request.QueryString("order") = "" Then strOrderBy = "id" Else strOrderBy = Request.QueryString("order") End If Response.write ""& BlackF &" Во МОК пред заминување на Младинските олимписки денови во Лигнано, Италија јули 2005 " SQL = "SELECT * FROM gallery ORDER BY " & strOrderBy & " DESC ;" Set objCon = Server.CreateObject ("ADODB.Connection") objcon.Open dbcon Set objRec = Server.CreateObject ("ADODB.Recordset") Objrec.PageSize = iPageSize objrec.CacheSize = iPageSize objRec.Open SQL, objcon, adOpenStatic, adLockReadOnly, adCmdText iPageCount = objrec.PageCount iPageCount = objrec.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 ' Check page count to prevent bombing when zero results are returned! If iPageCount = 0 Then Response.Write "No records found!" Else ' Move to the selected page objrec.AbsolutePage = iPageCurrent Response.Write "" & normalF & "Има " & objRec.RecordCount & " фотографии во оваа галерија" end if %> <% iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not objrec.EOF If NOT ObjRec.BOF Then Response.write ""&showimage&"" imagenr = imagenr + 1 iRecordsShown = iRecordsShown + 1 objRec.MoveNext end if loop ObjRec.close set Objrec = Nothing function showimage() dim HTML html = "" if imagenr = 3 then 'change this if you want more than 4 images in a row html = "" imagenr = 0 end if html = html & "" showimage = html end function %> "& SmallF & " " html = html & "    " html = html & " кликни тука <% Response.write " "& SmallF& "" If iPageCurrent > 1 Then %> [<< Назад] <% End If 'Showing PageNumbers For I = 1 To iPageCount If I = iPageCurrent Then %> <%= I %> <% Else %> <%= I %> <% End If Next 'I If iPageCurrent < iPageCount Then %> [Следна >>] <% End If Response.write " "& SmallF& " "& infcop &"" %>

 

назад на почетната галерија