<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_falklandsurgery_STRING Recordset1_cmd.CommandText = "SELECT * FROM falklandsurgery.users" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("1")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "options.asp" MM_redirectLoginFailed = "../index.asp" MM_loginSQL = "SELECT username, pass" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM falklandsurgery.users WHERE username = ? AND pass = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_falklandsurgery_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 45, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 45, Request.Form("2")) ' adVarChar MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Falkland Surgery

Falkland SurgeryMonks Lane, Newbury, Berks, RG14 7DF
Tel:01635 279972     Fax: 01635 279973                                                                      * Staff Login *

You are here:

Online Appointments and Prescription Requests
(New window)

(Emis Access status page)

Headlines

New PPG micro-site now live

SurgeryPod - We are currently trialling this device in the Patient Information Room. Itis acomputer directly linked to your records, and allows you to enter data such as smoking and BP, as well as complete assessments for depression, alcohol consumption etc. We hope this will prove popular allowing more time to be freed up for those who need it with the doctors and nurses.

Flu Clinics - We have been very proactive with the flu clinics and have now given more jabs earlier than ever before, thankyou for your help. We have virtually run out of jabs but can try and obtain extra jabs for a short while if you ring in specifically

vPPG - We are looking to recruit a number of patients to join our Patient Participation Group. You have two options, either to become a "full" member, or to join the virtual PPG, an online mailing list contributing comments. Please contact the PPG directly or ring and speak to Wendy in Reception

 

Valid CSS!Contact Us | ©2008 Falkland Surgery

<% Recordset1.Close() Set Recordset1 = Nothing %>