<% 'Database Connection String; 'Server.MapPath = the location of the database on the server 'please change the path to the correct path on your server Set objADO = Server.CreateObject("ADODB.Connection") sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\fsboREplus.mdb") & ";" objADO.Open sDSN 'Contact Variables; Used in contact.asp and other pages that contain the contact info. 'These variables are pulled from the table TblConfig and these values can 'be edited through the site admin control panel. Do not edit the values in this page. ' Create a recordset object to store specific table information Set objConfig = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblConfig" 'Set the recordset object equal to the SQL query string objConfig.Open SQL, objADO, 1, 3 strVarCompany = objConfig("Company") strVarAddress = objConfig("CompanyAddress") strVarCity = objConfig("CompanyCity") strVarState = objConfig("CompanyState") strVarZip = objConfig("CompanyZip") strVarCountry = objConfig("CompanyCountry") strVarEmail = objConfig("CompanyEmail") strVarPhone = objConfig("CompanyPhone") strVarFax = objConfig("CompanyFax") strVarMainContact = objConfig("CompanyContact") strVarWebsite = objConfig("CompanyWebsite") strVarBGColor = objConfig("BGColor") strSlogan = objConfig("Slogan") strOfferAdvertising = objConfig("OfferAdvertising") str1000ImpressionsAdCost = objConfig("1000ImpressionsCost") str5000ImpressionsAdCost = objConfig("5000ImpressionsCost") str10000ImpressionsAdCost = objConfig("10000ImpressionsCost") str50000ImpressionsAdCost = objConfig("50000ImpressionsCost") str100000ImpressionsAdCost = objConfig("100000ImpressionsCost") strServiceType = objConfig("ServiceType") strServiceAdCost = objConfig("ServiceAdCost") strAgentList = objConfig("AgentList") strLogo = objConfig("logo") strKeywords = objConfig("Keywords") strMetaDescription = objConfig("MetaDescription") 'PAYPAL VARIABLES - See PaypalCode.doc located in the documentation folder 'These variables are pulled from the table TblConfig and these values can 'be edited through the site admin control panel. Do not edit the values in this page. 'Email address the payment should be sent to strPayPalEmail = objConfig("PayPalEmail") strAgentFeatured1MonthCost = objConfig("AgentFeatured1MonthCost") strAgentFeatured3MonthCost = objConfig("AgentFeatured3MonthCost") strAgentFeatured6MonthCost = objConfig("AgentFeatured6MonthCost") strAgentFeatured12MonthCost = objConfig("AgentFeatured12MonthCost") strAgentStandard1MonthCost = objConfig("AgentStandard1MonthCost") strAgentStandard3MonthCost = objConfig("AgentStandard3MonthCost") strAgentStandard6MonthCost = objConfig("AgentStandard6MonthCost") strAgentStandard12MonthCost = objConfig("AgentStandard12MonthCost") strUserFeatured1MonthCost = objConfig("UserFeatured1MonthCost") strUserFeatured3MonthCost = objConfig("UserFeatured3MonthCost") strUserFeatured6MonthCost = objConfig("UserFeatured6MonthCost") strUserFeatured12MonthCost = objConfig("UserFeatured12MonthCost") strUserStandard1MonthCost = objConfig("UserStandard1MonthCost") strUserStandard3MonthCost = objConfig("UserStandard3MonthCost") strUserStandard6MonthCost = objConfig("UserStandard6MonthCost") strUserStandard12MonthCost = objConfig("UserStandard12MonthCost") 'Description of the service to appear on the Featured Listing receipt strFeaturedAdDescription = "Featured Listing on " & strVarWebsite 'Description of the service to appear on the Regular Listing receipt strStandardAdDescription = "Standard Listing on " & strVarWebsite 'Description of the service to appear on the Upgrade Listing receipt strUpgradeAdDescription = "Upgrade Listing on " & strVarWebsite 'Cost you want to charge for the listing strUpgradeAdCost = objConfig("UpgradeAdCost") 'whether ads are paid or free strListingType = objConfig("ListingType") 'Page that the user should return to after making payment for featured ad; 'They should return to page step1F.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1F.asp strPayPalReturnPageFeatured = strVarWebsite + "/featuredsuccess.asp" 'Page that the user should return to after making payment for regular ad; 'They should return to page step1.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1.asp strPayPalReturnPageRegular = strVarWebsite + "/standardsuccess.asp" 'Page that the user should return to after making payment for regular ad; 'They should return to page step1.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1.asp strPayPalReturnPageUpgrade = strVarWebsite + "/upgradesuccess.asp" 'Page that the user should return to if cancelling before completing PayPal payment; 'They should return to page cancel.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/cancel.asp strPayPalCancel = strVarWebsite + "/cancel.asp" %> <% Sub CreateRoomCombo(iCount)%> <% End Sub Sub CreateFlooringCombo(iCount)%> <% End Sub ' Formats a given 10 digit number into a nice looking phone number ' Example: given strNumber of 8005551212 you get (800) 555-1212 Function FormatPhoneNumber(strNumber) Dim strInput ' String to hold our entered number Dim strTemp ' Temporary string to hold our working text Dim strCurrentChar ' Var for storing each character for eval. Dim I ' Looping var ' Uppercase all characters for consistency strInput = UCase(strNumber) ' To be able to handle some pretty bad formatting, strip out ' all characters except for chars A to Z and digits 0 to 9 ' before proceeding. I left in the chars for slogan ' numbers like 1-800-GET-CASH etc... For I = 1 To Len(strInput) strCurrentChar = Mid(strInput, I, 1) ' Numbers (0 to 9) If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then strTemp = strTemp & strCurrentChar End If ' Upper Case Chars (A to Z) If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then strTemp = strTemp & strCurrentChar End If Next 'I ' Swap strTemp back to strInput for next set of validation strInput = strTemp strTemp = "" ' Remove leading 1 if applicable If Len(strInput) = 11 And Left(strInput, 1) = "1" Then strInput = Right(strInput, 10) End If ' Error catch to make sure strInput is proper length now that ' we've finished manipulating it. If Not Len(strInput) = 10 Then ' Handle errors. Err.Raise 1, "FormatPhoneNumber function", _ "The phone number to be formatted must be a valid 10 digit US phone number!" End If ' If an error occurred then the rest of this won't get processed. ' Build the output formatted string ' (xxx) xxx-xxxx strTemp = "(" ' "(" strTemp = strTemp & Left(strInput, 3) ' Area code strTemp = strTemp & ") " ' ") " strTemp = strTemp & Mid(strInput, 4, 3) ' Exchange strTemp = strTemp & "-" ' "-" strTemp = strTemp & Right(strInput, 4) ' 4 digit part ' Set return value FormatPhoneNumber = strTemp End Function sub openrs(rs, sql) Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = adUseServer rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText end sub function ToHTML(strValue) if IsNull(strValue) then ToHTML = "" else ToHTML = Server.HTMLEncode(strValue) end if end function function ToURL(strValue) if IsNull(strValue) then strValue = "" ToURL = Server.URLEncode(strValue) end function function GetValueHTML(rs, strFieldName) GetValueHTML = ToHTML(GetValue(rs, strFieldName)) end function function GetValue(rs, strFieldName) on error resume next if rs is nothing then GetValue = "" elseif (not rs.EOF) and (strFieldName <> "") then res = rs(strFieldName) if isnull(res) then res = "" end if GetValue = res else GetValue = "" end if if bDebug then response.write err.Description end function function GetParam(ParamName) if Request.QueryString(ParamName).Count > 0 then Param = Request.QueryString(ParamName) elseif Request.Form(ParamName).Count > 0 then Param = Request.Form(ParamName) else Param = "" end if if Param = "" then GetParam = Empty else GetParam = Param end if end function Function ToSQL(Value, sType) Param = Value if Param = "" then ToSQL = "Null" else if sType = "Number" then ToSQL = CDbl(Param) else ToSQL = "'" & Replace(Param, "'", "''") & "'" end if end if end function function DLookUp(Table, fName, sWhere) on error resume next Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value if IsNull(Res) then Res = "" DLookUp = Res end function function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType) if isempty(sVal) then if UnCheckedValue = "" then getCheckBoxValue = "Null" else if sType = "Number" then getCheckBoxValue = UnCheckedValue else getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'" end if end if else if CheckedValue = "" then getCheckBoxValue = "Null" else if sType = "Number" then getCheckBoxValue = CheckedValue else getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'" end if end if end if end function function getValFromLOV(sVal, aArr) sRes = "" if (ubound(aArr) mod 2) = 1 then for i = 0 to ubound(aArr) step 2 if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1) next end if getValFromLOV = sRes end function function get_options(sql,is_search,is_required,selected_value) options_str="" if is_search then options_str=options_str&"" else if is_required then options_str=options_str&"" end if openrs tmprs,sql while not tmprs.EOF id=GetValue(tmprs, 0) value=GetValue(tmprs, 1) selected="" if CStr(id) = CStr(selected_value) then selected = "SELECTED" end if options_str = options_str & "" tmprs.MoveNext wend get_options = options_str end function Function ProceedError() if cn.Errors.Count > 0 then ProceedError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")" elseif not (Err.Description = "") then ProceedError = Err.Description else ProceedError = "" end if end Function function CheckSecurity(iLevel) if Session("UserID") = "" then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) else if CLng(Session("UserRights")) < CLng(iLevel) then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) End if end function %> <% 'Database Connection String; 'Server.MapPath = the location of the database on the server 'please change the path to the correct path on your server Set objADO = Server.CreateObject("ADODB.Connection") sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\fsboREplus.mdb") & ";" objADO.Open sDSN 'Contact Variables; Used in contact.asp and other pages that contain the contact info. 'These variables are pulled from the table TblConfig and these values can 'be edited through the site admin control panel. Do not edit the values in this page. ' Create a recordset object to store specific table information Set objConfig = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblConfig" 'Set the recordset object equal to the SQL query string objConfig.Open SQL, objADO, 1, 3 strVarCompany = objConfig("Company") strVarAddress = objConfig("CompanyAddress") strVarCity = objConfig("CompanyCity") strVarState = objConfig("CompanyState") strVarZip = objConfig("CompanyZip") strVarCountry = objConfig("CompanyCountry") strVarEmail = objConfig("CompanyEmail") strVarPhone = objConfig("CompanyPhone") strVarFax = objConfig("CompanyFax") strVarMainContact = objConfig("CompanyContact") strVarWebsite = objConfig("CompanyWebsite") strVarBGColor = objConfig("BGColor") strSlogan = objConfig("Slogan") strOfferAdvertising = objConfig("OfferAdvertising") str1000ImpressionsAdCost = objConfig("1000ImpressionsCost") str5000ImpressionsAdCost = objConfig("5000ImpressionsCost") str10000ImpressionsAdCost = objConfig("10000ImpressionsCost") str50000ImpressionsAdCost = objConfig("50000ImpressionsCost") str100000ImpressionsAdCost = objConfig("100000ImpressionsCost") strServiceType = objConfig("ServiceType") strServiceAdCost = objConfig("ServiceAdCost") strAgentList = objConfig("AgentList") strLogo = objConfig("logo") strKeywords = objConfig("Keywords") strMetaDescription = objConfig("MetaDescription") 'PAYPAL VARIABLES - See PaypalCode.doc located in the documentation folder 'These variables are pulled from the table TblConfig and these values can 'be edited through the site admin control panel. Do not edit the values in this page. 'Email address the payment should be sent to strPayPalEmail = objConfig("PayPalEmail") strAgentFeatured1MonthCost = objConfig("AgentFeatured1MonthCost") strAgentFeatured3MonthCost = objConfig("AgentFeatured3MonthCost") strAgentFeatured6MonthCost = objConfig("AgentFeatured6MonthCost") strAgentFeatured12MonthCost = objConfig("AgentFeatured12MonthCost") strAgentStandard1MonthCost = objConfig("AgentStandard1MonthCost") strAgentStandard3MonthCost = objConfig("AgentStandard3MonthCost") strAgentStandard6MonthCost = objConfig("AgentStandard6MonthCost") strAgentStandard12MonthCost = objConfig("AgentStandard12MonthCost") strUserFeatured1MonthCost = objConfig("UserFeatured1MonthCost") strUserFeatured3MonthCost = objConfig("UserFeatured3MonthCost") strUserFeatured6MonthCost = objConfig("UserFeatured6MonthCost") strUserFeatured12MonthCost = objConfig("UserFeatured12MonthCost") strUserStandard1MonthCost = objConfig("UserStandard1MonthCost") strUserStandard3MonthCost = objConfig("UserStandard3MonthCost") strUserStandard6MonthCost = objConfig("UserStandard6MonthCost") strUserStandard12MonthCost = objConfig("UserStandard12MonthCost") 'Description of the service to appear on the Featured Listing receipt strFeaturedAdDescription = "Featured Listing on " & strVarWebsite 'Description of the service to appear on the Regular Listing receipt strStandardAdDescription = "Standard Listing on " & strVarWebsite 'Description of the service to appear on the Upgrade Listing receipt strUpgradeAdDescription = "Upgrade Listing on " & strVarWebsite 'Cost you want to charge for the listing strUpgradeAdCost = objConfig("UpgradeAdCost") 'whether ads are paid or free strListingType = objConfig("ListingType") 'Page that the user should return to after making payment for featured ad; 'They should return to page step1F.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1F.asp strPayPalReturnPageFeatured = strVarWebsite + "/featuredsuccess.asp" 'Page that the user should return to after making payment for regular ad; 'They should return to page step1.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1.asp strPayPalReturnPageRegular = strVarWebsite + "/standardsuccess.asp" 'Page that the user should return to after making payment for regular ad; 'They should return to page step1.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1.asp strPayPalReturnPageUpgrade = strVarWebsite + "/upgradesuccess.asp" 'Page that the user should return to if cancelling before completing PayPal payment; 'They should return to page cancel.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/cancel.asp strPayPalCancel = strVarWebsite + "/cancel.asp" %> <% Sub CreateRoomCombo(iCount)%> <% End Sub Sub CreateFlooringCombo(iCount)%> <% End Sub ' Formats a given 10 digit number into a nice looking phone number ' Example: given strNumber of 8005551212 you get (800) 555-1212 Function FormatPhoneNumber(strNumber) Dim strInput ' String to hold our entered number Dim strTemp ' Temporary string to hold our working text Dim strCurrentChar ' Var for storing each character for eval. Dim I ' Looping var ' Uppercase all characters for consistency strInput = UCase(strNumber) ' To be able to handle some pretty bad formatting, strip out ' all characters except for chars A to Z and digits 0 to 9 ' before proceeding. I left in the chars for slogan ' numbers like 1-800-GET-CASH etc... For I = 1 To Len(strInput) strCurrentChar = Mid(strInput, I, 1) ' Numbers (0 to 9) If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then strTemp = strTemp & strCurrentChar End If ' Upper Case Chars (A to Z) If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then strTemp = strTemp & strCurrentChar End If Next 'I ' Swap strTemp back to strInput for next set of validation strInput = strTemp strTemp = "" ' Remove leading 1 if applicable If Len(strInput) = 11 And Left(strInput, 1) = "1" Then strInput = Right(strInput, 10) End If ' Error catch to make sure strInput is proper length now that ' we've finished manipulating it. If Not Len(strInput) = 10 Then ' Handle errors. Err.Raise 1, "FormatPhoneNumber function", _ "The phone number to be formatted must be a valid 10 digit US phone number!" End If ' If an error occurred then the rest of this won't get processed. ' Build the output formatted string ' (xxx) xxx-xxxx strTemp = "(" ' "(" strTemp = strTemp & Left(strInput, 3) ' Area code strTemp = strTemp & ") " ' ") " strTemp = strTemp & Mid(strInput, 4, 3) ' Exchange strTemp = strTemp & "-" ' "-" strTemp = strTemp & Right(strInput, 4) ' 4 digit part ' Set return value FormatPhoneNumber = strTemp End Function sub openrs(rs, sql) Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = adUseServer rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText end sub function ToHTML(strValue) if IsNull(strValue) then ToHTML = "" else ToHTML = Server.HTMLEncode(strValue) end if end function function ToURL(strValue) if IsNull(strValue) then strValue = "" ToURL = Server.URLEncode(strValue) end function function GetValueHTML(rs, strFieldName) GetValueHTML = ToHTML(GetValue(rs, strFieldName)) end function function GetValue(rs, strFieldName) on error resume next if rs is nothing then GetValue = "" elseif (not rs.EOF) and (strFieldName <> "") then res = rs(strFieldName) if isnull(res) then res = "" end if GetValue = res else GetValue = "" end if if bDebug then response.write err.Description end function function GetParam(ParamName) if Request.QueryString(ParamName).Count > 0 then Param = Request.QueryString(ParamName) elseif Request.Form(ParamName).Count > 0 then Param = Request.Form(ParamName) else Param = "" end if if Param = "" then GetParam = Empty else GetParam = Param end if end function Function ToSQL(Value, sType) Param = Value if Param = "" then ToSQL = "Null" else if sType = "Number" then ToSQL = CDbl(Param) else ToSQL = "'" & Replace(Param, "'", "''") & "'" end if end if end function function DLookUp(Table, fName, sWhere) on error resume next Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value if IsNull(Res) then Res = "" DLookUp = Res end function function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType) if isempty(sVal) then if UnCheckedValue = "" then getCheckBoxValue = "Null" else if sType = "Number" then getCheckBoxValue = UnCheckedValue else getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'" end if end if else if CheckedValue = "" then getCheckBoxValue = "Null" else if sType = "Number" then getCheckBoxValue = CheckedValue else getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'" end if end if end if end function function getValFromLOV(sVal, aArr) sRes = "" if (ubound(aArr) mod 2) = 1 then for i = 0 to ubound(aArr) step 2 if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1) next end if getValFromLOV = sRes end function function get_options(sql,is_search,is_required,selected_value) options_str="" if is_search then options_str=options_str&"" else if is_required then options_str=options_str&"" end if openrs tmprs,sql while not tmprs.EOF id=GetValue(tmprs, 0) value=GetValue(tmprs, 1) selected="" if CStr(id) = CStr(selected_value) then selected = "SELECTED" end if options_str = options_str & "" tmprs.MoveNext wend get_options = options_str end function Function ProceedError() if cn.Errors.Count > 0 then ProceedError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")" elseif not (Err.Description = "") then ProceedError = Err.Description else ProceedError = "" end if end Function function CheckSecurity(iLevel) if Session("UserID") = "" then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) else if CLng(Session("UserRights")) < CLng(iLevel) then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) End if end function %> <%= strVarCompany %> - <%= objConfig("Keywords") %> <% strUserName = session("UserName") %>
<% 'Database Connection String; 'Server.MapPath = the location of the database on the server 'please change the path to the correct path on your server Set objADO = Server.CreateObject("ADODB.Connection") sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\fsboREplus.mdb") & ";" objADO.Open sDSN 'Contact Variables; Used in contact.asp and other pages that contain the contact info. 'These variables are pulled from the table TblConfig and these values can 'be edited through the site admin control panel. Do not edit the values in this page. ' Create a recordset object to store specific table information Set objConfig = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblConfig" 'Set the recordset object equal to the SQL query string objConfig.Open SQL, objADO, 1, 3 strVarCompany = objConfig("Company") strVarAddress = objConfig("CompanyAddress") strVarCity = objConfig("CompanyCity") strVarState = objConfig("CompanyState") strVarZip = objConfig("CompanyZip") strVarCountry = objConfig("CompanyCountry") strVarEmail = objConfig("CompanyEmail") strVarPhone = objConfig("CompanyPhone") strVarFax = objConfig("CompanyFax") strVarMainContact = objConfig("CompanyContact") strVarWebsite = objConfig("CompanyWebsite") strVarBGColor = objConfig("BGColor") strSlogan = objConfig("Slogan") strOfferAdvertising = objConfig("OfferAdvertising") str1000ImpressionsAdCost = objConfig("1000ImpressionsCost") str5000ImpressionsAdCost = objConfig("5000ImpressionsCost") str10000ImpressionsAdCost = objConfig("10000ImpressionsCost") str50000ImpressionsAdCost = objConfig("50000ImpressionsCost") str100000ImpressionsAdCost = objConfig("100000ImpressionsCost") strServiceType = objConfig("ServiceType") strServiceAdCost = objConfig("ServiceAdCost") strAgentList = objConfig("AgentList") strLogo = objConfig("logo") strKeywords = objConfig("Keywords") strMetaDescription = objConfig("MetaDescription") 'PAYPAL VARIABLES - See PaypalCode.doc located in the documentation folder 'These variables are pulled from the table TblConfig and these values can 'be edited through the site admin control panel. Do not edit the values in this page. 'Email address the payment should be sent to strPayPalEmail = objConfig("PayPalEmail") strAgentFeatured1MonthCost = objConfig("AgentFeatured1MonthCost") strAgentFeatured3MonthCost = objConfig("AgentFeatured3MonthCost") strAgentFeatured6MonthCost = objConfig("AgentFeatured6MonthCost") strAgentFeatured12MonthCost = objConfig("AgentFeatured12MonthCost") strAgentStandard1MonthCost = objConfig("AgentStandard1MonthCost") strAgentStandard3MonthCost = objConfig("AgentStandard3MonthCost") strAgentStandard6MonthCost = objConfig("AgentStandard6MonthCost") strAgentStandard12MonthCost = objConfig("AgentStandard12MonthCost") strUserFeatured1MonthCost = objConfig("UserFeatured1MonthCost") strUserFeatured3MonthCost = objConfig("UserFeatured3MonthCost") strUserFeatured6MonthCost = objConfig("UserFeatured6MonthCost") strUserFeatured12MonthCost = objConfig("UserFeatured12MonthCost") strUserStandard1MonthCost = objConfig("UserStandard1MonthCost") strUserStandard3MonthCost = objConfig("UserStandard3MonthCost") strUserStandard6MonthCost = objConfig("UserStandard6MonthCost") strUserStandard12MonthCost = objConfig("UserStandard12MonthCost") 'Description of the service to appear on the Featured Listing receipt strFeaturedAdDescription = "Featured Listing on " & strVarWebsite 'Description of the service to appear on the Regular Listing receipt strStandardAdDescription = "Standard Listing on " & strVarWebsite 'Description of the service to appear on the Upgrade Listing receipt strUpgradeAdDescription = "Upgrade Listing on " & strVarWebsite 'Cost you want to charge for the listing strUpgradeAdCost = objConfig("UpgradeAdCost") 'whether ads are paid or free strListingType = objConfig("ListingType") 'Page that the user should return to after making payment for featured ad; 'They should return to page step1F.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1F.asp strPayPalReturnPageFeatured = strVarWebsite + "/featuredsuccess.asp" 'Page that the user should return to after making payment for regular ad; 'They should return to page step1.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1.asp strPayPalReturnPageRegular = strVarWebsite + "/standardsuccess.asp" 'Page that the user should return to after making payment for regular ad; 'They should return to page step1.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1.asp strPayPalReturnPageUpgrade = strVarWebsite + "/upgradesuccess.asp" 'Page that the user should return to if cancelling before completing PayPal payment; 'They should return to page cancel.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/cancel.asp strPayPalCancel = strVarWebsite + "/cancel.asp" %> <% Sub CreateRoomCombo(iCount)%> <% End Sub Sub CreateFlooringCombo(iCount)%> <% End Sub ' Formats a given 10 digit number into a nice looking phone number ' Example: given strNumber of 8005551212 you get (800) 555-1212 Function FormatPhoneNumber(strNumber) Dim strInput ' String to hold our entered number Dim strTemp ' Temporary string to hold our working text Dim strCurrentChar ' Var for storing each character for eval. Dim I ' Looping var ' Uppercase all characters for consistency strInput = UCase(strNumber) ' To be able to handle some pretty bad formatting, strip out ' all characters except for chars A to Z and digits 0 to 9 ' before proceeding. I left in the chars for slogan ' numbers like 1-800-GET-CASH etc... For I = 1 To Len(strInput) strCurrentChar = Mid(strInput, I, 1) ' Numbers (0 to 9) If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then strTemp = strTemp & strCurrentChar End If ' Upper Case Chars (A to Z) If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then strTemp = strTemp & strCurrentChar End If Next 'I ' Swap strTemp back to strInput for next set of validation strInput = strTemp strTemp = "" ' Remove leading 1 if applicable If Len(strInput) = 11 And Left(strInput, 1) = "1" Then strInput = Right(strInput, 10) End If ' Error catch to make sure strInput is proper length now that ' we've finished manipulating it. If Not Len(strInput) = 10 Then ' Handle errors. Err.Raise 1, "FormatPhoneNumber function", _ "The phone number to be formatted must be a valid 10 digit US phone number!" End If ' If an error occurred then the rest of this won't get processed. ' Build the output formatted string ' (xxx) xxx-xxxx strTemp = "(" ' "(" strTemp = strTemp & Left(strInput, 3) ' Area code strTemp = strTemp & ") " ' ") " strTemp = strTemp & Mid(strInput, 4, 3) ' Exchange strTemp = strTemp & "-" ' "-" strTemp = strTemp & Right(strInput, 4) ' 4 digit part ' Set return value FormatPhoneNumber = strTemp End Function sub openrs(rs, sql) Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = adUseServer rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText end sub function ToHTML(strValue) if IsNull(strValue) then ToHTML = "" else ToHTML = Server.HTMLEncode(strValue) end if end function function ToURL(strValue) if IsNull(strValue) then strValue = "" ToURL = Server.URLEncode(strValue) end function function GetValueHTML(rs, strFieldName) GetValueHTML = ToHTML(GetValue(rs, strFieldName)) end function function GetValue(rs, strFieldName) on error resume next if rs is nothing then GetValue = "" elseif (not rs.EOF) and (strFieldName <> "") then res = rs(strFieldName) if isnull(res) then res = "" end if GetValue = res else GetValue = "" end if if bDebug then response.write err.Description end function function GetParam(ParamName) if Request.QueryString(ParamName).Count > 0 then Param = Request.QueryString(ParamName) elseif Request.Form(ParamName).Count > 0 then Param = Request.Form(ParamName) else Param = "" end if if Param = "" then GetParam = Empty else GetParam = Param end if end function Function ToSQL(Value, sType) Param = Value if Param = "" then ToSQL = "Null" else if sType = "Number" then ToSQL = CDbl(Param) else ToSQL = "'" & Replace(Param, "'", "''") & "'" end if end if end function function DLookUp(Table, fName, sWhere) on error resume next Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value if IsNull(Res) then Res = "" DLookUp = Res end function function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType) if isempty(sVal) then if UnCheckedValue = "" then getCheckBoxValue = "Null" else if sType = "Number" then getCheckBoxValue = UnCheckedValue else getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'" end if end if else if CheckedValue = "" then getCheckBoxValue = "Null" else if sType = "Number" then getCheckBoxValue = CheckedValue else getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'" end if end if end if end function function getValFromLOV(sVal, aArr) sRes = "" if (ubound(aArr) mod 2) = 1 then for i = 0 to ubound(aArr) step 2 if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1) next end if getValFromLOV = sRes end function function get_options(sql,is_search,is_required,selected_value) options_str="" if is_search then options_str=options_str&"" else if is_required then options_str=options_str&"" end if openrs tmprs,sql while not tmprs.EOF id=GetValue(tmprs, 0) value=GetValue(tmprs, 1) selected="" if CStr(id) = CStr(selected_value) then selected = "SELECTED" end if options_str = options_str & "" tmprs.MoveNext wend get_options = options_str end function Function ProceedError() if cn.Errors.Count > 0 then ProceedError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")" elseif not (Err.Description = "") then ProceedError = Err.Description else ProceedError = "" end if end Function function CheckSecurity(iLevel) if Session("UserID") = "" then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) else if CLng(Session("UserRights")) < CLng(iLevel) then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) End if end function %> <% TodayDate = Now() TodayDate = FormatDateTime(TodayDate, VBShortDate) Set RS=Server.CreateObject("ADODB.RecordSet") SQL = vbNullString SQL = SQL & "UPDATE Clients " SQL = SQL & "SET Status='DontShow' WHERE ImpPur < ImpNow" objADO.execute(SQL) Set RS = Nothing Set RS=Server.CreateObject("ADODB.RecordSet") Query = "SELECT * FROM Clients WHERE Status='Show' AND StartDate <= #" & TodayDate & "#" RS.Open Query, objADO, 3, 3 IF (RS.EOF) THEN ShowBanner = "default" %> <% Else rndMax = CInt(RS.RecordCount) RS.MoveFirst Do While Not RS.EOF RS.MoveNext Loop RS.MoveFirst Randomize Timer rndNumber = Int(RND * rndMax) RS.Move rndNumber Id = RS("AdID") UrlTo = RS("LinkTo") GetImg = RS("ImgUrl") WriteSize1 = RS("SizeOf1") WriteSize2 = RS("SizeOf2") DisText = RS("TextUnder") ImpNow = RS("ImpNow") ImpNewNow = ImpNow + 1 Set RS = Nothing Set RS=Server.CreateObject("ADODB.RecordSet") SQL = vbNullString SQL = SQL & "UPDATE Clients " SQL = SQL & "SET ImpNow="&ImpNewNow&" WHERE AdID="&Id&"" objADO.execute(SQL) Set RS = Nothing End If %> <%=DisText%>
Home | Get Listed! | <% if strUserName = "" then %> Create An Account | <% end if %> <% if strUserName = "" then %> Member Login <% end if %> <% if strUserName <> "" then %> Logout <% end if %> | <% if strUserName <> "" then %> Control Panel | <% end if %> Search Listings | View Featured | Newest Properties | Testimonials
Seller Tools | Buyer Tools | Find An Agent | Services Directory | Mortgage Center <% if strOfferAdvertising = "Yes" then %> | Advertising <% end if %> | News | About Us | Contact
<% strMailSubmit = request("cmdMailSubmit") strSearchId = request("cmdSearchId") strEmail = request("txtEmail") strSiteId = request("txtSiteId") 'This code only runs if the submit button is clicked if Request.Form <> "" and strSearchId <> "" then if strSiteId = "" then SiteIdmsg = "You must enter a site id to search." end if if SiteIdmsg = "" then ' Create a recordset object to store specific table information Set objSearch = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From REListing where REListingId=" & strSiteId 'Set the recordset object equal to the SQL query string objSearch.Open SQL, objADO, 1, 3 if objSearch.EOF then SiteIdmsg = "Site Id " & strSiteId & " does not exist in our database. Please try again." else Response.Redirect "detail.asp?Id=" & strSiteId end if end if end if if Request.Form <> "" and strMailSubmit <> "" then if strEmail = "" then strMailWarning = "You must type an email address to join our mailing list." end if 'Make sure a valid email address if strEmail <> "" and (instr( strEmail, "@") = 0 or instr( strEmail, ".") = 0) then strMailWarning = "
Email Address must be in the form account@server.com." end if if strMailWarning = "" then ' Create a recordset object to store specific table information Set objEmail = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblEmail where (EmailAddress = '" + strEmail + "')" 'Set the recordset object equal to the SQL query string objEmail.Open SQL, objADO, 1, 3 if objEmail.EOF then objEmail.addnew objEmail("EmailAddress") = strEmail objEmail("DateAdded") = Date() objEmail.update strMailWarning ="
Your email address has been sucessfully added to our mailing list." 'Mail STATING you hate to see them go and link if they want to subscribe again. ' Create a recordset object to store specific table information strSubject = strVarCompany & " Mail Subscription Request" strBody = strBody + "Your email address has been successfully added to our mailing list." &vbcrlf strBody = strBody + "Thank you for being a subscriber." & vbcrlf strBody = strBody + "To unsubscribe, use the url " & strVarWebsite & "." & vbcrlf strBody = strBody + "Again thank you for being a subscriber." Set objNewMail = Server.CreateObject("CDONTS.NewMail") objNewMail.From = strVarEmail objNewMail.To = strEmail objNewMail.Subject = strSubject objNewMail.BodyFormat = 1 'objNewMail.MailFormat = 1 objNewMail.Body = strBody objNewMail.Send() else strMailWarning = "
That Email Address already joined our mailing list." end if end if end if %>
FEATURED PROPERTY LISTINGS
Feature your property on our site and sell fast!
Click Here to find out how.
<% 'Database Connection String; 'Server.MapPath = the location of the database on the server 'please change the path to the correct path on your server Set objADO = Server.CreateObject("ADODB.Connection") sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db\fsboREplus.mdb") & ";" objADO.Open sDSN 'Contact Variables; Used in contact.asp and other pages that contain the contact info. 'These variables are pulled from the table TblConfig and these values can 'be edited through the site admin control panel. Do not edit the values in this page. ' Create a recordset object to store specific table information Set objConfig = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblConfig" 'Set the recordset object equal to the SQL query string objConfig.Open SQL, objADO, 1, 3 strVarCompany = objConfig("Company") strVarAddress = objConfig("CompanyAddress") strVarCity = objConfig("CompanyCity") strVarState = objConfig("CompanyState") strVarZip = objConfig("CompanyZip") strVarCountry = objConfig("CompanyCountry") strVarEmail = objConfig("CompanyEmail") strVarPhone = objConfig("CompanyPhone") strVarFax = objConfig("CompanyFax") strVarMainContact = objConfig("CompanyContact") strVarWebsite = objConfig("CompanyWebsite") strVarBGColor = objConfig("BGColor") strSlogan = objConfig("Slogan") strOfferAdvertising = objConfig("OfferAdvertising") str1000ImpressionsAdCost = objConfig("1000ImpressionsCost") str5000ImpressionsAdCost = objConfig("5000ImpressionsCost") str10000ImpressionsAdCost = objConfig("10000ImpressionsCost") str50000ImpressionsAdCost = objConfig("50000ImpressionsCost") str100000ImpressionsAdCost = objConfig("100000ImpressionsCost") strServiceType = objConfig("ServiceType") strServiceAdCost = objConfig("ServiceAdCost") strAgentList = objConfig("AgentList") strLogo = objConfig("logo") strKeywords = objConfig("Keywords") strMetaDescription = objConfig("MetaDescription") 'PAYPAL VARIABLES - See PaypalCode.doc located in the documentation folder 'These variables are pulled from the table TblConfig and these values can 'be edited through the site admin control panel. Do not edit the values in this page. 'Email address the payment should be sent to strPayPalEmail = objConfig("PayPalEmail") strAgentFeatured1MonthCost = objConfig("AgentFeatured1MonthCost") strAgentFeatured3MonthCost = objConfig("AgentFeatured3MonthCost") strAgentFeatured6MonthCost = objConfig("AgentFeatured6MonthCost") strAgentFeatured12MonthCost = objConfig("AgentFeatured12MonthCost") strAgentStandard1MonthCost = objConfig("AgentStandard1MonthCost") strAgentStandard3MonthCost = objConfig("AgentStandard3MonthCost") strAgentStandard6MonthCost = objConfig("AgentStandard6MonthCost") strAgentStandard12MonthCost = objConfig("AgentStandard12MonthCost") strUserFeatured1MonthCost = objConfig("UserFeatured1MonthCost") strUserFeatured3MonthCost = objConfig("UserFeatured3MonthCost") strUserFeatured6MonthCost = objConfig("UserFeatured6MonthCost") strUserFeatured12MonthCost = objConfig("UserFeatured12MonthCost") strUserStandard1MonthCost = objConfig("UserStandard1MonthCost") strUserStandard3MonthCost = objConfig("UserStandard3MonthCost") strUserStandard6MonthCost = objConfig("UserStandard6MonthCost") strUserStandard12MonthCost = objConfig("UserStandard12MonthCost") 'Description of the service to appear on the Featured Listing receipt strFeaturedAdDescription = "Featured Listing on " & strVarWebsite 'Description of the service to appear on the Regular Listing receipt strStandardAdDescription = "Standard Listing on " & strVarWebsite 'Description of the service to appear on the Upgrade Listing receipt strUpgradeAdDescription = "Upgrade Listing on " & strVarWebsite 'Cost you want to charge for the listing strUpgradeAdCost = objConfig("UpgradeAdCost") 'whether ads are paid or free strListingType = objConfig("ListingType") 'Page that the user should return to after making payment for featured ad; 'They should return to page step1F.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1F.asp strPayPalReturnPageFeatured = strVarWebsite + "/featuredsuccess.asp" 'Page that the user should return to after making payment for regular ad; 'They should return to page step1.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1.asp strPayPalReturnPageRegular = strVarWebsite + "/standardsuccess.asp" 'Page that the user should return to after making payment for regular ad; 'They should return to page step1.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/step1.asp strPayPalReturnPageUpgrade = strVarWebsite + "/upgradesuccess.asp" 'Page that the user should return to if cancelling before completing PayPal payment; 'They should return to page cancel.asp under your domain; 'http://www.yourdomain.com/FSBO Auto Folder/cancel.asp strPayPalCancel = strVarWebsite + "/cancel.asp" %> <% Sub CreateRoomCombo(iCount)%> <% End Sub Sub CreateFlooringCombo(iCount)%> <% End Sub ' Formats a given 10 digit number into a nice looking phone number ' Example: given strNumber of 8005551212 you get (800) 555-1212 Function FormatPhoneNumber(strNumber) Dim strInput ' String to hold our entered number Dim strTemp ' Temporary string to hold our working text Dim strCurrentChar ' Var for storing each character for eval. Dim I ' Looping var ' Uppercase all characters for consistency strInput = UCase(strNumber) ' To be able to handle some pretty bad formatting, strip out ' all characters except for chars A to Z and digits 0 to 9 ' before proceeding. I left in the chars for slogan ' numbers like 1-800-GET-CASH etc... For I = 1 To Len(strInput) strCurrentChar = Mid(strInput, I, 1) ' Numbers (0 to 9) If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then strTemp = strTemp & strCurrentChar End If ' Upper Case Chars (A to Z) If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then strTemp = strTemp & strCurrentChar End If Next 'I ' Swap strTemp back to strInput for next set of validation strInput = strTemp strTemp = "" ' Remove leading 1 if applicable If Len(strInput) = 11 And Left(strInput, 1) = "1" Then strInput = Right(strInput, 10) End If ' Error catch to make sure strInput is proper length now that ' we've finished manipulating it. If Not Len(strInput) = 10 Then ' Handle errors. Err.Raise 1, "FormatPhoneNumber function", _ "The phone number to be formatted must be a valid 10 digit US phone number!" End If ' If an error occurred then the rest of this won't get processed. ' Build the output formatted string ' (xxx) xxx-xxxx strTemp = "(" ' "(" strTemp = strTemp & Left(strInput, 3) ' Area code strTemp = strTemp & ") " ' ") " strTemp = strTemp & Mid(strInput, 4, 3) ' Exchange strTemp = strTemp & "-" ' "-" strTemp = strTemp & Right(strInput, 4) ' 4 digit part ' Set return value FormatPhoneNumber = strTemp End Function sub openrs(rs, sql) Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = adUseServer rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText end sub function ToHTML(strValue) if IsNull(strValue) then ToHTML = "" else ToHTML = Server.HTMLEncode(strValue) end if end function function ToURL(strValue) if IsNull(strValue) then strValue = "" ToURL = Server.URLEncode(strValue) end function function GetValueHTML(rs, strFieldName) GetValueHTML = ToHTML(GetValue(rs, strFieldName)) end function function GetValue(rs, strFieldName) on error resume next if rs is nothing then GetValue = "" elseif (not rs.EOF) and (strFieldName <> "") then res = rs(strFieldName) if isnull(res) then res = "" end if GetValue = res else GetValue = "" end if if bDebug then response.write err.Description end function function GetParam(ParamName) if Request.QueryString(ParamName).Count > 0 then Param = Request.QueryString(ParamName) elseif Request.Form(ParamName).Count > 0 then Param = Request.Form(ParamName) else Param = "" end if if Param = "" then GetParam = Empty else GetParam = Param end if end function Function ToSQL(Value, sType) Param = Value if Param = "" then ToSQL = "Null" else if sType = "Number" then ToSQL = CDbl(Param) else ToSQL = "'" & Replace(Param, "'", "''") & "'" end if end if end function function DLookUp(Table, fName, sWhere) on error resume next Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value if IsNull(Res) then Res = "" DLookUp = Res end function function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType) if isempty(sVal) then if UnCheckedValue = "" then getCheckBoxValue = "Null" else if sType = "Number" then getCheckBoxValue = UnCheckedValue else getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'" end if end if else if CheckedValue = "" then getCheckBoxValue = "Null" else if sType = "Number" then getCheckBoxValue = CheckedValue else getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'" end if end if end if end function function getValFromLOV(sVal, aArr) sRes = "" if (ubound(aArr) mod 2) = 1 then for i = 0 to ubound(aArr) step 2 if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1) next end if getValFromLOV = sRes end function function get_options(sql,is_search,is_required,selected_value) options_str="" if is_search then options_str=options_str&"" else if is_required then options_str=options_str&"" end if openrs tmprs,sql while not tmprs.EOF id=GetValue(tmprs, 0) value=GetValue(tmprs, 1) selected="" if CStr(id) = CStr(selected_value) then selected = "SELECTED" end if options_str = options_str & "" tmprs.MoveNext wend get_options = options_str end function Function ProceedError() if cn.Errors.Count > 0 then ProceedError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")" elseif not (Err.Description = "") then ProceedError = Err.Description else ProceedError = "" end if end Function function CheckSecurity(iLevel) if Session("UserID") = "" then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) else if CLng(Session("UserRights")) < CLng(iLevel) then response.redirect("Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) End if end function %> <% sSQL = "SELECT * FROM REListing where (AdType = '1')" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSQL, objADO, 1, 3 IF (RS.EOF) THEN %> There are not any featured properties. <% Else rndMax = CInt(RS.RecordCount) RS.MoveFirst Do While Not RS.EOF RS.MoveNext Loop RS.MoveFirst Randomize Timer rndNumber = Int(RND * rndMax) RS.Move rndNumber id = rs("REListingId") imgsrc = rs("REListingImage") 'UrlTo = RS("LinkTo") 'GetImg = RS("ImgUrl") 'WriteSize1 = RS("SizeOf1") 'WriteSize2 = RS("SizeOf2") 'DisText = RS("TextUnder") 'ImpNow = RS("ImpNow") 'ImpNewNow = ImpNow + 1 End If %> <% if not rs.eof then %>

"> <%If (rs("REListingImage")) <> "upload" Then %> " border="0" width="160" height="120"> <% Else%> <%End If %>
<%=rs("REListingCity")%>, <%=rs("REListingState")%>   <%=rs("REListingZip")%>
<% if rs("REListingPrice") > "0" then %> <%= formatcurrency(rs("REListingPrice"))%> <% else %> Call For Price <% end if %>

Click here to view more featured properties. <% end if %>

<% if SiteIdMsg <> "" then %>
Message(s): <%= SiteIdMsg %>
<% end if %>
Site Id Search:

<% if strMailWarning <> "" then %>
Message(s): <%= strMailWarning %>
<% end if %>

Join Our Mailing List
Enter Your Email Address:

LOAN PROCESS

A loan application form asks for information on the property you are buying, as well as the employment and financial history of all loan applicants. We will verify the information shown on the loan application before deciding whether or not to make the loan, so it is very important to make sure that it is complete and accurate.

It is easier to complete the loan application process if you prepare for it ahead of time. We will ask about your personal finances, including bank account numbers and balances, current loan amounts and payments, and credit card account numbers. You need to be thorough and precise in providing this information, so it is best to assemble information before you meet with us. Following is a summary of the major kinds of information required on the loan application, the documents that may be needed, and the questions that you should be prepared to answer.

Details Of Purchase Contract & Property
Because the property is security for the loan, we will have an appraisal made of the property; and you will need to have the following information available:

  1. A complete copy of the sales contract, including any addendums, signed by all parties, showing the full names of the sellers and buyers as they will appear on the new deed, the amount of earnest money deposit and who is responsible for closing costs, origination fees, etc.;
  2. If the house is to be built, or is still under construction, a set of plans and specifications;
  3. The complete mailing address of the property, its age, and its full legal description; and
  4. Name, address, and telephone number of the real estate agent and/or the seller of the property who will assist the appraiser in obtaining access to the property.

Personal Information
We will need to obtain your and any other co-borrower's Social Security number, age, number of years of schooling, number and ages of dependents, current address, and telephone number If you have lived at your current address less than two years, be prepared to furnish former addresses for up to seven years. You will also be asked to detail your current housing expenses, including rent or mortgage payments, real estate taxes, and insurance (your mortgage payment may include tax and insurance funds). You will need the name and address of your landlord(s) or mortgage company(ies) for the past two years.

Employment History & Sources Of Income
Your ability to make the monthly payments on the mortgage and to afford the costs associated with owning a home are primary considerations in our loan approval process and should be your primary concern. Required information includes:

  1. At least two year's employment history with employer's name and address, your job title or position, length of time on the job, salary, bonuses, commissions, and average overtime pay;
  2. Recent paycheck stubs and Federal W-2 forms for two years and perhaps full Federal tax returns;
  3. Records of dividends and interest received from investments;
  4. If you are self-employed, full tax returns and financial statements for two years, plus a profit and loss statement for the current year to date; and
  5. A written explanation if there are gaps in your employment record due to circumstances such as illness or layoffs, or for any other reason.

We will have you sign a Verification of Employment (VOE) form or a general credit authorization form. This will be sent to your employer to verify your employment and earnings. One will be sent to previous employers if you have been on the job less than two years.

If you are relying on income from other sources, such as rental property, Social Security, disability payments, child support, etc., you must provide adequate proof of the source. Appropriate documents could include canceled checks, copies of leases, Federal tax returns, certification of benefits, divorce decrees, and similar evidence.

Personal Assets
A detailed listing of your personal assets is required on the loan application form. You will need to have the following information available to complete the form:

All bank accounts, both checking and savings, and money market accounts with the name and address of the institution(s), name(s) on the accounts, account numbers, and current account balances;

  1. Recent bank statements for at least two months;
  2. Current market value of stocks, bonds, CDs and other investments;
  3. Vested interests in all retirement funds;
  4. Face amount and cash value of insurance policies in force;
  5. Make, model, year, and value of automobiles owned;
  6. Address and market value of all real estate owned, along with the amount of rents collected, the
    mortgage on the property, the monthly mortgage payments, and a list of monthly expenses for
    investment properties; and
  7. Value of other personal property such as furniture.

As with the Verification of Employment, we will have you sign Verifications of Deposit (VOD) (or a general authorization) for each of the institutions where you have savings or checking accounts. Differences between the account balances reported by the institution and the balance you give for the loan application will have to be reconciled, so be sure you have your correct current balances. Any recent large deposits will need to be explained.

We will look for the source of funds with which you will make the down payment and pay closing costs and fees. Gifts from a relative, church, employer, municipality, or non-profit organization may sometimes be used, but must be verified in writing. In some cases, the donor must be a relative and must provide a letter stating the donor's relationship to you, the amount of the gift, and the fact that no repayment is expected. Receipt of the gift funds must also be verified.

Personal Indebtedness
You will be asked to itemize all of your current bills, loans, and other debts, including current balances and monthly payments. Debts include automobile loans, credit cards such as Visa, Mastercard, and other retail store accounts, finance company, bank and credit union loans, and existing mortgages, including home equity loans. You should be able to give the account or loan number, the monthly payment, the number of payments remaining, and the outstanding balance.

The information you provide on the loan application will later be verified by a credit report ordered by us. Like employment and deposit verification, differences between your figures and those on the credit report will raise questions and may delay the approval of your loan. It is to your advantage to take time to get your data right prior to filling out the loan application.

If you have had credit problems, you should inform us promptly. We recognize that unemployment, illness, marital problems, or other financial difficulties can temporarily impair your credit rating. Provide a written explanation of the circumstances regarding the problem to be included with the loan application. We will consider such a written explanation as part of the underwriting analysis. Chronic late payments, judgments, or loan defaults, however, severely damage your credit standing and may prevent you from obtaining the financing you need to complete the purchase.

If you have been through bankruptcy or foreclosure proceedings within the past seven years, be prepared to give full details and copies of applicable documents regarding them.

You will also be asked to explain the details if you are obligated to pay alimony, child support, or separate maintenance.

Additional Information
You will be asked to sign a section of the loan application form which contains your certification that the information you have provided is correct to the best of your knowledge; your promise to advise us of any material changes in the information; and your consent to verification of the application data.

The last part of the application form requests information on the race and gender of the applicants. The Federal Government uses this data to monitor our compliance with fair housing and equal credit opportunity laws. Provision of this information is strictly voluntary on your part and has no affect on your loan application. We, however, are required by Federal law to request the information.

Because of the particular circumstances surrounding a loan application, we may require additional information or documentation regarding you or the property after the application has been submitted for approval. We make every effort to collect all data at the outset, but cannot foresee every eventuality. Requests for additional information are not necessarily bad omens, and your primary concern should be in responding promptly with the information.

At the time the application is taken, you will probably be asked to pay for the credit report and appraisal fees.

If you have come fully prepared to the interview with the loan officer and have provided good documentation, you have done a great deal to assure prompt processing of your application and approval of your loan.

After The Loan Application...What's Next?
After the loan application has been completed, it will be turned over to our loan processing department and then to the underwriter, where the decision to approve or reject the loan will be made. Loan processors call to confirm the information you provided, or send out the Verifications of Employment and Deposit and order the credit report, property appraisal, and other documents. The time it takes to receive these documents affects the length of time required for approval of the loan. If you are transferring into the local community, it may take longer to receive the credit and employment information.

Within three business days after completing the application, we must provide you with a "Good Faith Estimate" of the anticipated closing costs. It will show costs associated with the loan settlement, such as origination fees, mortgage insurance, title insurance, escrow reserves, and hazard insurance.

Within the same three days we will also send you a Truth-in-Lending Disclosure statement. This statement shows, among other things, the estimated monthly payment. The total cost of all finance charges on your loan is also shown, stated as an annual percentage rate (APR). The APR represents the dollar amount of finance charges you pay either up front or over the life of the loan, converted to an annual interest rate. Since the APR includes origination fees and other charges, as well as interest on the mortgage loan, the APR is usually higher than the interest rate of the loan.

The Closing Process
After your loan has been approved by the underwriter, it is sent to the closing department. Once again, everything is checked for accuracy and the closing package is forwarded to the approved closing agent.

The closing agent in this transaction represents the lender and will conduct the closing on our behalf The closing agent at this point has run the title search and insured that the property is able to be conveyed by the seller without any encumbrances. The closing agent checks the survey and makes sure that the lender has proper coverage. The borrowers may insure their coverage in regard to survey and other title matters by purchasing an owner's title insurance policy issued by the closing agent.

Items typically requested for the borrower to bring to the closing are a one year's hazard insurance policy and paid receipt, a certified (or cashier's check) for the cash needed for closing, and a report from a certified termite inspector which states that the property is free from infestation.

The closing agent will obtain the necessary signatures on the closing documents and disburse the money.

(c) <%= year(date) %> <%= strVarCompany %>
Read our Terms & Conditions, and Privacy Policy
Website Development Provided By: Development Solutions