|
|
 Click
on the Website Title to View
<%
strSQL = "Select * from Website Order by WebsiteID DESC"
rsoObject.open strSQL, objConn,3,3
if rsoObject.EOF = FALSE then
%>
<%
do while not rsoObject.EOF
with rsoObject
getID = .Fields("WebsiteID")
getTitle = .Fields("WebTitle")
getWebNo = .Fields("WebNo")
end with
%>
|
|
Child
Labour |
| |
First Prize |
|
|
Website Designing Competition |
| |
(2007-2008) |
| |
By Latika
XI G |
| |
|
|
<%
on error resume next
rsoObject.MoveNext
if not rsoObject.EOF then
with rsoObject
getID = .Fields("WebsiteID")
getTitle = .Fields("WebTitle")
getWebNo = .Fields("WebNo")
end with
%>
|
<%
end if
rsoObject.MoveNext
Loop
%>
<%
else
call fn_NoRecords()
end if
set cmdObject = NOTHING
set rsoObject = NOTHING
set objConn = NOTHING
Function fn_NoRecords()
%>
<%
end Function
%>
|
