<% mypage = CInt( Request("page") ) If mypage=0 Then mypage=1 intPageSize = 10 If pagesize = 0 Then pagesize = intPageSize set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = pagesize rs.CacheSize = pagesize ' This is optional rs.CursorLocation = adUseClient strSQL="Select id,Heading,Textnews,Image from News" rs.Open strSQL, conn If rs.EOF = True Then Response.Redirect("./DatabaseError.asp") ' Else numpages = rs.PageCount numrecs = rs.RecordCount If mypage > numpages Then mypage = numpages If mypage < 1 Then mypage = 1 rs.AbsolutePage = mypage %>
 
 
<% Dim i dim NoPic For i=1 To pagesize If NOT rs.EOF Then if rs("Image")="n" then NoPic="no_image.gif" else NoPic=rs("Image") end if %> <% rs.MoveNext End If Next %>
    
<% =rs("Heading")%>
<% =rs("Textnews")%>
<%=response.Write(Mypic)%>
 
<%End if%>
<% ' Write out the page links Dim x, lb, ub Response.Write "Page : " For x=1 To numpages lb = (x-1) * pagesize + 1 ub = x * pagesize If ub > numrecs Then ub = numrecs If x <> mypage Then 'mySort = Request.QueryString("sort") 'if mySort = "" then 'mySort = strDefault_Col 'end if 'Response.Write "MySort = " & mySort 'if instr(mySort, "desc") then Response.Write "" & x & "" & vbcrlf 'else ' Response.Write "" & x & "" & vbcrlf ' end if 'Response.Write("") 'Response.Write (x) 'Response.Write "" Else Response.Write (x) 'Response.Write(lb & "-" & ub) End If If x <> numpages Then Response.Write " | " Next Response.Write("") %>

 
 
Copyright © 2007. All rights reserved.