<%
apg=Request.QueryString("apg")
if apg="" then
apg=1
end if
apg=cint(apg)
set conn=server.createobject("adodb.connection")
conn.Open "fileDSN=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orangepie" '// Sql-Server Database
set rs=Server.CreateObject("adodb.Recordset")
sql="select * from screensavers"
rs.PageSize=9
rs.Open sql,conn,1,3
tresults=rs.RecordCount
if tresults <> 0 then
rs.AbsolutePage=apg
end if
%>
Click on any thumbnail to download the screensaver.
After downloading the file, double click on it to install it on your desktop.
<% colno = 0
cardcnt=1
'// Loop Through Recordset and display thumbnails.
while not rs.EOF and cardcnt < 10
cardcnt=cardcnt+1
colno = colno+1
size=rs("sizeinkb") 'cardnum from d/b
shrttxt=rs("shorttext") 'short text
thumbimg="thumbnails/"&server.htmlencode(rs("thumbnail")) 'Thumb Image
nextlink = "exes/"&rs("filename")
%>
<%=shrttxt%> (<%=size%>KB) |
<% rs.Movenext
If (colno MOD 3) = 0 then
response.write "" '// Break The Line
end if
wend
if tresults > 9 then
str=""
lb=apg-5
ub=apg+5
if lb > 2 then
str=str&"[Previous] "
dlb=lb
else
dlb=1
end if
npages=rs.PageCount
if ub < npages-1 then
estr=estr&"[Next] "
dub=ub
else
dub=npages
end if
for i=dlb to dub
if i=apg then
str=str&"[" & i &"] "
else
str=str&"[" & i &"] "
end if
next
str=str&estr&"
"
end if
rs.close
conn.close
set rs = nothing
set conn=nothing
%>
<% Response.Write str %>
Also take a look at... |
 |
 |
|
|
E-Cards from Orangepie
A free service from ASTROSOFT
Copyright © 1999 by Orangepie. All Rights Reserved.
Website created & designed by Astrosoft.
Privacy Policy | User Agreement
|