You could try a search for what you want - or maybe email LvL and remind us just how slack we are.
<% else news = tigRS("news") datestamp = tigRS("datestamp") %>..::LvL's server news - <%=realdate(datestamp)%><%=site_status()%> | |||
|
|||
Now we know that can't be right so maybe email LvL and we will give the HD a kick.
<% else set tigRS=Server.CreateObject("ADODB.Recordset") tigRS.cursorlocation=aduseclient tigRS.cachesize=5 tigRS.open query,DSN tigRS.movefirst tigRS.pagesize=pagesize maxpages=cint(tigRS.pagecount) maxrecs=cint(tigRS.pagesize) tigRS.absolutepage=page howmanyrecs=0 howmanyfields=tigRS.fields.count -1 ' Now loop through then all do until tigRS.eof or howmanyrecs>=maxrecs website = tigRS("website") if Cint(tigRS("comments")) = 0 then comments_to_date = "none yet" else comments_to_date = tigRS("comments") end if da_review = tigRS("info") %><%=tigRS("server_name")%> run by "><%=tigRS("sysadmin")%> | ||||
|
||||
<%
if (page mod 10) = 0 then
counterstart = page - 9
else
counterstart = page - (page mod 10) + 1
end if
counterend = counterstart + 9
if counterend > maxpages then
counterend = maxpages
end if
if counterstart <> 1 then
ref="First : "
Response.Write ref
ref="Previous : "
Response.Write ref
end if
'Response.Write "["
for counter = counterstart to counterend
if counter >= 8 then
pad=""
end if
'DEBUG
'Response.Write("page=[" & page & "] ") 'Response.Write("counter=[" & counter & "] ") 'Response.Write("right(cstr(counter),1)=[" & right(cstr(counter),1) & "] ") 'Response.Write("right(cstr(counter),2)=[" & right(cstr(counter),2) & "] ") 'i guess this could have been done a lot cleaner, however ... :] if len(counter) > 1 then if (right(cstr(counter),1) = "1") and (not right(cstr(counter),2) = "1") then tmp_group = cstr(counter) & "st" elseif (right(cstr(counter),1) = "2") and (not right(cstr(counter),2) = "1") then tmp_group = cstr(counter) & "nd" elseif (right(cstr(counter),1) = "3") and (not right(cstr(counter),2) = "1") then tmp_group = cstr(counter) & "rd" else tmp_group = cstr(counter) & "th" end if else if (right(cstr(counter),1) = "1") then tmp_group = cstr(counter) & "st" elseif (right(cstr(counter),1) = "2") then tmp_group = cstr(counter) & "nd" elseif (right(cstr(counter),1) = "3") then tmp_group = cstr(counter) & "rd" else tmp_group = cstr(counter) & "th" end if end if if cstr(counter) <> cstr(page) then ref="" & pad & tmp_group & "" else ref="" & pad & tmp_group & "" end if response.write ref if counter <> counterend then response.write " " end if next 'Response.Write "]" if counterend <> maxpages then ref=" : Next" Response.Write ref ref=" : Last" Response.Write ref end if %> |
|
|
<% end sub %>