<%@ LANGUAGE=VBScript %>
<%
Option Explicit
Response.Buffer = True
Dim connect, query, query1, recordset, recordset1, key, itemNumber, edit
Dim pageNumber, backToSearch, fullOrderBy, asapIfr
Dim previousurl, nexturl, longPages, intPages
Dim Facility
Dim Street
Dim City
Dim State
Dim Zip
Dim ContactFirst
Dim ContactLast
Dim Phone
Dim Fax
Dim Email
Dim HousingUnits
Dim NursingBeds
Dim AssistedLiving
Dim Services
Dim Notes
Dim Web
' iframe stuff here ------------------------------
If Session("asapIfr_facility_290") <> "" Then
asapIfr = Session("asapIfr_facility_290")
End If
edit = Request("edit")
fullOrderBy = Session("fullOrderBy_facility_290")
itemNumber = Request("itemNumber")
key = Request("key")
longPages = (itemNumber / 90)
intPages = Int(itemNumber / 90)
If longPages >= intPages Then
pageNumber = intPages + 1
Else
pageNumber = intPages
End If
backToSearch = "directory_search_results.asp?pageNumber=" + CStr(pageNumber)
%>
<%
Set recordset = Server.CreateObject("ADODB.Recordset") ' Create a recordset
recordset.CursorType = 3 ' adOpenStatic
If edit = "1" or Session("SSS_query_facility_290") = "" Then
query = "Select * from facility WHERE ID = " & key
recordset.Open query, connect
Facility = recordset("Facility")
Street = recordset("Street")
City = recordset("City")
State = recordset("State")
Zip = recordset("Zip")
ContactFirst = recordset("ContactFirst")
ContactLast = recordset("ContactLast")
Phone = recordset("Phone")
Fax = recordset("Fax")
Email = recordset("Email")
HousingUnits = recordset("HousingUnits")
NursingBeds = recordset("NursingBeds")
AssistedLiving = recordset("AssistedLiving")
Services = recordset("Services")
Notes = recordset("Notes")
Web = recordset("Web")
Else
query = Session("SSS_query_facility_290") + fullOrderBy
recordset.Open query, connect
if not recordset.eof then
recordset.Move(CInt(itemNumber))
end if
Facility = recordset("Facility")
Street = recordset("Street")
City = recordset("City")
State = recordset("State")
Zip = recordset("Zip")
ContactFirst = recordset("ContactFirst")
ContactLast = recordset("ContactLast")
Phone = recordset("Phone")
Fax = recordset("Fax")
Email = recordset("Email")
HousingUnits = recordset("HousingUnits")
NursingBeds = recordset("NursingBeds")
AssistedLiving = recordset("AssistedLiving")
Services = recordset("Services")
Notes = recordset("Notes")
Web = recordset("Web")
End If
%>
directory Detail
<%
If asapIfr = "" Then
%>
<%
End If
%>