<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SubPages_CommandParser(ByVal Mode) ''''''''''''''''''''''''''''''''''''''''''''''' 'Files that contain no ASP code can be streamed. if Mode = "Upcoming" then %> <% elseif Mode = "Advertising" then %> <% elseif Mode = "About" then %> <% elseif Mode = "Contact" then %> <% elseif Mode = "Partner" then %> <% elseif Mode = "Testimonials" then %> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Files that contain ASP Files need to be included elseif Mode = "NewsletterResponse" then %> <% elseif Mode = "LetterArchive" then %> <% elseif Mode = "TelematicsLatest" then if session("loggedin") = "yes" then %> <% else %> <% end if elseif Mode = "EBizLatest" then %> <% elseif Mode = "Loggedin" then %> <% elseif Mode = "TelematicsArchive" then if session("loggedin") = "yes" then %> <% else %> <% end if elseif Mode = "EBizArchive" then %> <% elseif Mode = "ReportMarketPlace" then %> <% elseif Mode = "AutoDirect" or Mode = "autodirect" then 'This file handles all the directory requests. %> <% elseif Mode = "Subscribe" then if Trim(Request.Item("Stage")) = "" then %> <% elseif Trim(Request.Item("Stage")) = "ShowThanks" then %> <% end if elseif Mode = "Jobs" then select case Request("SubMode") case "postcv" %> <% case "postjob" %> <% case "postjob2" %> <% case "login" %> <% case "amendcv" %> <% case "showall" %> <% case "cv" %> <% case "amendcompany" %> <% case "amendjob" %> <% case "amendrecruit" %> <% case "applyjob" %> <% case "companyjobs" %> <% case "contact" %> <% case "cvlisting" %> <% case "deletecv" %> <% case "deletejob" %> <% case "deleterecruit" %> <% case "joblisting" %> <% case "offerjob" %> <% case "thanksjob" %> <% case "addcompany" %> <% case else %> <% end select end if End Sub %>