<% if session("AccessLevel") <> "1" then
Response.Redirect "login.asp?Return=select_news_item.asp"
end if %>



<%



Dim objADO 			'Database Connection Variable
Dim rsConfiguration		'Holds the configuartion recordset
Dim strCon			'Holds the Database driver and the path and name of the database
Dim strSQL			'Holds the SQL query for the database
Dim intRecordsPerPage		'Holds the number of files shown on each page
Dim strBgColour			'Holds the background colour of the News Administrator
Dim strTextColour		'Holds the text colour of the News Administrator
Dim strTextType			'Holds the font type of the News Administrator
Dim intHeadingTextSize		'Holds the heading font size
Dim intTextSize			'Holds the font size of the News Administrator
Dim intSmallTextSize		'Holds the small font size
Dim strLinkColour		'Holds the link colour of the News Administrator
Dim strTableColour		'Holds the table colour
Dim strTableBorderColour	'Holds the table border colour
Dim strTableTitleColour		'Holds the table title colour
Dim strVisitedLinkColour	'Holds the visited link colour of the News Administrator
Dim strActiveLinkColour		'Holds the active link colour of the News Administrator
Dim blnLCode			'set to true
Dim blnEmail			'Boolean set to true if e-mail is on
Dim strCode			'Holds the page code
Dim strCodeField		'Holds the code type
Dim strWebSiteEmailAddress	'Holds the e-mail address for the web site the Site News is on
Dim strMailComponent		'Email coponent the site news app useses
Dim strSMTPServer		'SMTP server for sending the e-mails through
Dim strLoggedInUserCode		'Holds the user code of the user
Dim strTitleImage		'Holds the path and name for the title image for the site news
Dim intMsgCharNo		'Holds the number of characters allowed for the messages
Dim blnCookieSet		'Set to true if cookies are to be set to stop multiple posts
Dim blnIPBlocking		'Set to true if IP blooking is to be used to stop multiple posts



'Create database connection

'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") & ";"	' Jet OLEDB:Database Password=" & Password
objADO.Open sDSN

'---------------------------------------------------------------------------------------------------------------------------------------------



'Set up the page encoding
strCodeField = "C&#111;&#100;&#101;"
strCode = "&#110;&#111;&#108;&#105;&#110;&#107;&#115;&#050;&#048;&#048;&#050;"

'Read in the configuration for the script
'Intialise the ADO recordset object
Set rsConfiguration = Server.CreateObject("ADODB.Recordset")

'Initialise the SQL variable with an SQL statement to get the configuration details from the database
strSQL = "SELECT tblConfiguration.* From tblConfiguration;"

'Query the database
rsConfiguration.Open strSQL, objADO

'If there is config deatils in the recordset then read them in
If NOT rsConfiguration.EOF Then

	'Read in the configuration details from the recordset
	intRecordsPerPage = CInt(rsConfiguration("No_records_per_page"))
	strBgColour = rsConfiguration("bg_colour")
	strTextColour = rsConfiguration("text_colour")
	strTextType = rsConfiguration("text_type")
	intHeadingTextSize = CInt(rsConfiguration("heading_text_size"))
	intTextSize = CInt(rsConfiguration("text_size"))
	intSmallTextSize = CInt(rsConfiguration("small_text_size"))	
	strTableColour = rsConfiguration("table_colour")
	strTableBorderColour = rsConfiguration("table_border_colour")
	strTableTitleColour = rsConfiguration("table_title_colour")
	strLinkColour = rsConfiguration("links_colour")
	strVisitedLinkColour = rsConfiguration("visited_links_colour")
	strActiveLinkColour = rsConfiguration("active_links_colour")
	strWebSiteEmailAddress = rsConfiguration("email_address")
	blnLCode = CBool(rsConfiguration("Code"))
	blnEmail = CBool(rsConfiguration("email_notify"))
	strTitleImage = rsConfiguration("Title_image")
	intMsgCharNo = rsConfiguration("Message_char_no")
	blnCookieSet = CBool(rsConfiguration("Cookie"))
	blnIPBlocking = CBool(rsConfiguration("IP_blocking"))
	strMailComponent = rsConfiguration("mail_component")
	strSMTPServer = rsConfiguration("mail_server")
End If

'Reset server object
rsConfiguration.Close
Set rsConfiguration = Nothing
%>
<%



Dim rsNews			'Database recordset holding the news items
Dim rsComments			'Database recordset holding the count of comments for each news item
Dim intRecordPositionPageNum	'Holds the number of the page the user is on
Dim intRecordLoopCounter	'Loop counter to loop through each record in the recordset
Dim intTotalNumNewsEntries	'Holds the number of News Items there are in the database
Dim intTotalNumNewsPages	'Holds the number of pages the News Items cover
Dim intLinkPageNum		'Holds the number of the other pages of news itmes to link to




'If this is the first time the page is displayed then set the record position is set to page 1
If Request.QueryString("PagePosition") = "" Then
	intRecordPositionPageNum = 1

'Else the page has been displayed before so the news item record postion is set to the Record Position number
Else
	intRecordPositionPageNum = CInt(Request.QueryString("PagePosition"))
End If	
%>
<% 

'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> 
<b><font size="2">Manage News Items</font></b> <br>
 
 <br>
 </font> 
 <table width="420" border="0" cellspacing="0" cellpadding="0">
  <tr> 
   <td width="420">Use the links at the bottom of each news item to Edit/Delete and Review News Items and any user comments that may have been left for a news item.</font></td>
  </tr>
 </table>
 <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
 <%
'Create recorset object
Set rsNews = Server.CreateObject("ADODB.Recordset")
	
'Initalise the strSQL variable with an SQL statement to query the database by selecting all tables ordered by the decending date
strSQL = "SELECT tblNews.* FROM tblNews ORDER BY News_Date DESC;"

'Set the cursor type property of the record set to dynamic so we can naviagate through the record set
rsNews.CursorType = 3
	
'Query the database
rsNews.Open strSQL, objADO

'Set the number of records to display on each page by the constant set in the common.asp file
rsNews.PageSize = intRecordsPerPage
	
'Get the record poistion to display from
If NOT rsNews.EOF Then rsNews.AbsolutePage = intRecordPositionPageNum


'Create recorset object
Set rsComments = Server.CreateObject("ADODB.Recordset")

'If there are no rcords in the database display an error message
If rsNews.EOF Then
	'Tell the user there are no records to show
	Response.Write "<br>There are no News Items to read"
	Response.Write "<br>Please check back later"
	Response.End
	


'Display the News Items
Else	
	
	'Count the number of News Items database
	intTotalNumNewsEntries = rsNews.RecordCount	
	
	'Count the number of pages of News Items there are in the database calculated by the PageSize attribute set above
	intTotalNumNewsPages = rsNews.PageCount


	'Display the HTML number number the total number of pages and total number of records
	%>
 <br>
 </font></div>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
 <tr> 
  <td>There are <% = intTotalNumNewsEntries %> News Items in <% = intTotalNumNewsPages %> pages and your are on page number <% = intRecordPositionPageNum %></font></td>
 </tr>
</table>
      <br>
      <%

	'For....Next Loop to display the News Items in the database
	For intRecordLoopCounter = 1 to intRecordsPerPage

		'If there are no records then exit for loop
		If rsNews.EOF Then Exit For
		
		
	
	%>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#000000">
 <tr>
  <td><table width="100%" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF">
    <tr> 
     <td bgcolor="#FFFFFF"><b><font face="Arial, Helvetica, sans-serif" size="2"><% = rsNews("News_title") %></font></b> <em>- <% = FormatDateTime(rsNews("News_Date"), vbLongDate) %></em><br> 
      <% = rsNews("Short_news") %>
      <br><a href="edit_news_item_form.asp?NewsID=<% = rsNews("News_ID") %>" target="_self">Edit / Delete News Item</a> 
   
   		
   		
    </tr>
   </table></td>
 </tr>
</table>
<br>
<%
		'Move to the next record in the recordset
		rsNews.MoveNext
	Next
End If

'Display an HTML table with links to the other News Items
%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td> 
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="50%" align="center"> 
                  <%
'If there are more pages to display then add a title to the other pages
If intRecordPositionPageNum > 1 or NOT rsNews.EOF Then
	Response.Write vbCrLf & "		Page:&nbsp;&nbsp;"
End If

'If the News Items page number is higher than page 1 then display a back link    	
If intRecordPositionPageNum > 1 Then 
	Response.Write vbCrLf & "		 <a href=""select_news_item.asp?PagePosition=" &  intRecordPositionPageNum - 1  & """ target=""_self"">&lt;&lt;&nbsp;Prev</a>&nbsp;"   	     	
End If     	


'If there are more pages to display then display links to all the pages
If intRecordPositionPageNum > 1 or NOT rsNews.EOF Then 
	
	'Display a link for each page in the News Items     	
	For intLinkPageNum = 1 to intTotalNumNewsPages		
		
		'If the page to be linked to is the page displayed then don't make it a hyper-link
		If intLinkPageNum = intRecordPositionPageNum Then
			Response.Write vbCrLf & "		     " & intLinkPageNum
		Else
		
			Response.Write vbCrLf & "		     &nbsp;<a href=""select_news_item.asp?PagePosition=" &  intLinkPageNum  & """ target=""_self"">" & intLinkPageNum & "</a>&nbsp;"			
		End If
	Next
End If


'If it is Not the End of the News Items entries then display a next link for the next News Items page      	
If NOT rsNews.EOF then   	
	Response.Write vbCrLf & "		&nbsp;<a href=""select_news_item.asp?PagePosition=" &  intRecordPositionPageNum + 1  & """ target=""_self"">Next&nbsp;&gt;&gt;</a>"	   	
End If      	


'Finsh HTML the table 
%>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      
<% 

'Reset server objects
rsNews.Close
Set rsNews = Nothing
Set rsComments = Nothing
Set strCon = Nothing
Set objADO = Nothing
%>
 </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>