<%@ LANGUAGE="VBSCRIPT" %> <%response.buffer=true%> <% dim sAction,sUID,sSubmit,Html dim oUserModule dim page page = request.ServerVariables("SCRIPT_NAME") page = left(page, inStrRev(page, ".") - 1) page = ucase(right(page, len(page) - inStrRev(page, "/"))) CAT = left(page,3) set oUserModule = New UserModule if(Request.ServerVariables("REQUEST_METHOD") = "GET") then sAction = trim(Request.QueryString("Action")) sMode = trim(Request.QueryString("Mode")) sUID = trim(request.QueryString("uID")) '--------------------------------------------- sSB = trim(request.QueryString("SB")) sSearchText = trim(request.QueryString("SearchText")) sCT = trim(request.QueryString("CT")) sINS = trim(request.QueryString("IN")) sCS = trim(request.QueryString("CS")) sMO=trim(request.QueryString("MO")) sTU = trim(request.QueryString("TU")) sWD = trim(request.QueryString("WD")) sTH = trim(request.QueryString("TH")) sFR = trim(request.QueryString("FR")) sSA = trim(request.QueryString("SA")) sSU = trim(request.QueryString("SU")) '--------------------------------------------- elseif(Request.ServerVariables("REQUEST_METHOD") = "POST") then sAction = trim(request.form("Action")) sSubmit = trim(request.form("Submit1")) sMode = trim(Request.form("Mode")) sUID = trim(request.form("uID")) '--------------------------------------------- sSB = trim(request.form("SB")) sSearchText = trim(request.form("SearchText")) sCT = trim(request.form("CT")) sINS = trim(request.form("IN")) sCS = trim(request.form("CS")) sMO= trim(request.form("MO")) sTU = trim(request.form("TU")) sWD = trim(request.form("WD")) sTH = trim(request.form("TH")) sFR = trim(request.form("FR")) sSA = trim(request.form("SA")) sSU = trim(request.form("SU")) '--------------------------------------------- end if %> PVCC - Events & Activities
Hours  |  Contact Us  |  Text Only  |  iNET  |  Employee Email
PVCC Events & Activities
 
      
 
<% SELECT CASE sAction CASE "DE": oUserModule.DisplayParticularEvent() CASE "DS"'Display search option and schedule list oUserModule.SearchOption(sMode) oUserModule.ScheduleList() CASE "DL"'Display single schedule details oUserModule.DisplayScheduleDetails() CASE "ST"'Display search option and schedule list oUserModule.SearchOption(sMode) oUserModule.ScheduleList() CASE default'Display events oUserModule.DisplayEvents() END SELECT %>
Opportunity. Access. Excellence.
If you experience issues viewing the PVCC Web site contact the Webmaster.
501 College Drive  |  Charlottesville VA 22902  |  434.977.3900
<% conn.close %>