<% ProcessForumPage True %> <% Sub Main() Dim objRS Dim iCount Dim I Response.Write "ADO version: " & cnnFOrumDC.Version Set objRS = GetRecordset("forums") 'Set objRS = Server.CreateObject("ADODB.Recordset") If Not objRS.EOF Then Response.Write "" Response.Write "" For I = 0 to objRS.Fields.Count - 1 Response.Write "" Next 'I Response.Write "" objRS.MoveFirst Do While Not objRS.EOF Response.Write "" For I = 0 to objRS.Fields.Count - 1 Response.Write "" Next 'I Response.Write "" objRS.MoveNext Loop Response.Write "

" & objRS.Fields(I).Name & "

" & objRS.Fields(I).Value & "

" Else WriteLine "No results." & "
" End If 'Close Forum DB object objRS.Close Set objRS = GetRecordset("messages") 'Set objRS = Server.CreateObject("ADODB.Recordset") If Not objRS.EOF Then Response.Write "" Response.Write "" For I = 0 to objRS.Fields.Count - 1 Response.Write "" Next 'I Response.Write "" objRS.MoveFirst Do While Not objRS.EOF And iCount < 10 Response.Write "" For I = 0 to objRS.Fields.Count - 1 Response.Write "" Next 'I Response.Write "" iCount = iCount + 1 objRS.MoveNext Loop Response.Write "

" & objRS.Fields(I).Name & "

" & objRS.Fields(I).Value & "

" Else WriteLine "No results." & "
" End If 'Close Message DB object objRS.Close Set objRS = Nothing End Sub %>