<%@ LANGUAGE="VBSCRIPT" %>
<%response.buffer=true%>
<!-- #include virtual file="dbconnect.asp" -->
<!-- #include virtual file="config.asp" -->
<!-- #include virtual file="clsUserModule.asp" -->
<%
'*****************************************************************************
' AUTHOR		: Khalique Manyar (m_khalique@hotmail.com)
' MODULE		: Jones Dental (User module)
' DATE CREATED	: 22/12/2002
' DATE MODIFIED	: 
' PURPOSE		: common file for handling admin functionality
'*****************************************************************************


dim sAction,sUID,sSubmit
dim oUserModule

set oUserModule = New UserModule

	If (Request.ServerVariables("REQUEST_METHOD") = "GET") then
		sAction = trim(Request.QueryString("Action"))
		sUID = trim(request.QueryString("uID"))
	elseIf (Request.ServerVariables("REQUEST_METHOD") = "POST") then
		If (InStr(Request.ServerVariables("CONTENT_TYPE"), "multipart/form-data") <> 0) then
			Set oUpload = New FileUpload
			sAction = trim(oUpload.Value("Action"))
			sSubmit = trim(oUpload.Value("Submit1"))
			sUID = trim(oUpload.Value("uID"))
		else
			sAction = trim(request.form("Action"))
			sSubmit = trim(request.form("Submit1"))
			sUID = trim(request.form("uID"))
		end if
	end if
%>
<!-- #include virtual file="header.inc" -->
<%
		SELECT CASE sAction
			CASE "LGN":
				bSuccess = oUserModule.CheckUser(request.form("UserName"),request.form("Password"))
				if bSuccess = "True" then oUserModule.displayMonthSelect()
			CASE "SCH":
				if request.form("VisitTypeID") = 1 then
					oUserModule.displayPatientForm()
				elseif request.form("VisitTypeID") = 2 then
					oUserModule.CheckSession()
					oUserModule.displayMonthSelect()
					'oUserModule.displayAppointments()
				'else
				'	oUserModule.displayAppointments()
				end if
			CASE "DSH":
				oUserModule.displayAppointments()
			CASE "SCH_1":
				iPatientID = oUserModule.addPatientInfo()
				if iPatientID <> "" then
					session("uID") = iPatientID
					session("login") = "thru"
					if trim(request("OfficeID")) <> "" then
						oUserModule.displayMonthSelect()
					else
						oUserModule.SelectOfficeAndVisit()
					end if
				end if
			CASE "APP":
				oUserModule.displayPatientForm()
			CASE "BOOK":
				'iPatientID = oUserModule.addPatientInfo()
				ouserModule.bookAppointment()
			CASE "NU":
				oUserModule.displayPatientForm()
			CASE "FP":
				if sSubmit = "" then
					oUserModule.ForgotPassword()
				else
					oUserModule.SendPassword()
				end if
			CASE default: 'Display admin links
				'oUserModule.SelectOfficeAndDoctor()
				oUserModule.SelectOfficeAndVisit()
		END SELECT
%>
<!-- #include virtual file="footer.inc" -->