<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={SQL Server}; SERVER=209.232.114.125; DATABASE=ExtraNet; UID=extranet; Password=pengpeng;"
v_SQLString = "SELECT CostCenter.DBA_Site, "
v_SQLString = v_SQLString + "CostCenter.CostCenterCode, "
v_SQLString = v_SQLString + "Address.Address1, "
v_SQLString = v_SQLString + "Address.Address2, "
v_SQLString = v_SQLString + "Address.City, "
v_SQLString = v_SQLString + "ref_State.Code As State, "
v_SQLString = v_SQLString + "Address.ZipCode "
v_SQLString = v_SQLString + "FROM CostCenter, ref_State, Address "
v_SQLString = v_SQLString + "WHERE Address.CostCenterCode = CostCenter.CostCenterCode "
v_SQLString = v_SQLString + "AND ref_State.StateId = Address.StateId "
v_SQLString = v_SQLString + "AND (Address.StateId = '6' AND CostCenter.CostCenterCode<> '1103') "
v_SQLString = v_SQLString + "AND CostCenter.Active_LH_Site = '1' "
v_SQLString = v_SQLString + "AND Address.AddressType = 'CMA' "
v_SQLString = v_SQLString + "ORDER BY CostCenter.City, CostCenter.DBA"
Rs.Open v_SQLString,Conn,adOpenStatic
'v_tr = "y"
'v_Record = "1"
'Do While Not rs.EOF
'
' v_CostCenterCode = rs("CostCenterCode")
'
' Set Rs_Contact = Server.CreateObject("ADODB.RecordSet")
'
' v_SQLString_Contact = "SELECT "
' v_SQLString_Contact = v_SQLString_Contact + "Contact.CostCenterCode, "
' v_SQLString_Contact = v_SQLString_Contact + "Contact.Number, "
' v_SQLString_Contact = v_SQLString_Contact + "ref_ContactType.Description "
' v_SQLString_Contact = v_SQLString_Contact + "FROM Contact, ref_ContactType "
' v_SQLString_Contact = v_SQLString_Contact + "WHERE Contact.CostCenterCode = '" & v_CostCenterCode & "' "
' v_SQLString_Contact = v_SQLString_Contact + "AND ref_ContactType.Type = Contact.ContactType "
'
' Rs_Contact.Open v_SQLString_Contact,Conn,adOpenStatic
'
' Do While Not Rs_Contact.EOF
'
' v_CC_Contact = Rs_Contact("CostCenterCode")
' v_Number = Rs_Contact("Number")
'
' v_FomattedWorkNumber = ""
' v_FomattedWorkNumber = v_FomattedWorkNumber & Left(v_Number, 3)
' v_FomattedWorkNumber = v_FomattedWorkNumber & "."
' v_FomattedWorkNumber = v_FomattedWorkNumber & Mid(v_Number, 4, 3)
' v_FomattedWorkNumber = v_FomattedWorkNumber & "."
' v_FomattedWorkNumber = v_FomattedWorkNumber & Right(v_Number, 4) '
'
' v_Description = Rs_Contact("Description")
'
'
' HTMLString_Contact = HTMLString_Contact & "
"
' HTMLString_Contact = HTMLString_Contact & v_Description + ": " + v_FomattedWorkNumber
'
' Rs_Contact.MoveNext
' Loop
'
' 'divide your input number by 2. if there is no remainder then its even, otherwise its odd
' If v_Record Mod 2 = 0 then
' v_EvenOdd = "even"
' Else
' v_EvenOdd = "odd"
' End If
'
' v_DBA = rs("DBA_Site")
' v_Address1 = rs("Address1")
' v_Address2 = rs("Address2")
' v_City = rs("City")
' v_State = rs("State")
' v_ZipCode = rs("ZipCode")
'
' If v_EvenOdd = "odd" then
' HTMLString = HTMLString & ""
' End If
'
' HTMLString = HTMLString & ""
' HTMLString = HTMLString & ""
' HTMLString = HTMLString & "" & v_DBA & ""
' HTMLString = HTMLString & "
"
' HTMLString = HTMLString & v_Address1 & "
"
' If v_Address2 <> "" Then
' HTMLString = HTMLString & v_Address2 & "
"
' End If
' HTMLString = HTMLString & v_City & ", " & v_State & " " & v_ZipCode & "
"
' HTMLString = HTMLString & HTMLString_Contact
' HTMLString = HTMLString & ""
' HTMLString = HTMLString & " | "
'
' If v_EvenOdd = "even" Then
' HTMLString = HTMLString & "
"
' HTMLString = HTMLString & ""
' HTMLString = HTMLString & " | "
' HTMLString = HTMLString & " | "
' HTMLString = HTMLString & "
"
' End If
'
'
' v_Record = v_Record + 1
' HTMLString_Contact = ""
'
' rs.MoveNext
'
'Loop
Do While Not rs.EOF
v_CostCenterCode = rs("CostCenterCode")
Set Rs_Contact = Server.CreateObject("ADODB.RecordSet")
v_SQLString_Contact = "SELECT "
v_SQLString_Contact = v_SQLString_Contact + "Contact.CostCenterCode, "
v_SQLString_Contact = v_SQLString_Contact + "Contact.Number, "
v_SQLString_Contact = v_SQLString_Contact + "ref_ContactType.Description "
v_SQLString_Contact = v_SQLString_Contact + "FROM Contact, ref_ContactType "
v_SQLString_Contact = v_SQLString_Contact + "WHERE Contact.CostCenterCode = '" & v_CostCenterCode & "' "
v_SQLString_Contact = v_SQLString_Contact + "AND ref_ContactType.Type = Contact.ContactType "
Rs_Contact.Open v_SQLString_Contact,Conn,adOpenStatic
HTMLString_Contact = ""
HTMLString_Contact = HTMLString_Contact & "| "
HTMLString_Contact = HTMLString_Contact & " "
Do While Not Rs_Contact.EOF
v_CC_Contact = Rs_Contact("CostCenterCode")
v_Number = Rs_Contact("Number")
v_FomattedWorkNumber = ""
v_FomattedWorkNumber = v_FomattedWorkNumber & Left(v_Number, 3)
v_FomattedWorkNumber = v_FomattedWorkNumber & "."
v_FomattedWorkNumber = v_FomattedWorkNumber & Mid(v_Number, 4, 3)
v_FomattedWorkNumber = v_FomattedWorkNumber & "."
v_FomattedWorkNumber = v_FomattedWorkNumber & Right(v_Number, 4) '
v_Description = Rs_Contact("Description")
HTMLString_Contact = HTMLString_Contact & v_Description + ": " + v_FomattedWorkNumber & ""
Rs_Contact.MoveNext
Loop
HTMLString_Contact = HTMLString_Contact & " |
"
v_DBA = rs("DBA_Site")
v_Address1 = rs("Address1")
v_Address2 = rs("Address2")
v_City = rs("City")
v_State = rs("State")
v_ZipCode = rs("ZipCode")
HTMLString = HTMLString & ""
HTMLString = HTMLString & " "
HTMLString = HTMLString & " "
HTMLString = HTMLString & v_Address1 & "
"
If v_Address2 <> "" Then
HTMLString = HTMLString & v_Address2 & "
"
End If
HTMLString = HTMLString & v_City & ", " & v_State & " " & v_ZipCode & "
"
HTMLString = HTMLString & " "
HTMLString = HTMLString & " | "
HTMLString = HTMLString & "
"
HTMLString_Final = HTMLString_Final & ""
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " | "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " " & v_DBA & ""
HTMLString_Final = HTMLString_Final & " | "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & HTMLString_Contact
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " | "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " | "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " | | "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & HTMLString
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " | "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " "
HTMLString_Final = HTMLString_Final & " | "
HTMLString_Final = HTMLString_Final & "
"
HTMLString_Final = HTMLString_Final & "
"
v_Record = v_Record + 1
HTMLString_Contact = ""
HTMLString = ""
rs.MoveNext
Loop
Set Rs = Nothing
'Other Cost Centers............................................................................
Set Rs = Server.CreateObject("ADODB.RecordSet")
v_SQLString = "SELECT CostCenter.DBA_Site, "
v_SQLString = v_SQLString + "CostCenter.CostCenterCode, "
v_SQLString = v_SQLString + "Address.Address1, "
v_SQLString = v_SQLString + "Address.Address2, "
v_SQLString = v_SQLString + "Address.City, "
v_SQLString = v_SQLString + "ref_State.Code As State, "
v_SQLString = v_SQLString + "Address.ZipCode "
v_SQLString = v_SQLString + "FROM CostCenter, ref_State, Address "
v_SQLString = v_SQLString + "WHERE Address.CostCenterCode = CostCenter.CostCenterCode "
v_SQLString = v_SQLString + "AND ref_State.StateId = Address.StateId "
v_SQLString = v_SQLString + "AND Address.StateId <> '6' "
v_SQLString = v_SQLString + "AND CostCenter.Active_LH_Site = '1' "
v_SQLString = v_SQLString + "AND Address.AddressType = 'CMA' "
v_SQLString = v_SQLString + "ORDER BY ref_State.Code"
Rs.Open v_SQLString,Conn,adOpenStatic
Do While Not rs.EOF
v_CostCenterCode = rs("CostCenterCode")
Set Rs_Contact = Server.CreateObject("ADODB.RecordSet")
v_SQLString_Contact = "SELECT "
v_SQLString_Contact = v_SQLString_Contact + "Contact.CostCenterCode, "
v_SQLString_Contact = v_SQLString_Contact + "Contact.Number, "
v_SQLString_Contact = v_SQLString_Contact + "ref_ContactType.Description "
v_SQLString_Contact = v_SQLString_Contact + "FROM Contact, ref_ContactType "
v_SQLString_Contact = v_SQLString_Contact + "WHERE Contact.CostCenterCode = '" & v_CostCenterCode & "' "
v_SQLString_Contact = v_SQLString_Contact + "AND ref_ContactType.Type = Contact.ContactType "
Rs_Contact.Open v_SQLString_Contact,Conn,adOpenStatic
HTMLString_Contact2 = ""
HTMLString_Contact2 = HTMLString_Contact2 & "| "
HTMLString_Contact2 = HTMLString_Contact2 & " "
Do While Not Rs_Contact.EOF
v_CC_Contact = Rs_Contact("CostCenterCode")
v_Number = Rs_Contact("Number")
v_FomattedWorkNumber = ""
v_FomattedWorkNumber = v_FomattedWorkNumber & Left(v_Number, 3)
v_FomattedWorkNumber = v_FomattedWorkNumber & "."
v_FomattedWorkNumber = v_FomattedWorkNumber & Mid(v_Number, 4, 3)
v_FomattedWorkNumber = v_FomattedWorkNumber & "."
v_FomattedWorkNumber = v_FomattedWorkNumber & Right(v_Number, 4) '
v_Description = Rs_Contact("Description")
HTMLString_Contact2 = HTMLString_Contact2 & v_Description + ": " + v_FomattedWorkNumber & ""
Rs_Contact.MoveNext
Loop
HTMLString_Contact2 = HTMLString_Contact2 & " |
"
v_DBA = rs("DBA_Site")
v_Address1 = rs("Address1")
v_Address2 = rs("Address2")
v_City = rs("City")
v_State = rs("State")
v_ZipCode = rs("ZipCode")
HTMLString2 = HTMLString2 & ""
HTMLString2 = HTMLString2 & " "
HTMLString2 = HTMLString2 & " "
HTMLString2 = HTMLString2 & v_Address1 & "
"
If v_Address2 <> "" Then
HTMLString2 = HTMLString2 & v_Address2 & "
"
End If
HTMLString2 = HTMLString2 & v_City & ", " & v_State & " " & v_ZipCode & "
"
'HTMLString2 = HTMLString2 & HTMLString_Contact2
HTMLString2 = HTMLString2 & " "
HTMLString2 = HTMLString2 & " | "
HTMLString2 = HTMLString2 & "
"
HTMLString2_Final = HTMLString2_Final & ""
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " | "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " " & v_DBA & ""
HTMLString2_Final = HTMLString2_Final & " | "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & HTMLString_Contact2
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " | "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " | "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " | | "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & HTMLString2
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " | "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " "
HTMLString2_Final = HTMLString2_Final & " | "
HTMLString2_Final = HTMLString2_Final & "
"
HTMLString2_Final = HTMLString2_Final & "
"
v_Record = v_Record + 1
HTMLString_Contact2 = ""
HTMLString2 = ""
rs.MoveNext
Loop
Set Rs = Nothing
'Corporate....................................................................................
Set Rs = Server.CreateObject("ADODB.RecordSet")
v_SQLString = "SELECT CostCenter.DBA_Site, "
v_SQLString = v_SQLString + "CostCenter.CostCenterCode, "
v_SQLString = v_SQLString + "Address.Address1, "
v_SQLString = v_SQLString + "Address.Address2, "
v_SQLString = v_SQLString + "Address.City, "
v_SQLString = v_SQLString + "ref_State.Code As State, "
v_SQLString = v_SQLString + "Address.ZipCode "
v_SQLString = v_SQLString + "FROM CostCenter, ref_State, Address "
v_SQLString = v_SQLString + "WHERE Address.CostCenterCode = CostCenter.CostCenterCode "
v_SQLString = v_SQLString + "AND ref_State.StateId = Address.StateId "
v_SQLString = v_SQLString + "AND Address.CostCenterCode = '1103' "
Rs.Open v_SQLString,Conn,adOpenStatic
Set Rs_Contact = Server.CreateObject("ADODB.RecordSet")
v_SQLString_Contact = "SELECT "
v_SQLString_Contact = v_SQLString_Contact + "Contact.CostCenterCode, "
v_SQLString_Contact = v_SQLString_Contact + "Contact.Number, "
v_SQLString_Contact = v_SQLString_Contact + "ref_ContactType.Description "
v_SQLString_Contact = v_SQLString_Contact + "FROM Contact, ref_ContactType "
v_SQLString_Contact = v_SQLString_Contact + "WHERE Contact.CostCenterCode = '1103' "
v_SQLString_Contact = v_SQLString_Contact + "AND ref_ContactType.Type = Contact.ContactType "
Rs_Contact.Open v_SQLString_Contact,Conn,adOpenStatic
Do While Not Rs_Contact.EOF
v_CC_Contact = Rs_Contact("CostCenterCode")
v_Number = Rs_Contact("Number")
v_FomattedWorkNumber = ""
v_FomattedWorkNumber = v_FomattedWorkNumber & Left(v_Number, 3)
v_FomattedWorkNumber = v_FomattedWorkNumber & "."
v_FomattedWorkNumber = v_FomattedWorkNumber & Mid(v_Number, 4, 3)
v_FomattedWorkNumber = v_FomattedWorkNumber & "."
v_FomattedWorkNumber = v_FomattedWorkNumber & Right(v_Number, 4) '
v_Description = Rs_Contact("Description")
HTMLString_Contact3 = HTMLString_Contact3 & v_Description + ": " + v_FomattedWorkNumber
HTMLString_Contact3 = HTMLString_Contact3 & "
"
Rs_Contact.MoveNext
Loop
v_DBA_Corporate = rs("DBA_Site")
v_Address1_Corporate = rs("Address1")
v_Address2_Corporate = rs("Address2")
v_City_Corporate = rs("City")
v_State_Corporate = rs("State")
v_ZipCode_Corporate = rs("ZipCode")
Rs.Close
Conn.Close
%>
Land/Home Financial Services • 800-241-5263
 |
|
|
|
|
|
|
|
| Land/Home Financial's Office Locations |
|
| Corporate Office Location |
|
|
|
<%=HTMLString_Contact3%>
|
<%=v_Address1_Corporate%>, <%=v_Address2_Corporate%>
<%=v_City_Corporate%>, <%=v_State_Corporate%> <%=v_ZipCode_Corporate%> |
|
|
| California Locations |
|
|
|
|
<%=HTMLString_Final%>
|
| Across the United States |
|
|
|
<%=HTMLString2_Final%>
|
|
|
|
|
|
|
|
|
 |
|
|
