<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" 'Please enter your SQL Connection Data Here' Dim MM_qolfoundation_STRING MM_qolfoundation_STRING = "Provider=SQLOLEDB;User ID=qolfoundationw;Password=ZxSdEr%6;Initial Catalog=qolfoundationw;Data Source=qolfoundationw.db.7166444.hostedresource.com" %> <% Set dbcon = Server.CreateObject("ADODB.Connection") dbcon.ConnectionString = MM_qolfoundation_STRING dbcon.Open() %> <% If request.querystring("nOrgID") <> "" AND isnumeric(request.querystring("nOrgID")) Then nOrgID = request.querystring("nOrgID") Else response.redirect("default.asp") End If %> Contact Us
<% Set rstOrganization = dbcon.Execute("SELECT * FROM tblOrganizations WHERE ID = '" & nOrgID & "' ORDER BY txtName") If rstOrganization.EOF Then %> <% Else While NOT rstOrganization.EOF %>
<% rstOrganization.MoveNext() Wend End If %>

Click on the Organization NaME for more information:

Search Again

Organization Name:
<%=(rstOrganization.Fields.Item("txtName").Value)%>
Address:
<%=(rstOrganization.Fields.Item("txtAddress").Value)%>
City:
<%=(rstOrganization.Fields.Item("txtCity").Value)%>
State:
<%=(rstOrganization.Fields.Item("txtState").Value)%>
Zip:
<%=(rstOrganization.Fields.Item("txtZip").Value)%>
Website:
Organization Overview:
<%=(rstOrganization.Fields.Item("txtOverview").Value)%>
Contact Name:
<%=(rstOrganization.Fields.Item("txtContact").Value)%>
Contact Phone Number:
<%=(rstOrganization.Fields.Item("txtPhone").Value)%>
Contact Email Address:
Clientele:
<% If rstOrganization("nClienteleID") <> "" Then set rstClientele = dbcon.execute("SELECT * FROM tblClientele WHERE ID IN (" & rstOrganization("nClienteleID") & ")") If not rstClientele.EOF Then While NOT rstClientele.EOF response.write rstClientele("txtClientele") & "
" rstClientele.movenext Wend End If End If %>
Military Service Specific:
<% If rstOrganization("nServiceSpecificID") <> "" Then set rstService = dbcon.execute("SELECT * FROM tblServiceSpecific WHERE ID IN (" & rstOrganization("nServiceSpecificID") & ")") If not rstService.EOF Then While NOT rstService.EOF response.write rstService("txtServiceSpecific") & "
" rstService.movenext Wend End If End If %>
Services Provided:
<% 'response.write "SELECT * FROM tblServicesProvided WHERE ID IN (0" & rstOrganization("txtServicesProvided") & ")" If rstOrganization("txtServicesProvided") <> "" Then set rstServiceProv = dbcon.execute("SELECT * FROM tblServicesProvided WHERE ID IN (" & rstOrganization("txtServicesProvided") & ")") If not rstServiceProv.EOF Then While NOT rstServiceProv.EOF response.write replace(replace(rstServiceProv("txtServicesProvided"),"*",""),"--","") & "
" rstServiceProv.movenext Wend End If End If %>
Medical Facilities Served:
<% If rstOrganization("nLocationID") <> "" Then set rstLocation = dbcon.execute("SELECT * FROM tblLocation WHERE ID IN (" & rstOrganization("nLocationID") & ")") If not rstLocation.EOF Then While NOT rstLocation.EOF response.write rstLocation("txtLocation") rstLocation.movenext Wend End If End If %>
States Served:
<% 'response.write "SELECT * FROM tblServicesProvided WHERE ID IN (0" & rstOrganization("txtServicesProvided") & ")" If rstOrganization("txtStatesID") <> "" Then set rstStatesServed = dbcon.execute("SELECT * FROM tblStates WHERE ID IN (" & rstOrganization("txtStatesID") & ") ORDER BY txtStateAbrv") If not rstStatesServed.EOF Then While NOT rstStatesServed.EOF response.write rstStatesServed("txtStateAbrv") & " " rstStatesServed.movenext Wend End If End If %>
Other Information:
<%=(rstOrganization.Fields.Item("txtOther").Value)%>

 

contact webmaster  /  ©2012 Quality of Life Foundation