|
<%
dim rsCat,count1,m,a,name,Id,count,num,cnt,number,tot,y,x,i,rsc
count1=0
dim pid
pid=request("pid")
dim pi
pi=request("pid")
num=request("no")
cnt=0
number=0
tot=0
y=10
x=1
i=0
set rsc=mycon.execute("select count(Id) from Site ")
if not rsc.eof then
tot=rsc(0)
num1=0
total=0
while tot>total
num1=num1+1
total=total+10
wend
end if
'response.write("
")
t=0
number=num*1
no=0
count=1
set rsCat=mycon.execute("select * from Site order by Id ")
response.write("")
response.write("")
response.write("| ONGOING PROJECTS | ")
response.write("| No. | ")
response.write("Picture | ")
response.write("Site Name | ")
response.write("Description | ")
dim c
c=1
while not rsCat.eof and i<10
t=t+1
no=no+1
if no>number then
i=i+1
clr="#e5ddde"
if count=1 then
clr="#F8F8CE"
count=count+1
else
clr="#FBFBDC"
count=count-1
end if
count1=count1+1
response.write("")
response.write("| ")
response.write(" "& c &" | ")
response.write("")
response.write("  &) | ")
response.write(""& rsCat(3) &" | ")
response.write(""& rsCat(2) &" | ")
response.write(" ")
end if
c=c + 1
rsCat.movenext
wend
response.write("")
response.write("")
if no < tot then
response.write(" Next ")
while x<=num1
response.write(" "& x &" ")
x=x+1
wend
if not(num=0) or ((num+i)=tot) then
response.write(" Back ")
end if
else
if i<=10 then
while x<=num1
response.write(" "& x &" ")
x=x+1
wend
else
response.write(" Back ")
end if
end if
response.write(" ")
%>
|
Click to Watch video