<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Sitemap
<%
getDays = Array("", 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
Dim useretype
useretype = "All"
If (Request.QueryString("useretype") <> "") Then
useretype = Request.QueryString("useretype")
End If
Dim useremonth
useremonth = month(date)
If (Request.QueryString("useremonth") <> "") Then
useremonth = Cint(Request.QueryString("useremonth"))
End If
Dim usereday
usereday = day(date)
If (Request.QueryString("usereday") <> "") Then
usereday = Request.QueryString("usereday")
End If
dim usereyear
usereyear = year(date)
If (Request.QueryString("usereyear") <> "") Then
usereyear = Request.QueryString("usereyear")
End If
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
