<%@ Language=VBScript%> <%'option explicit dim strpagecode strpagecode= "FAIRG05"%> <% 'Page/form name: adm_clipevent.asp 'Purpose : Admin - Clip Events 'Date Modified: 10/09/2003 'Author :Himanshu Nigam 'dim thisyear 'dim pastyear 'dim futureyear 'dim sqlthisdate 'dim rsthisdate 'sqlthisdate = "select year(getdate())" 'set rsthisdate = server.CreateObject("ADODB.Recordset") 'rsthisdate.Open sqlthisdate,objconn 'thisyear = rsthisdate(0) 'pastyear = thisyear - 1 'futureyear = thisyear + 1 %> <% Dim path Dim upl Dim terms_filename Dim var_terms dim ErrorSectionName ErrorSectionName=server.URLEncode("Fair Registration") on error resume next set upl = server.CreateObject("SoftArtisans.FileUp") if err.number <> 0 then Response.redirect "/inc/commoninc/error.asp?section=" & ErrorSectionName & "&errortype=" & "err_record" Response.End end if on error goto 0 'var_terms = trim(upl.Form("filename")) 'if var_terms <> "" then ' var_terms = Mid(var_terms,InStrRev(var_terms,"\") + 1,len(var_terms)-InStrRev(var_terms,"\")) 'end if 'terms_filename = var_terms path = server.MapPath("\fairregistration\Terms") 'Response.Write path 'Response.End 'on error resume next upl.SaveAs (path & "\" & "status.htm") if err.number <> 0 then Response.redirect "/inc/commoninc/error.asp?section=" & ErrorSectionName & "&errortype=" & "err_record" Response.End end if on error goto 0 %> Terms and Conditions(Admin) - <%=Application("Title")%>
Upload Terms and Conditions
Terms and Conditions have been uploaded