<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_connApp_STRING MM_editTable = "pointdata" MM_editRedirectUrl = "thankyou.asp" MM_fieldsStr = "bor firstname|value|bor lastname|value|bor age|value|bor ssn|value|bor street|value|bor city|value|bor state|value|bor zip|value|bor hometel|value|bor worktel|value|bor email|value|cobor firstname|value|cobor lastname|value|cobor age|value|cobor ssn|value|cobor street|value|cobor city|value|cobor state|value|cobor zip|value|cobor hometel|value|cobor worktel|value|cobor email|value|bor employer|value|bor empyears|value|bor position|value|bor gross|value|cobor employer|value|cobor empyears|value|cobor position|value|cobor gross|value|checking|value|savings|value|investments|value|creditor1|value|payment1|value|creditor2|value|payment2|value|creditor3|value|payment3|value|creditor4|value|payment4|value|creditor5|value|payment5|value|creditor6|value|payment6|value|alimony|value|bankruptcy|value|reachphone|value" MM_columnsStr = "[bor firstname]|',none,''|[bor lastname]|',none,''|[bor age]|',none,''|[bor ssn]|',none,''|[bor street]|',none,''|[bor city]|',none,''|[bor state]|',none,''|[bor zip]|',none,''|[bor hometel]|',none,''|[bor worktel]|',none,''|[bor email]|',none,''|[cobor firstname]|',none,''|[cobor lastname]|',none,''|[cobor age]|',none,''|[cobor ssn]|',none,''|[cobor street]|',none,''|[cobor city]|',none,''|[cobor state]|',none,''|[cobor zip]|',none,''|[cobor hometel]|',none,''|[cobor worktel]|',none,''|[cobor email]|',none,''|[bor employer]|',none,''|[bor empyears]|',none,''|[bor position]|',none,''|[bor gross]|',none,''|[cobor employer]|',none,''|[cobor empyears]|',none,''|[cobor position]|',none,''|[cobor gross]|',none,''|checking|',none,''|savings|',none,''|investments|',none,''|creditor1|',none,''|payment1|',none,''|creditor2|',none,''|payment2|',none,''|creditor3|',none,''|payment3|',none,''|creditor4|',none,''|payment4|',none,''|creditor5|',none,''|payment5|',none,''|creditor6|',none,''|payment6|',none,''|alimony|',none,''|bankruptcy|',none,''|reachphone|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% set rsNavigation = Server.CreateObject("ADODB.Recordset") rsNavigation.ActiveConnection = MM_connCategories_STRING rsNavigation.Source = "SELECT category_ID, category_name FROM categories ORDER BY order_by ASC" rsNavigation.CursorType = 0 rsNavigation.CursorLocation = 2 rsNavigation.LockType = 3 rsNavigation.Open() rsNavigation_numRows = 0 %> <% set rsApp = Server.CreateObject("ADODB.Recordset") rsApp.ActiveConnection = MM_connApp_STRING rsApp.Source = "SELECT * FROM pointdata" rsApp.CursorType = 0 rsApp.CursorLocation = 2 rsApp.LockType = 3 rsApp.Open() rsApp_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsNavigation_numRows = rsNavigation_numRows + Repeat1__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> City Creek Mortgage

<% While ((Repeat1__numRows <> 0) AND (NOT rsNavigation.EOF)) %>
" class="lnk"><%=(rsNavigation.Fields.Item("category_name").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNavigation.MoveNext() Wend %>

"The Highest Compliment I can ever receive is a personal referral
from you."

APPLY NOW

CONGRATULATIONS!
You can now be pre-qualified in just a few simple steps!

Thank you for choosing our express approval system; your satisfaction is our highest priority. Simply fill out the form below to complete the quick and easy application process. You will receive your approval status within 24 hours. At City Creek Mortgage Corporation we are continually pursuing innovative methods to better serve our clients.


Borrower:
First Name:
Last Name:
Age:
SSN:
Address:
City:
State:
Zip:
Home Phone:
Work Phone:
Email:
 
Co-Borrower:
First Name:
Last Name:
Age:
SSN:
Address:
City:
State:
Zip:
Home Phone:
Work Phone:
Email:
 
Borrower's Employment:
Employer:
# of Years:
Position:
Gross Monthly Earnings: $
 
Co-Borrower's Employment:
Employer:
# of Years:
Position:
Gross Monthly Earnings: $
   
Assets: (Borrower and Co-Borrower Combined)
Checking: $
Savings: $
Investments: $
   
Liabilities:
Creditor:
Payment: $
Creditor:
Payment: $
Creditor:
Payment: $
Creditor:
Payment: $
Creditor:
Payment: $
Creditor:
Payment: $
   
Other:
Are you obligated to pay alimony, child support, or separate maintenance?
Amount: $
In the last 7 years have you had a bankruptcy?
 Yes No
Phone number where you can be reached during business hours?
Phone Number:

 


 

<% rsNavigation.Close() %> <% rsApp.Close() %>