Recently Listed |
<%
rst.Close
i = 0
sSQL = "select * from Sites where Active = True and sDeleted = False order by SiteID Desc"
rst.open sSQL, strConnString,3,3
if not rst.BOF and not rst.EOF then
do
i = i + 1
%>
| "><%=rst("SiteTitle")%> |
<%
rst.MoveNext
loop until i = 10 or rst.EOF
end if
%>
Popular Categories |
<%
i = 0
rst.Close
sSQL = "select * from cat order by iVisited desc;"
rst.open sSQL, strConnString,3,3
if not rst.BOF and not rst.EOF then
do
i = i + 1
%>
| "><%=rst("CatDesc")%> |
<%
rst.MoveNext
loop until i = 10 or rst.Eof
end if
%>
|
Browse Categories |
|
how to submit a site
|
<%
'Ok, now let's list out the employees and their associated
'projects. This will require two Do ... Loops
dim i
i = 0
'Iterate through the Recordset
objParentRS.MoveFirst
Do While Not objParentRS.EOF
i = i + 1
Response.Write("| ")
'Now Set the Child recordset to rsTitles
Set objChildRS = objParentRS("rsProjects").Value
'Loop through the Child recordset
If objChildRS.EOF Then Response.Write(" ")
dim j
j = 0
objChildRS.Move 1
Do While Not objChildRS.EOF and j < 5
if j = 4 then
Response.Write("" & objChildRS("CatDesc") & "")
else
Response.Write("" & objChildRS("CatDesc") & ", ")
end if
objChildRS.Move 2
j = j + 1
Loop
Response.Write(" | " & vbCR)
objParentRS.MoveNext
' make it a 3 column table
if i = 3 then
response.write " " & vbCR & "" & vbCR
i = 0
end if
Loop
' tidy the table
if i <> 3 then
do
response.write "| | "
i = i + 1
loop until i = 3
end if
%>
| |
  |
