Favorite Links <% Dim cnDB ' As ADODB.Connection CheckSecurity Set cnDB = OpenDB() Dim rsData ' As ADODB.Recordset Dim strSQL ' As String Dim lngAccountID ' As Long lngAccountID = Request.Cookies("mynetwork")("AID") DBC "lngAccountID = " & lngAccountID Dim strReturnToPage strReturnToPage = "default" Dim i i = 0 strSQL = "SELECT * FROM tblLinks " _ & "WHERE Freq Like Yes " _ & "AND pkAccountID Like " & lngAccountID _ & " ORDER BY Name" DBC "strSQL = " & strSQL Set rsData = cnDB.Execute(strSQL) WL "

Create New Link" WL "" WL "" WL "" WL "" Do Until rsData.EOF '''''''''''''''''''''''''''''''''' ' set alternating row colors ' '''''''''''''''''''''''''''''''''' i = i + 1 If Round((i / 2),0) = i / 2 Then WL "" Else WL "" End If WL "" WL "" WL "" rsData.MoveNext Loop '''''''''''''''''''''''''''' ' Clean up ' '''''''''''''''''''''''''''' Set strSQL = Nothing rsData.Close Set rsData = Nothing CloseDB cnDB PrintFooter %>
NameActions
" _ & rsData("Name") & "" WL "U | " WL "D" WL "