<%@ LANGUAGE="VBSCRIPT" %> <% def_font = "" ' Get SFTC logon status get_SFTCUser username, logon_status, userid hasVCMAdmin = HasRole(userID, "VCM_ADMIN") ConnToSFTC DBConn If (not IsObject(DBConn)) Then Response.Write "

Sorry, the VCM Lost-Founds are not available at this time. Please check back soon.

" Response.End End If If (hasVCMAdmin) Then focusCommand = "onLoad=""self.focus();document.addform.itemvalue1.focus()""" Else focusCommand = "" End If %> VA Creeper Marathon - Lost & Found background="../_themes/nature/nabkgnd.jpg" bgcolor="#FFFFFF" text="#000000" link="#993333" vlink="#333399" alink="#006633"> <%=def_font%>

Virginia Creeper Marathon
Lost & Found

Did you lose or find something at our race? Please contact the race director at runfrankrun@hotmail.com.

<% If (hasVCMAdmin) Then Response.Write vbcrlf & "
LOST/FOUND & Description:

" End If ' ' Get the L/F list ' sql = "SELECT ItemID, ItemValue1 FROM SiteStuff WHERE ItemType = 'VCM-LostFound' ORDER BY ItemValue1" Set rs = DBConn.Execute(sql) While (NOT rs.eof) Response.Write "

" If (hasVCMAdmin) Then Response.Write vbcrlf & " /Edit/ /Delete/
" End If Response.Write vbcrlf & "

  • " & rs("ItemValue1") & "

    " rs.MoveNext WEnd rs.Close set rs = Nothing DBConn.Close set DBConn = Nothing %>