<%@ Language="VBScript" %> <% On error resume next Public rsSubscriber Public SubscriberNo Public cnDB Session("WorkDir") = Server.MapPath("\FamilyMed") Session("dbConnection") = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "User ID=Admin;" & _ "Data Source=" & Server.MapPath("\FamilyMed") & "\Db\FamMedData.mdb" Session("dbConnectionMsg") = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "User ID=Admin;" & _ "Data Source=" & Server.MapPath("\FamilyMed") & "\Db\FamMedMsg.mdb" Session("ScubscriberID") = 0 Err.Clear '-- Buttons If Request.Form("btnContact") = "Contact Us" then Response.Redirect "Messages.asp" End if If Request.Form("btnSubmit") = "Submit" then If Len(Request.Form("SubscriberNo")) = 0 then Session("ErrMsg") = "" Else SubscriberNo = GetID(Request.Form("SubscriberNo")) If SubscriberNo <> 0 then Set cnDB = CreateObject("ADODB.Connection") cnDB.ConnectionString = Session("dbConnection") cnDB.Open If Err.number = 0 then Set rsSubscriber = cnDB.Execute("SELECT" & _ " tblSubscriber_Login.SubscriberNo," & _ " tblSubscriber_Login.SubscriberID," & _ " tblSubscriber.FamilyID," & _ " tblSubscriber_Family.PassWord," & _ " tblSubscriber_Login.Locked," & _ " tblSubscriber_Login.Deleted" & _ " FROM (tblSubscriber_Family" & _ " LEFT JOIN tblSubscriber ON" & _ " tblSubscriber_Family.FamilyID = tblSubscriber.FamilyID)" & _ " LEFT JOIN tblSubscriber_Login ON" & _ " tblSubscriber.SubscriberID = tblSubscriber_Login.SubscriberID" & _ " WHERE tblSubscriber_Login.SubscriberNo=" & SubscriberNo & ";") If rsSubscriber.eof then Session("ErrMsg") = "Invalid Login" ElseIf rsSubscriber("Deleted") = vbYes then Session("ErrMsg") = "Invalid Login" ElseIf rsSubscriber("Locked") = vbYes then _ Session("ErrMsg") = "Please contact Family Medical" ElseIf rsSubscriber("PassWord")<> Request.Form("PASSWORD") then Session("ErrMsg") = "Invalid Login" else Session("SubscriberID") = rsSubscriber("SubscriberID") Session("FamilyID") = rsSubscriber("FamilyID") rsSubscriber.Close Set cnDB = Nothing Response.Redirect "Subscriber.asp" End if Else Session("ErrMsg") = "Invalid Login" End if rsSubscriber.close set cnDB = Nothing End if End if End if %> Login <% If Not len(Session("ErrMsg")) = 0 then Response.Write "

" Response.Write "Error: " & Session("ErrMsg")& "

" Session("ErrMsg") = "" End if %>
                                                                                   

  Subscriber 

  Password  

                           

                     'The Golden Hour'
What happens during the first hour after injury makes the difference between life and death. If trained professionals can stop the bleeding, treat the injury, and restore blood pressure your chances of survival increase dramatically.

\Images\CheckUp.jpg" height=162 width=250 style="WIDTH: 244px; HEIGHT: 153px" >

When you enroll in the Family Medical program a unique enrollment number is assigned to each member of your family. To further protect your information you can assign a password for the whole family. By using your enrollment number and password any doctor or hospital, that you select, can instantly obtain current medical information.

You can provide all the basic information a physician needs. Current conditions, medications, allergies, emergency contacts, emergency authorizations, family physicians and much much more. You determine what information is available and who can access that information.

 \Images\Paramedic.jpg" height=150 width=248 style="WIDTH: 236px; HEIGHT: 148px">