|
 |
|
 |
| |
<%
dim rNo
if Request("Page")<>"" then
Page=Request("Page")
rNo=(Val(page)-1)*4
Else
Page=1
rNo=0
End if
Rowcount=0
sql="Select * from Tender Order By openingdate Desc"
conn.open mydsn
Set Rs=Server.CreateObject("ADODB.Recordset")
rs.pagesize=2
rs.open sql,conn,3,3
If not rs.eof then
rs.absolutePage=Cint(Page)
%>
<%
while not rs.eof and rowcount
|
Name Of Work |
<%=rs("NameWork")%> |
|
Tender No |
<%=rs("TenderNo")%> |
|
|
Date |
Time |
|
Submission Date |
<%=datesend(rs("SubmissionDate")) %> |
<%=rs("Time3") %> |
|
Opening Date |
<%=datesend(rs("Openingdate")) %> |
<%=rs("Time2") %> |
|
Purchase Date |
<%=datesend(rs("PurchaseDate")) %> |
<%=rs("Time1") %> |
|
Last Date |
<%=datesend(rs("LastDate")) %> |
<%=rs("Time4") %> |
|
<%
dim pat
pat="admin\uploaded\" & rs("fname")
%>
Download Detail |
<%=rs("fname") %> |
| |
<%rs.movenext
rowcount=rowcount + 1
wend%>
<%
on error resume next
if rs.pagecount<>1 then
For i=1 to rs.pagecount
response.write " " & i & " | "
next
end if
%>
|
<%
else%>
|
No Tenders posted yet. |
<%end if%>
|
|
|
|
|
|
