%@LANGUAGE="VBSCRIPT" LCID="2057" CODEPAGE="1252"%>
<%
Dim rsHospitals
Dim rsHospitals_cmd
Dim rsHospitals_numRows
Set rsHospitals_cmd = Server.CreateObject ("ADODB.Command")
rsHospitals_cmd.ActiveConnection = MM_CNSFormulary_STRING
rsHospitals_cmd.CommandText = "SELECT * FROM dbo.tblRefFormularyData Order By HospitalID Asc"
rsHospitals_cmd.Prepared = true
Set rsHospitals = rsHospitals_cmd.Execute
rsHospitals_numRows = 0
%>
<%
Dim rsFrontPage
Dim rsFrontPage_cmd
Dim rsFrontPage_numRows
Set rsFrontPage_cmd = Server.CreateObject ("ADODB.Command")
rsFrontPage_cmd.ActiveConnection = MM_CNSFormulary_STRING
rsFrontPage_cmd.CommandText = "SELECT * FROM dbo.tblFrontPageText"
rsFrontPage_cmd.Prepared = true
Set rsFrontPage = rsFrontPage_cmd.Execute
rsFrontPage_numRows = 0
%>
<%
response.cookies("hospitalID")=(rsHospitals.Fields.Item("HospitalID").Value)
session("hospitaldbKey")=(rsHospitals.Fields.Item("HospitaldbKey").Value)
response.cookies("hospitalID").expires = DATE() + 1
%>
<%
rsHospitals.Close()
Set rsHospitals = Nothing
%>
<%
rsFrontPage.Close()
Set rsFrontPage = Nothing
%>