%@LANGUAGE="VBSCRIPT"%>
<%
' *** Set Session Var To Value Of Form Element
Session("UserID") = cStr(Request("User"))
Session("Passcode") = cStr(Request("Password"))
%>
<%
Dim Check_Data__SessionOne
Check_Data__SessionOne = "a"
if (Session("UserID") <> "") then Check_Data__SessionOne = Session("UserID")
%>
<%
Dim Check_Data__SessionTwo
Check_Data__SessionTwo = "1"
if (Session("Passcode") <> "") then Check_Data__SessionTwo = Session("Passcode")
%>
<%
set Check_Data = Server.CreateObject("ADODB.Recordset")
Check_Data.ActiveConnection = MM_Riverside_STRING
Check_Data.Source = "SELECT * FROM dbo.Riverside_Login WHERE User_ID = '" + Replace(Check_Data__SessionOne, "'", "''") + "' AND Login_ID = " + Replace(Check_Data__SessionTwo, "'", "''") + ""
Check_Data.CursorType = 0
Check_Data.CursorLocation = 2
Check_Data.LockType = 3
Check_Data.Open()
Check_Data_numRows = 0
%>
<%
' *** Redirect If Recordset Is Empty
If (Check_Data.EOF) Then
Response.Redirect("no_login.html")
End If
%>
Riverside Practice [ staff ]
Nursing Staff
Sister Diane McDonough RGN
Diploma in Diabetic Care
Diploma Coronary Heart Disease
Diploma in Asthma Care
Jane Laking RGN
Diploma in Diabetic Care
Diploma in Coronary Heart Disease Tracy Nadin RGN Joanne Skelton / Clair Pugh
Healthcare Assistant
Rachel Milton RGN
Diploma in Asthma Care
The following community nursing staff care for our patients:
Health Visitors
District Nurses
Alison Bleby RGN RM RHV BSc(Hons)
Fran Holmes RGN RM HVCPT
Bernadette Johnson RGN RM BSc(Hons)
Sister Julie Pearson
Sister Pat Briggs
Sometimes staff from other healthcare organisations work at Riverside Surgery.