<%
Dim WADACommunities__ParamSessionCom_Name
WADACommunities__ParamSessionCom_Name = "-1"
If (Session("WADA_Insert_Communities") <> "") Then
WADACommunities__ParamSessionCom_Name = Session("WADA_Insert_Communities")
End If
%>
<%
Dim WADACommunities__ParamCom_Name2
WADACommunities__ParamCom_Name2 = "-1"
If (Request.QueryString("Com_Name") <> "") Then
WADACommunities__ParamCom_Name2 = Request.QueryString("Com_Name")
End If
%>
<%
Dim WADACommunities__ParamCom_Name
WADACommunities__ParamCom_Name = "-1"
If (Request.QueryString("Com_Name") <> "") Then
WADACommunities__ParamCom_Name = Request.QueryString("Com_Name")
End If
%>
<%
Dim WADACommunities
Dim WADACommunities_cmd
Dim WADACommunities_numRows
Set WADACommunities_cmd = Server.CreateObject ("ADODB.Command")
WADACommunities_cmd.ActiveConnection = MM_AlabaAdv_STRING
WADACommunities_cmd.CommandText = "SELECT Com_Name, Com_Link, Com_Link2, Com_Link3, Contact_Name_First, Contact_Name_Last, Contact_Address, Contact_Phone, Contact_Email, Contact_Website, City_Population, County_Name, County_Population, Commercial_Airport, Regional_Airport, Public_Water, Public_Sewer, Garbage_Pickups, No_Physicians, Phys_city, Phys_county, Hosp_Beds_City, Hosp_Beds_County, Nursing_Homes, Assited_Liv, Regional_Health_Care, RHC_Distance, Military_Posts, Military_Distance, Worship_Place, Worship_Denom, Post_Secondary_1, Post_Secondary_2, Post_Secondary_3, Pubilc_Library FROM Communities WHERE Com_Name = ? OR ( -1=? AND Com_Name=?)"
WADACommunities_cmd.Prepared = true
WADACommunities_cmd.Parameters.Append WADACommunities_cmd.CreateParameter("param1", 203, 1, 255, WADACommunities__ParamCom_Name) ' adLongVarWChar
WADACommunities_cmd.Parameters.Append WADACommunities_cmd.CreateParameter("param2", 203, 1, 255, WADACommunities__ParamCom_Name2) ' adLongVarWChar
WADACommunities_cmd.Parameters.Append WADACommunities_cmd.CreateParameter("param3", 203, 1, 255, WADACommunities__ParamSessionCom_Name) ' adLongVarWChar
Set WADACommunities = WADACommunities_cmd.Execute
WADACommunities_numRows = 0
%>
All of the fields are text except the population fields, distance, and Number fields (like No_Physcians).