VA Creeper Marathon - Who's Coming?

<%@ LANGUAGE="VBSCRIPT" %> <% Dim sRegType, sRegTypeDesc, sItemType, sOrderBy, sDay, sMonthNum, sNow_yymmdd, sAction, sItemID Dim sSQL Dim iCounter Dim bVCMAdmin def_font = "" ' Get SFTC logon status get_SFTCUser username, logon_status, userid bVCMAdmin = HasRole(userID, "VCM_ADMIN") ConnToSFTC DBConn If (NOT IsObject(DBConn)) Then Response.Write "

Sorry, the VCM Registration Listing is not available at this time. Please check back soon.

" Response.End End If sRegType = Request("regtype") If (sRegType = "" OR sRegType = "registration" OR NOT(bVCMAdmin)) Then sRegType = "" sRegTypeDesc = "Registration" sItemType = "VCM-Runners" sOrderBy = "ItemValue1" Else sRegTypeDesc = "Waiting" sItemType = "VCM-Waiting" sOrderBy = "ItemValue3" sAction = Request("action") If (bVCMAdmin AND sAction = "move2reg") Then ' If registering, set reg-date and copy to official list sItemID = Request("itemid") sSQL = "UPDATE SiteStuff SET ItemValue5='" & Date() & "' WHERE ItemID=" & sItemID '''Response.Write vbcrlf & "" DBConn.Execute(sSQL) sSQL = "INSERT INTO SiteStuff(ItemType,ItemValue1,ItemValue2,ItemValue3,ItemValue4,ItemValue5,ItemValue6) SELECT 'VCM-Runners',ItemValue1,ItemValue2,ItemValue3,ItemValue4,ItemValue5,ItemValue6 FROM SiteStuff WHERE ItemID=" & sItemID DBConn.Execute(sSQL) End If End If sDay = Day(Date()) If (sDay < 10) Then sDay = "0" & sDay ' Need leading zero End If sMonthNum = Month(Date()) If (sMonthNum < 10) Then sMonthNum = "0" & sMonthNum ' Need leading zero End If sNow_yymmdd = Right(Year(Date()),2) & "/" & sMonthNum & "/" & sDay If (bVCMAdmin) Then regYearEditAnchor = "/Edit/" asOfDateEditAnchor = "/Edit/" focusCommand = "onLoad=""self.focus();document.addform.itemvalue1.focus()""" Else regYearEditAnchor = "" asOfDateEditAnchor = "" focusCommand = "" End If ' ' Get the VCM Registration Year ' sql = "SELECT ItemValue1 FROM SiteStuff WHERE ItemType = 'VCM-RegistrationYear'" Set rs = DBConn.Execute(sql) If (NOT rs.eof) Then regYear = rs("ItemValue1") Else regYear = "empty" End If rs.Close ' ' Get the VCM AsOf Date ' sql = "SELECT ItemValue1 FROM SiteStuff WHERE ItemType = 'VCM-AsOfDate'" Set rs = DBConn.Execute(sql) If (NOT rs.eof) Then asOfDate = rs("ItemValue1") Else asOfDate = "empty" End If rs.Close %> VA Creeper Marathon - Who's Coming? background="../_themes/nature/nabkgnd.jpg" bgcolor="#FFFFFF" text="#000000" link="#993333" vlink="#333399" alink="#006633">

Virginia Creeper Marathon
<%=regYear%> <%=sRegTypeDesc%> List <%=regYearEditAnchor%>
(as of <%=asOfDate%>) <%=asOfDateEditAnchor%>

<% If (bVCMAdmin) Then Response.Write _ vbcrlf & def_font & "/Delete ALL shown here/" If (sRegType <> "waiting") Then Response.Write vbcrlf & " Go To Waiting List" Else Response.Write vbcrlf & " Go To Who's Comin'" End If Response.Write "" End If ' ' Get the reg. list ' sSQL = "SELECT ItemID, ItemValue1,ItemValue2,ItemValue3,ItemValue4,ItemValue5,ItemValue6 FROM SiteStuff WHERE ItemType = '" & sItemType & "' ORDER BY " & sOrderBy Set rs = DBConn.Execute(sSQL) iCounter = 0 Response.Write "" If (bVCMAdmin) Then Response.Write _ vbcrlf & "" &_ vbcrlf & "" If (sRegType = "waiting") Then Response.Write _ vbcrlf & " " &_ vbcrlf & " " &_ vbcrlf & " " &_ vbcrlf & " " End If Response.Write _ vbcrlf & "" &_ vbcrlf & "" If (sRegType = "waiting") Then Response.Write _ vbcrlf & "" &_ vbcrlf & "" &_ vbcrlf & "" End If Response.Write _ vbcrlf & "" &_ vbcrlf & "" &_ vbcrlf & "" End If While (NOT rs.eof) iCounter = iCounter + 1 If (sRegType = "waiting" AND rs("ItemValue5") <> "") Then Response.Write "" Else Response.Write "" End If If (bVCMAdmin) Then Response.Write "" End If Response.Write "" If (bVCMAdmin AND sRegType = "waiting") Then Response.Write "" End If If (bVCMAdmin) Then If (sRegType = "waiting") Then Response.Write "" If (rs("ItemValue5") <> "") Then Response.Write "" Else Response.Write "" End If Else Response.Write "" End If End If Response.Write vbcrlf & "" rs.MoveNext WEnd rs.Close set rs = Nothing DBConn.Close set DBConn = Nothing %>

	" & def_font & "LastName,FirstName:	" & def_font & "City,ST	" & def_font & "Entered (yy/mm/dd)	" & def_font & "Prior Contact: Y?	" & def_font & "Comment:	" & def_font & "Added (yy/mm/dd)
" & def_font & "(new)
" & def_font & iCounter & ")	" & def_font If (bVCMAdmin) Then Response.Write "" End If Response.Write rs("ItemValue1") If (bVCMAdmin) Then Response.Write " Delete" If (sRegType = "waiting" AND (rs("ItemValue5") = "" OR IsNull(rs("ItemValue5")))) Then Response.Write _ " Register" End If End If Response.Write "	" & def_font & rs("ItemValue2") & "	" & def_font & rs("ItemValue3") & "	" & def_font & rs("ItemValue4") & "	" & def_font & rs("ItemValue6") & "	" & def_font & rs("ItemValue5") & "