 |
|
|
|
<%
page=Request("Page")
if page="" then
page=1
else
page=cint(page)
end if
set list1=server.CreateObject("Adodb.Recordset")
sql="select * from Product where fstatus=1 Order by ProductName ASC"
list1.Open sql,conn,3,1
list1.PageSize=6
ipage = list1.PageCount
if list1.EOF then
%>
No
Product Found ... |
<%
else
if not list1.EOF then
list1.AbsolutePage=page
end if
if page = 0 or page > ipage Then
list1.AbsolutePage = ipage
else
list1.AbsolutePage = page
end if
%>
<%
cc= 0
x=0
do while not (count=2 or list1.eof)and x<6
count=count+1
cc = cc + 1
%>
|
|
<%=left(list1("ShortDescription"),50)%> |
| |
|
| ....................................................... |
|
|
<%if count = 2 then
count = 0 %>
<%end if
x=x+1
list1.movenext
loop
end if
'list1.Close ()
'Set list1 = Nothing %>
|
<%if ipage > 1 And page > 1 Then%>
<< Previous
<%
'response.write "<< Previous"
response.write " "
end if
%>
<% abc=list1.PageCount
if abc >10 then
abc=10
else
end if
for i=1 to abc
%>
<%if i=page then
%>
<%=i%>
<%else%>
<%=i%>
<%
end if
next
%>
<% response.write " "
If ipage > 1 And page < ipage Then%>
Next Page
>>
<%' response.write "Next Page >>"
end if
%>
|
|
<%
set soft=server.CreateObject("Adodb.Recordset")
sql="select * from software where status='Y' Order by softwareid desc"
soft.Open sql,conn,3,1
if soft.EOF then
%>
| No Software Found.. |
<%
else
%>
<%
do while not (count1=4 or soft.eof)
count1=count1+1
%>
|
|
<%=soft("softwarename")%> |
|
|
<%if count1 = 4 then
count1 = 0 %>
<%end if
soft.movenext
loop
end if
'list1.Close ()
'Set list1 = Nothing %>
|
|
 |
|
|
|
|
|
|
