
<% 

'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)%>
	
		<select name="RoomID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Room --- </option>
			<%sRoomField = "REListingRoom" & iCount & "ID"
			rsRERoom.MoveFirst
			Do While Not rsRERoom.EOF%>
			<option value="<%=rsRERoom("RERoomID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sRoomField) = rsRERoom("RERoomID") Then Response.Write " SELECTED"
			End If%>><%=rsRERoom("RERoomName")%></option>
			<%rsRERoom.MoveNext
			Loop%>
		</select><%	
End Sub

Sub CreateFlooringCombo(iCount)%>
	
		<select name="FlooringID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Flooring --- </option>
			<%sFlooringField = "REListingFlooring" & iCount & "ID"
			rsREFlooring.MoveFirst
			Do While Not rsREFlooring.EOF%>
			<option value="<%=rsREFlooring("REFlooringID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sFlooringField) = rsREFlooring("REFlooringID") Then Response.Write " SELECTED"
			End If%>><%=rsREFlooring("REFlooringName")%></option>
			<%rsREFlooring.MoveNext
			Loop%>
		</select>
	<%
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&"<option value="""">All</option>"
  else
    if is_required then options_str=options_str&"<option value=""""></option>"
  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 & "<option value="""&id&""" "&selected&">"&value&"</option>"
		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)%>
	
		<select name="RoomID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Room --- </option>
			<%sRoomField = "REListingRoom" & iCount & "ID"
			rsRERoom.MoveFirst
			Do While Not rsRERoom.EOF%>
			<option value="<%=rsRERoom("RERoomID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sRoomField) = rsRERoom("RERoomID") Then Response.Write " SELECTED"
			End If%>><%=rsRERoom("RERoomName")%></option>
			<%rsRERoom.MoveNext
			Loop%>
		</select><%	
End Sub

Sub CreateFlooringCombo(iCount)%>
	
		<select name="FlooringID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Flooring --- </option>
			<%sFlooringField = "REListingFlooring" & iCount & "ID"
			rsREFlooring.MoveFirst
			Do While Not rsREFlooring.EOF%>
			<option value="<%=rsREFlooring("REFlooringID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sFlooringField) = rsREFlooring("REFlooringID") Then Response.Write " SELECTED"
			End If%>><%=rsREFlooring("REFlooringName")%></option>
			<%rsREFlooring.MoveNext
			Loop%>
		</select>
	<%
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&"<option value="""">All</option>"
  else
    if is_required then options_str=options_str&"<option value=""""></option>"
  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 & "<option value="""&id&""" "&selected&">"&value&"</option>"
		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

%>


<HTML>
<HEAD>
<TITLE><%= strVarCompany %> - <%= objConfig("Keywords") %></TITLE>

<META NAME="description" content="<%= strMetaDescription %>">
<META NAME="keywords" content="Statern Island, For sale by owner, For Sale by Owner, Real Estate, Homes For Sale, New York"> <!-- strKeywords -->
<META NAME="abstract" CONTENT="For Sale by Owner  - Real Estate -  Homes For Sale">
<META NAME="revisit-after" CONTENT="20 days">
<META NAME="GOOGLEBOT" CONTENT="INDEX, FOLLOW">
<META NAME="robots" CONTENT="index,follow">

<STYLE TYPE="TEXT/CSS"> 
<!--

A { text-decoration: none }


A {color:#000000; font-family: Helvetica, Arial; font-size: 12px; text-decoration: none;}
A:hover {color:#666633; font-family: Helvetica, Arial; font-size: 12px; text-decoration: none;}

td {font-family: Helvetica, Arial; font-size: 12px;}
.linkcell { padding-left: 11px; font-family: Helvetica, Arial; font-size: 12px;}
hr {  color: #000000}

//.unnamed1 {  font-family: Arial, Helvetica, sans-serif; font-size: 12px}
-->


</STYLE>
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>

<SCRIPT LANGUAGE="JavaScript">
<!--
self.name = "main";
function popup_win(url,n,w,h,s,r,x,y)
{
	win = window.open (url,n,"width="+w+",height="+h+",scrollbars="+s+"statusbar=0,resizable="+r+",toolbar=0,location=0");


}



// -->
</SCRIPT>




</HEAD>
<BODY BGCOLOR="<%= strVarBGColor %>" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 onLoad="MM_preloadImages('images/but_more_detail_r.gif')">



<% strUserName = session("UserName") %>

<TABLE WIDTH=740 BORDER=0 CELLPADDING=0 CELLSPACING=0>
  <TR> 
    <TD COLSPAN=3 bgcolor="E0E1BE" valign="top" height="55" align="left"><a href="home.asp"><img src="Upload/Logo/<%= strLogo %>" align="left" border="0"></a> 
     
      </TD>
   
    <TD COLSPAN=5 bgcolor="E0E1BE" height="55" align="center" valign="middle"> 
      <div align="center">
       
       <% 

'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)%>
	
		<select name="RoomID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Room --- </option>
			<%sRoomField = "REListingRoom" & iCount & "ID"
			rsRERoom.MoveFirst
			Do While Not rsRERoom.EOF%>
			<option value="<%=rsRERoom("RERoomID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sRoomField) = rsRERoom("RERoomID") Then Response.Write " SELECTED"
			End If%>><%=rsRERoom("RERoomName")%></option>
			<%rsRERoom.MoveNext
			Loop%>
		</select><%	
End Sub

Sub CreateFlooringCombo(iCount)%>
	
		<select name="FlooringID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Flooring --- </option>
			<%sFlooringField = "REListingFlooring" & iCount & "ID"
			rsREFlooring.MoveFirst
			Do While Not rsREFlooring.EOF%>
			<option value="<%=rsREFlooring("REFlooringID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sFlooringField) = rsREFlooring("REFlooringID") Then Response.Write " SELECTED"
			End If%>><%=rsREFlooring("REFlooringName")%></option>
			<%rsREFlooring.MoveNext
			Loop%>
		</select>
	<%
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&"<option value="""">All</option>"
  else
    if is_required then options_str=options_str&"<option value=""""></option>"
  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 & "<option value="""&id&""" "&selected&">"&value&"</option>"
		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
%> <a href="redirect.asp?Id=<%=Id%>&Url=<%=Server.UrlEncode(UrlTo)%>"><img src="<%=GetImg%>" border="0" alt="<%=DisText%>" align="center"></a>
       
       </div>
    </TD>
  </TR>
  <TR> 
    <TD COLSPAN=8 height="12"></TD>
  </TR>
  <TR> 
    <TD COLSPAN=8> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="23" background="images/bar2.gif">
        <tr> 
          <td> 
            <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
              <a href="home.asp">Home</a> | 
               <a href="sellers.asp">Get Listed!</a>
        | 
              <% if strUserName = "" then %> 
             
              <a href="registermenu.asp"> 
              
              Create An Account</a>
              
              | 
             <% end if %>
              
              
              <% if strUserName = "" then %>
              <a href="Login.asp">Member Login</a>
              <% end if %>
              
              <% if strUserName <> "" then %>
              <a href="Logout.asp">Logout</a>
              <% end if %>
              
              | 
               
              <!--  <a href="specials.asp">Pricing Info</a>
               
                           
              
               | -->
             
             
              
              <% if strUserName <> "" then %>
               <a href="menu.asp">
              Control Panel
              
              </a>  |
              <% end if %>
               
              
                <a href="Search.asp">Search Listings</a> 
               
                 | <a href="featured.asp">View Featured </a> 
                
                | <a href="viewlast.asp">Newest Properties</a>
                
                
                 | <a href="Testimonials.asp">Testimonials</a>
               
               
                
              </font></div>
          </td>
        </tr>
      </table>
    </TD>
  </TR>
  <TR bgcolor="E0E1BE"> 
    <TD COLSPAN=8 height="9"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="21" background="images/bar3.gif"> 
            <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
            
       
          <a href="sellertools.asp">Seller Tools</a>  
          |
           <a href="buyers.asp">Buyer Tools</a> 
          
      
        | <a href="agentsearch.asp">Find An Agent</a>   
        
        | <a href="Searchservices.asp">Services Directory</a>  
        
        
        
       |
            
            <a href="mortgagecenter.asp">Mortgage Center</a>  
            
          <% if strOfferAdvertising = "Yes" then %>
        
         | <a href="advertising.asp">Advertising</a> 
        <% end if %>
        
         | <a href="news_default.asp">News</a>
        
        
        |  
          <a href="aboutus.asp">About Us</a> | 
            
            
           <a href="contact.asp">Contact
             </a>
             
            
             
              </font></div>
          </td>
        </tr>
      </table>
      
      

  <%


	
	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 = "<font size='3'>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 = "<br>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 ="<br>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 = "<br>That Email Address already joined our mailing list."		
		end if 
	
	end if
end if 

%>
  
  </TD>
  </TR>
  <TR> 
    <TD COLSPAN=8 height="13"></TD>
  </TR>
  <TR> 
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=83 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=150 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=31 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=90 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=138 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
    <TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=246 HEIGHT=1 ALT=""></TD>
  </TR>
</TABLE>

<table width=740 border=0 cellpadding=0 cellspacing=0  >
      
    <tr> 
    <td width="210" colspan=2 bgcolor="E0E1BE" valign="top"  align="center"> 
     
      <table width="230" border="0" cellspacing="3" cellpadding="3" align="center">
      
      <tr> 
    <td colspan=2 valign="top" align="center"> <img src="images/content_image3.jpg" alt="">
    
    </td>
    </TR>
    
        <tr> 
          <td height="19" valign="top" bgcolor="#999966" align="center"><font color="#FFFFFF"><b>FEATURED PROPERTY LISTINGS</b></font></td>
        </tr>


        
        <tr>
          <td height="222" valign="top" align="center"> 
            <FONT face=arial color=#000000 size=1>Feature your property on our site 
and <font color=red>sell fast</font>! <br><a href=sellers.asp><u><font size=1>Click Here</font></u></a> to find out how.
 </FONT>     
          
        <center>    
   
  
   <% 

'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)%>
	
		<select name="RoomID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Room --- </option>
			<%sRoomField = "REListingRoom" & iCount & "ID"
			rsRERoom.MoveFirst
			Do While Not rsRERoom.EOF%>
			<option value="<%=rsRERoom("RERoomID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sRoomField) = rsRERoom("RERoomID") Then Response.Write " SELECTED"
			End If%>><%=rsRERoom("RERoomName")%></option>
			<%rsRERoom.MoveNext
			Loop%>
		</select><%	
End Sub

Sub CreateFlooringCombo(iCount)%>
	
		<select name="FlooringID<%=iCount%>" size="1" class="INPUT">
			<option value="0"> --- Select Flooring --- </option>
			<%sFlooringField = "REListingFlooring" & iCount & "ID"
			rsREFlooring.MoveFirst
			Do While Not rsREFlooring.EOF%>
			<option value="<%=rsREFlooring("REFlooringID")%>"<%
			If lID > 0 Then
				If rsRealEstate(sFlooringField) = rsREFlooring("REFlooringID") Then Response.Write " SELECTED"
			End If%>><%=rsREFlooring("REFlooringName")%></option>
			<%rsREFlooring.MoveNext
			Loop%>
		</select>
	<%
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&"<option value="""">All</option>"
  else
    if is_required then options_str=options_str&"<option value=""""></option>"
  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 & "<option value="""&id&""" "&selected&">"&value&"</option>"
		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 %>
            <p>
                        <a href="detail.asp?Id=<%= rs("REListingId") %>">
                        
                         <%If (rs("REListingImage")) <> "upload"  Then %>
			
				<img src="upload/<%= rs("REListingImage") %>"  border="0" width="160" height="120">
			<% Else%>
			<img src="images/photonotavailable.gif" border="0" width="160" height="120">
			</a>
			<%End If
		
	%>	
    <br>

<font size="1" >
    
<%=rs("REListingCity")%>, <%=rs("REListingState")%> &nbsp <%=rs("REListingZip")%><br>
<% if rs("REListingPrice") > "0" then %>
<%= formatcurrency(rs("REListingPrice"))%>
<% else %>
Call For Price
<% end if %>
 </a>
 </font> 
 
  <p><font size="1">
            Click <a href="featured.asp"><u>here</u></a> to view more featured properties.
             
   <% end if %>                   
		
</center> 		
 </td>
        </tr>
      </table>	  
 
                   <% if SiteIdMsg <> "" then %>
				<table>
					<tr>
						<td><font color = "red" size="3"><b>Message(s): <%= SiteIdMsg %></font>
						</td>
					</tr>
				</table>
				<% end if %> 
             <form action="" method="post" id=form2 name=form2>
             <table bgcolor="#eeeeee" width="230" align="center">
             <tr>
             <td align="center" width="230">
             <img src="images/searchicon.gif"><b>Site Id Search:</b>  
              <input type="text" size="6" name="txtSiteId"> <input type="submit" name="cmdSearchId" value="Go">
             </td>
             </tr>
             </table> 
             </form> 
               <P>
               
              <% if strMailWarning <> "" then %>
				<table>
					<tr>
						<td><font color = "red" size="3"><b>Message(s): <%= strMailWarning %></font>
						</td>
					</tr>
				</table>
				<% end if %>  
             <form action="" method="post" id=form2 name=form2>
             <table bgcolor="#eeeeee" width="230" align="center">
             <tr>
             <td align="center" width="230" valign=middle>
          <img src="images/email_icon.gif"><b>Join Our Mailing List</b><br>  
           Enter Your Email Address: <input type="text" size="20" name="txtEmail"> <input type="submit" name="cmdMailSubmit" value="Join Now!">
             </td>
             </tr>
             </table> 
             </form>        
  </td>
    <td rowspan=3 bgcolor="#FFFFFF" valign="top">  
    
    
<table width="500" border="0" cellspacing="5" cellpadding="5" align="right">
        <tr>
        <td> 



  <p><strong>Glossary<a name="top"></a></strong></font></p>
  <p>Mortgage and
            finance terminology can sometimes be confusing. Here are a few common
            terms and their meanings.</font></p>
  <p align="center"><font color="#FFFFFF"><a href="#a">A</a> <a href="#b">B</a> <a href="#c">C</a> <a href="#d">D</a> <a href="#e">E</a> <a href="#f">F</a> <a href="#g">G</a> <a href="#h">H</a> <a href="#i">I</a> <a href="#j">J</a> <a href="#k">K</a> <a href="#l">L</a> <a href="#m">M</a> <a href="#n">N</a> <a href="#o">O</a> <a href="#p">P</a> <a href="#q">Q</a> <a href="#r">R</a>      <a href="#s">S</a> <a href="#t">T</a> <a href="#u">U</a> <a href="#v">V</a> <a href="#w">W</a></font></p>
  <p><a name="a"></a><b>A &amp; D Loan<br>
                </B>Acquisition and Development Loans are used in purchasing and developing
                  raw land with the intent of future development.<br>
            
                <br>
                  <b>Abstract of Title<br>
                  </B>A written history of ownership showing verification or non-verification
                  of title.  <br>
                <br>
                  <b>
            Acceleration Clause<br>
                  </B>Requires the balance of a loan to become due immediately.  Occurs
                  when regular payments are not made.<br>
                <br>
                  <b>
            Acquisition Cost</B>     <br>
            The price to obtain property, including purchase price and all nonrecurring
            closing costs, including discount points, FHA application fee, service charge,
            credit report, FHA appraisal, escrow, document preparation, title insurance,
            termite inspection, reconveyance and recording fees for FHA-insured loans.  <br>
            
            <br>
            <b>Ad Valorem</B>&#9;<br>
            A Latin phrase used to describe a tax charged in relation to the
            value of the property taxed meaning &quot;according to value&quot;.<br>
            
            <br>
            <b>Adjustable Rate Mortgage (ARM)<br>
            </B>A loan with an adjusted interest rated determined by a pre-selected index.<br>
            
            <br>
            <b>Adjustment Period<br>
            </B>The period between adjustments of an ARM interest rate.<br>
            
            <p>
            <a href="#top"><U>Back Up</u></a><p>
            
            <b>All-inclusive Trust Deed</B>&#9;<br>
            Overriding trust deed; A financing tool where a lender assumes payments on
            an existing mortgage or trust deed and takes from the borrower a trust deed
            with a face value in an amount equal to the amount due on the old instrument
            and the additional amount of money borrowed.  <br>
            
            <br>
            <b>Amortization&#9;<br>
            </B>A financial obligation paid in installments; An amortized loan includes
            both principal and interest, usually due monthly, resulting in complete payment
            of the amount borrowed, with interest, by the end of the loan term.  <br>
&#9;
            <br>
            <b>Annual Percentage Rate (APR)&#9;<br>
            </B>The cost of credit including interest, loan fees and discount points
            stated as an annual percentage. </B><br>
            
            <br>
            <b>Appraisal&#9;<br>
            </B>A licensed appraiser�s estimate of a property�s monetary value
            on the open market; Justifies the contract purchase price. <br>
            
            <br>
            <b>Arrearages<br>
            </B>The total delinquent principal, interest, taxes and insurance owed.<br>
            
            <br>
            <a name="b"></a><b>Balloon Payment<br>
            </B>An installment payment on a loan that is usually a larger payment and
            due on a specified date.<br>
            
            <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Bond<br>
            </B>Real Estate Bond.  An obligation issued on security of a mortgage or
            trust deed. <br>
            
            <br>
            <a name="c"></a><b>Cap<br>
            </B>A limit on interest rate fluctuation on an adjustable rate.  <br>
            
            <br>
            <b>Certificate of Reasonable Value<br>
            </B>Property appraisal necessary for a VA-guaranteed loan.<br>
            
            <br>
            <b>Certificate of Redemption<br>
            </B>Certificate issued by the county tax collector verifying payment of all
            past due obligations.  <br>
            
            <br>
            <b>Chattel Mortgage<br>
            </B>Using personal property to guarantee a promissory note.<br>
            
            <br>
            <b>Closing<br>
            </B>The ending of a real estate transaction resulting in title and fund conveyance.  <br>
            <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>
            Closing Costs<br>
            </B>Expenses resulting from the closing of a real estate mortgage loan.<br>
            
            <br>
            <b>Closing Statement<br>
            </B>Also known as a HUD-1 statement.  Provides a listing of all funds payable
            at closing.<br>
            
            <br>
            <b>Cloud on Title<br>
            </B>Encumbrance which affects the title marketability.<br>
            
            <br>
            <b>Compound Interest<br>
            </B>Interest payable on the principal loan amount and accrued interest.<br>
            
            <br>
            <b>Conventional Loan<br>
            </B>A secured loan that is not insured by FHA and VA loans.    <br>
            
            <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Cost Approach<br>
            </B>An Appraisal method to determine market value calculated by adding value
            less depreciation to the replacement value.  <br>
            
            <br>
            <a name="d"></a><b>Deed<br>
            </B>A legal document conveying title to real property.<br>
            
            <br>
            <b>Debt to Income Ratio<br>
            </B>Ratio comparing total monthly obligations, including home loan payments,
            to total monthly gross income. <br>
            
            <br>
            <b>Discount Points<br>
            </B>Fee charged by the lender to decrease the interest rate on a loan.<br>
            
            <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Due on Sale Clause<br>
            </B>Mortgage provision stating that the entire note balance is due if the
            borrower sells the property.<br>
            
            <br>
            <a name="e"></a><b>Easement<br>
            </B>The right and use to a specific piece of land owned by someone else.<br>
            
            <br>
            <b>Encroachment<br>
            </B>A property improvement that unlawfully intrudes on another�s
            property.<br>
            
            <br>
            <b>Equity<br>
            </B>Calculated by subtracting the balance owed on a home from the market
            value.<br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Escrow <br>
            </B>The holdings of documents or funds by a neutral third party on the behalf
            of the borrower pending the closing of a loan or payment of real estate taxes,
            insurance and any such agreements of a contract.<br>
            
            <br>
            <b>Escrow Impounds<br>
            </B>Money paid at loan settlement and with monthly loan payments for the
            purpose of paying future real estate taxes and homeowners insurance. <br>
            
            <br>
            <b>Escrow Waiver<br>
            </B>The borrower�s request to not pay taxes and insurance through
            impounds. Equity positions play a role in the decision.<br>
            
            <br>
            <a name="f"></a><b>Fair Credit Reporting Act<br>
            </B>Law protecting consumers that establishes procedures to correct errors
            on credit reports and gives consumers specific rights in dealing with credit
            reporting agencies.  <br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Fannie Mae (FNMA)<br>
            </B>The Federal National Mortgage Association.  It purchases, sells and guarantees
            conventional, VA or FHA mortgages.  <br>
            <br>
            <b>
            Federal Home Loan Mortgage Corporation (FHLMC)<br>
            </B>Purchases conventional mortgage loans in the secondary mortgage market. <br>
            
            <br>
            <b>Federal National Mortgage Association (FNMA)<br>
            </B>Purchases mortgage loans from primary lenders in the secondary mortgage
            market.<br>
            
            <br>
            <b>Federal Truth In Lending Act<br>
            </B>Requires disclosures about terms and costs intended to give consumers
            cost vs. credit comparisons. <br>
            
            <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>FHA<br>
            </B>Federal Housing Authority.  Provides home loan insurance for FHA loans.<br>
            
            <br>
            <b>Fico Score<br>
            </B>Enables a credit grantor to identify credit prospects with the best credit
            opportunities.<br>
            
            <br>
            <b>Fixed Rate Mortgage<br>
            </B>The interest rate on a loan that remains constant throughout the entire
            term.<br>
            
            <br>
            <b>Floating Interest Rate<br>
            </B>The interest on a loan before it is guaranteed by a lender.<br>
            
            <br>
            <a name="g"></a><b>Gift Letter<br>
            </B>A signed letter or statement from an individual providing a cash gift
            to a borrower in order to qualify for a loan. The letter or statement states
            that the cash gift does not have to be repaid.  <br>
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>
            Ginnie Mae<br>
            </B>Government National Mortgage Associations works with FHA facilitating
            efficient secondary market activities for federally insured or guaranteed
            mortgages.  <br>
            
            <br>
            <b>Graduated Payment Mortgage (GPM)<br>
            </B>A mortgage based on payments that will be increased over time dependent
            on a predetermined schedule.  <br>
            
            <br>
            <b>Gross Income Multiplier<br>
            </B>Using the gross annual income of a property to calculate an estimate
            of a property�s value.<br>
            
            <br>
            <b>Good Faith Estimate<br>
            </B>A document prepared by the lender showing borrowers the estimated cost
            they will incur payable at closing.<br>
            
            <br>
            <a name="h"></a><b>Hazard Insurance<br>
            </B>Insurance policy placed on property improvements that covers damage by
            fire or other natural disasters.  <br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>HUD<br>
            </B>The United States Department of Housing and Urban Development.  Responsible
            for all facets of the federal housing and urban development programs.  <br>
            
            <br>
            <a name="i"></a><b>Index<br>
            </B>A factor used to calculate the interest on an adjustable rate mortgage.  <br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Inheritance Taxes<br>
            </B>Taxes on real and personal property received through an inheritance.<br>
            
            <br>
            <a name="j"></a><b>Jumbo Loan<br>
            </B>A home loan that is monetarily more than the limits of Freddie Mac or
            Fannie Mae.<br>
            
            <br>
            <a name="l"></a><b>Land Contract<br>
            </B>A contract used in a real property sale where the seller keeps the title
            to the property until the sales price has been paid. <br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Leverage<br>
            </B>Use of debt financing to purchase an investment.    <br>
            
            <br>
            <b>Lien<br>
            </B>A legal hold against the property as security for the payment of a debt,
            mortgages, judgments or taxes.   <br>
            
            <br>
            <b>Loan to Value Ratio<br>
            </B>Ratio reflecting the mortgage loan amount to the appraised value or purchase
            price of a home.<br>
            
            <br>
            <a name="m"></a><b>Market Value<br>
            </B>The highest price that a buyer is willing to pay and the lowest price
            that a seller is to accept for real estate.<br>
            
            <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Marketable Title<br>
            </B>Enables an owner to sell property without objection.  It is free of any
            clouds.<br>
            
            <br>
            <b>Mortgage<br>
            </B>A guarantee of real estate from a borrower as security for the payment
            of a loan to a lender.  <br>
            
            <br>
            <b>Mortgage Insurance<br>
            </B>Insures the lender against non-payment of a government or conventional
            loan.   <br>
            
            <br>
            <b>Mortgagee<br>
            </B>The lender for a home loan.<br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Mortgagor<br>
            </B>The borrower in a home loan.<br>
            
            <br>
            <a name="n"></a><b>Negative Amortization<br>
            </B>A loan schedule in which the principal increases due to a payment that
            does not cover all of the interest. <br>
            
            <br>
            <b>Notice of Default<br>
            </B>Written notice to a borrower showing default on a mortgage. <br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <a name="o"></a><b>Origination Fee<br>
            </B>Lender�s fee for processing and underwriting loan documents.
             Usually 1 point or 1%.<br>
            
             <br>
             <a name="p"></a><b>PITI<br>
             </B>Principal, interest, taxes and insurance, which combined make a monthly
            mortgage payment. <br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Points<br>
            </B>A one-time payment to lower the interest rate on a mortgage.<br>
            
            <br>
            <b>Prepaid Interest<br>
            </B>The interest charged at closing calculated to pay for the cost of borrowing
            for the remainder of the month.  <br>
            
            <br>
            <b>Prepayment Penalty<br>
            </B>Fee paid by the borrower if loan is paid before its due date.  <br>
            
            <br>
            <b>Pre-qualification<br>
            </B>A non-binding opinion of how much a borrower will be qualified to borrow.  <br>
            
            <br>
            <b>Private Mortgage Insurance (PMI)<br>
            </B>Insurance required by lender from a non-governmental insurer if down
            payment is less than around 20%.   <br>
            
            <br>
            <a name="r"></a><b>Real Estate Settlement Procedures Act  (RESPA)<br>
            </B>Requires advance disclosure to consumers about mortgage loan settlements.<br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Redlining<br>
            </B>The illegal practice of lending institutions denying loans to certain
            areas of a community.<br>
            
            <br>
            <b>Refinancing<br>
            </B>The borrower pays off one loan with another.<br>
            
            <br>
            <b>Reverse Annuity Mortgage (RAM)<br>
            </B>The homeowner receives monthly payments based on accumulated equity.
            The loan must be repaid at a prearranged date or upon the death of the owner
            or the sale of the property.<br>
            
            <br>
            <b>Right of Recission<br>
            </B>The borrowers right to cancel a mortgage refinance transaction within
            three days from the date the settlement documents were executed.<br>
            
            <br>
            <a name="s"></a><b>Sales Comparison Approach<br>
            </B>The construction and locations of homes comparable to the subject home
            are used to form an appraisal.  <br>
            
          <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Satisfaction<br>
            </B>Paying and being released from an obligation in its� entirety
            before the end of the term. <br>
            
            <br>
            <b>Second Mortgage<br>
            </B>Mortgage that has a lien position second to a first mortgage.<br>
            
            <br>
            <b>Secondary Mortgage Market<br>
            </B>Market in which investors buy and sell existing mortgages. <br>
            
            <br>
            <b>Security Instrument<br>
            </B>The deed of trust or mortgage verifying the pledge of real property as
            security for the repayment of the debt.  <br>
            
            <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Servicing<br>
            </B>The operational procedures related to the collection of home loan payments
            and other payments related to mortgage loans.  <br>
            
            <br>
            <b>Shared Appreciation Mortgage (SAM)<br>
            </B>Loan in which the lender participates in any profits when the property
            is sold.<br>
            
            <br>
            <b>Simple Interest<br>
            </B>Interest payable on the principal amount of the loan only. <br>
            
            <br>
            <b>Subrogation<br>
            </B>Substituting the legal rights and claims from one creditor to another.<br>
            
            <br>
            <b>Suspended<br>
            </B>A loan can neither be approved nor denied.  More information is needed.<br>
            
            <br>
            <a name="t"></a><b>Takeout Loan<br>
            </B>Loan in which the lender provides financing to the builder or developer
            upon completion of construction.  <br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Temporary Buydown<br>
            </B>Money paid at closing to temporarily reduce the interest rate for the
            first and second year of the mortgage.  <br>
            
            <br>
            <b>Title Insurance<br>
            </B>Insurance policy protecting owner or lender against loss affecting title.<br>
            
            <br>
            <b>Title Search<br>
            </B>An examination of public records to determine legal ownership of property.<br>
            
            <br>
            <a name="u"></a><b>Usury</b><br>
            Charging an interest rate greater than the rate permitted by law. <br>
            
           <p>
            <a href="#top"><U>Back Up</u></a><p>
            <b>Underwriting<br>
            </b>Analyzing a homebuyer�s ability to repay a home loan.<br>
            
            <br>
            <a name="v"></a><b>VA Loan<br>
            </B>A home loan guaranteed by the Department of Veterans Affairs.  Enables
            a veteran to buy a home with no money down.<br>
            
            <br>
            <b>VOD<br>
            </B>Verification of Deposit<br>
            
            <br>
            <b>VOM<br>
            </B>Verification of Mortgage<br>
            
            <br>
            <b>VOE<br>
            </B>Verification of Employment<br>
            
            <br>
            <a name="w"></a><b>Wraparound Mortgage<br>
            </B>A loan in which a new loan is added to the existing first mortgage loan.<br>
            <p>
            <a href="#top"><U>Back Up</u></a><p>           </font></p>
  
  

 </p>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  
      </table>
    </td>
  </tr>
  <tr> 
    <td height="2"> <img src="images/spacer.gif" width=265 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=9 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=466 height=1 alt=""></td>
  </tr>
</table>
<table width=740 border=0 cellpadding=0 cellspacing=0>
  <tr> 
    <td height="2"> <img src="images/spacer.gif" width=83 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=150 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=1 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=31 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=90 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=138 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=1 height=1 alt=""></td>
    <td height="2"> <img src="images/spacer.gif" width=246 height=1 alt=""></td>
  </tr>
  <tr> 
    <td height="2" colspan="8"> 
     



<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="23" background="images/bar2.gif">
            <div align="center">(c) <%= year(date) %> <a href="<% =strVarWebsite %>"><u><%= strVarCompany %></u></a> 
              <br>
              Read our <a href="javascript:popup_win('terms.asp','','550','550','1','1','100','100');"><u>Terms & Conditions</u></a>, and <a href="javascript:popup_win('privacypolicy.asp','','550','550','1','1','100','100');"><u>Privacy Policy</u></a>              
              
               </div>
          </td>
        </tr>
      </table>
    </TD>
  </TR>
  <TR> 
    <TD height="2" colspan="8">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="21" background="images/bar3.gif">
            <div align="center">
            Website Development Provided By: <a href="http://www.devsolutions.us" target=" "><u>Development Solutions</u></a>
            
            </div>
          </td>
        </tr>
      </table>
    </TD>
  </TR>
</TABLE>
</BODY>
</HTML>