AdMentor homepage

/asp/freeapps/topsitementor/include_menu.inc

<%

Sub WriteFakeButton( sRef, sText )
    Response.Write " <b><a href=""" & sRef & """" & "><font color=#000066 size=""2"" face=""Arial,Helvetica"">" & "  " & sText &  "</font></a></b>"
End Sub


Sub WriteMenuItem( sRef, sText )
    Response.Write "<img src=""box.gif"">�<a href=""" & sRef & """" & "><font color=#000066 size=""1"" face=""Arial,Helvetica"">" & "  " & sText &  "</font></a><br>"
End Sub

Sub AdAdminWriteMenu
    If Session("ts_admin") = "1" Then
        WriteMenuItem     "admin_users.asp", "Account admin"
        WriteMenuItem     "admin_categories.asp", "Categories admin"
    Else
        WriteMenuItem     "admin_account.asp?id=" & Session("ts_userfldauto"), "My account"
        WriteMenuItem     "admin_genhtml.asp", "Get HTML"
    End If
End Sub

%>
Privacy policy