|
|
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 "| Name | "
WL "Actions | "
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 "| " _
& rsData("Name") & " | "
WL ""
WL "U | "
WL "D"
WL " | "
WL " "
rsData.MoveNext
Loop
''''''''''''''''''''''''''''
' Clean up
'
''''''''''''''''''''''''''''
Set strSQL = Nothing
rsData.Close
Set rsData = Nothing
CloseDB cnDB
PrintFooter
%> |