AdMentor homepage

/asp/freeapps/statmentor/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 "��<a href=""" & sRef & """" & "><font color=#000066 size=""1"" face=""Arial,Helvetica"">" & "  " & sText &  "</font></a><br>"
End Sub

Sub StatWriteMenu
    Response.Write "<b>StatMentor Menu</b><br>"
    WriteMenuItem     "selectperiod.asp", "Select period"
    WriteMenuItem     "total.asp", "Total visitors"
    WriteMenuItem     "pageviews.asp", "Pageviews"
    WriteMenuItem     "ref.asp", "Referers"
    WriteMenuItem     "selectperiod.asp", "Delete old stats files"
End Sub

%>
Privacy policy