<%

strUserName = session("UserName")
strAccessLevel = session("AccessLevel")


%>

<% 

'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><b><font size="2" color="#000000">HOW TO SELL ON THIS SITE</font></b></p>
            <p>
         <p>
 <font size="2">
Selling on this site is very easy. Follow the steps below to register and start listing your items. 
</P>
<ol>
<li><b>Register An Account</b>
</SPAN><BR>To register an account all you do is fill out the simple
registration form. It is always <font color="red">FREE</font> to register
with us. 
You will also receive a confirmation email with your account information
after registration. Your contact information is always kept confidential!  <br>

              <a href="registermenu.asp"> 
               
               <u><b>Register</b></u></a> an account now. 
</P>
<li><b>Log Into Your Account</b><br>
After registration, you can <a href="login.asp"><u><b>login</b></u></a> to your account and immediately begin placing listings. Take
a moment to get familiar with the user control panel. 
 
</P>
<li><b>Place Your Listing</b><BR>
We have many listing packages for you to choose from. You
can either place a one, three, six, or twelve month featured or standard listing. 
Featured listings rotate on our site's home page and in our site's left margin. Featured
listings also display on our featured listing page. 
All listings will remain active for the listing period chosen. 
<p>
<TABLE cellSpacing=0 cellPadding=0 width=250 align=center border=0>
<TBODY>
<tr>
<td colspan="2" bgcolor="#666600" align="center"><b><font color="white">Our pricing is as follows:</b>
</td>
</tr>

<tr>
<td colspan="2" align="center"><b>Agent Featured Ads</b></td>
</tr>
<tr>
<td>
<li>One Month
</td>
<td>
<% if strAgentFeatured1MonthCost <> "0" then %>
$<%= strAgentFeatured1MonthCost  %>
<% else %>
FREE
<% end if %>

</td>
</tr>
<tr>
<td>
<li>Three Month
</td>
<td>
<% if strAgentFeatured3MonthCost <> "0" then %>
$<%= strAgentFeatured3MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Six Month
</td>
<td>
<% if strAgentFeatured6MonthCost <> "0" then %>
$<%= strAgentFeatured6MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Twelve Month
</td>
<td>
<% if strAgentFeatured12MonthCost <> "0" then %>
$<%= strAgentFeatured12MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>


<tr>
<td colspan="2" align="center"><b>Agent Standard Ads</b></td>
</tr>
<tr>
<td>
<li>One Month
</td>
<td>
<% if strAgentStandard1MonthCost <> "0" then %>
$<%= strAgentStandard1MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Three Month
</td>
<td>
<% if strAgentStandard3MonthCost <> "0" then %>
$<%= strAgentStandard3MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Six Month
</td>
<td>
<% if strAgentStandard6MonthCost <> "0" then %>
$<%= strAgentStandard6MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Twelve Month
</td>
<td>
<% if strAgentStandard12MonthCost <> "0" then %>
$<%= strAgentStandard12MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>


<tr>
<td colspan="2" align="center"><b>User Featured Ads</b></td>
</tr>
<tr>
<td>
<li>One Month
</td>
<td>
<% if strUserFeatured1MonthCost <> "0" then %>
$<%= strUserFeatured1MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Three Month
</td>
<td>
<% if strUserFeatured3MonthCost <> "0" then %>
$<%= strUserFeatured3MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Six Month
</td>
<td>
<% if strUserFeatured6MonthCost <> "0" then %>
$<%= strUserFeatured6MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Twelve Month
</td>
<td>
<% if strUserFeatured12MonthCost <> "0" then %>
$<%= strUserFeatured12MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>



<tr>
<td colspan="2" align="center"><b>User Standard Ads</b></td>
</tr>
<tr>
<td>
<li>One Month
</td>
<td>
<% if strUserStandard1MonthCost <> "0" then %>
$<%= strUserStandard1MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Three Month
</td>
<td>
<% if strUserStandard3MonthCost <> "0" then %>
$<%= strUserStandard3MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Six Month
</td>
<td>
<% if strUserStandard6MonthCost <> "0" then %>
$<%= strUserStandard6MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>
<tr>
<td>
<li>Twelve Month
</td>
<td>
<% if strUserStandard12MonthCost <> "0" then %>
$<%= strUserStandard12MonthCost  %>
<% else %>
FREE
<% end if %>
</td>
</tr>

</TBODY></TABLE>
</ol>

<P>
After the payment process has been completed you will be taken to a screen where you
can begin to add your listing details and pictures. 

Pictures should be approximately 320 pixels wide 
by 240 pixels high. Your file size for each picture should be no larger than 
30kbs to keep page load times to a minimum.</P>

<font color="red"><b>HOT TIPS</b></font>: 
<ul>
<li>Pictures sized at 320 X 240 display best on this site. 
<li>Use GIF pictures for fastest page load times. GIF files are smaller and thus display faster than other picture formats.
<li>
<a href="http://www.tucows.com/preview/194967.html" target="_blank"><u>Click Here</u></a> to download a free tool to assist with resizing your pictures or changing picture formats. 
<li>Have your pictures ready before placing your listing; However, if you do not have your pictures ready at the time
you place your listing, you can always add them later by editing the ad. 
</ul>
<p>

<P>After completing the listing process, your ad will begin displaying on the site 
immediately. You are able to alter your listings at any time. </P>
<p>

What are you waiting for? <a href="login.asp"><b><u>Place</u></b></a> a listing with us today!



  
            
      
 
    
     </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>