<%@LANGUAGE="VBSCRIPT"%> <% ':::::::: CUSTOMIZE FROM HERE :::::::: VarDesigner = "ClearBand Media" '/////// Company Info //////////// '--- Address 1 --- VarCompanyName = "Harold Miller REALTOR ®" VarCompanyAddress = "8301 Elm Ave., Suite 511" VarCompanyCity = "Rancho Cucamonga" VarCompanyState = "CA" VarCompanyZip = "91730" VarCompanyPhone = "Phone: 1-909-987-9436" VarCompanyFax = "" '--- Address 2 --- VarCompanyAddress2 = "" VarCompanyCity2 = "" VarCompanyState2 = "" VarCompanyZip2 = "" VarCompanyPhone2 = "" VarCompanyFax2 = "" '/////// Site's Main Attributes /////////// VarPageTitle = "Welcome to " & VarCompanyName 'Page title to appear on each 'page in browser window VarShowDate ="True" 'Set to false to disable date on 'each page VarBgColor = "Black" 'Base page background color. VarMainTable = "750" 'Master table width for entire site: 'Pixel size i.e. "620" or % i.e. "100%" VarMainTableBorderColor = "" 'Main Table Border Color i.e."#FF6600" VarMainTableBorderWidth = "0" 'Main Table Border Width in pixels. VarBullet = "site_images/arrow.gif" '//////// Link Font and Color control VarFontFamily ="font-family:arial,helvetica, sans-serif" VarLinkSize = "font-size:12px" VarALink = "font-size:12px; color:#000000; text-decoration:none; font-style:strong; " & VarFontFamily 'Normal link color VarAvisited ="font-size:12px; color:#1582F1; text-decoration:none; font-style:strong; " & VarFontFamily 'Visited link color VarAhover ="font-size:12px; color:red; text-decoration:none; font-style:strong; " & VarFontFamily 'Color of link with hovering over VarAactive ="font-size:12px; color:#1582F1;text-decoration:none; font-style:strong; " & VarFontFamily 'Color of link when clicked VarOwnerEmail = "harold.miller@verizon.net" 'Website owner's email address REQUIRED!! 'The VarOwnerEmail is the email 'address that all 'form information will be submitted 'to. This should 'be the site owners primary 'email address. VarMLSListing = "True" VarMLS = "http://www.imrmls.com:8080/servlet/lDisplayListings" '/////// Header Variables ///////// VarHeaderBkg ="site_images/bg_tile.gif" 'Background image for liquid designs, 'set to "" if not using '--- ATTENTION! Only one of the 3 variables should be Set to True --- VarFlash = "False" 'True or False VarSingleHeader = "True" 'True or False '--- Description for variable - VarFlash ----- 'Path and settings for flash movie (Movie should not be wider than the main 'table width that was set in variable (VarMAinTable). 'To use the below settings the variable (VarFlash) should be set to True 'and the others set to False If VarFlash = "True" Then 'DO NOT EDIT THIS LINE VarFlashMovie = "flash/sampleflash.swf" 'Path to the movie file 'i.e. flash/flash.swf VarFlashMovieWidth = "620" 'In pixels i.e. 620 VarFlashMovieHeight = "60" 'In pixels i.e. 60 End If 'DO NOT EDIT THIS LINE '--- Description for variable - VarSingleHeader ---- 'Path to the header image (Image should not be wider than the main 'table width that was set in variable (VarMainTable). 'To use the below settings the variable (VarDoubleHeader) should be set to True 'and the others set to False If VarSingleHeader = "True" Then 'DO NOT EDIT THIS LINE VarPageHeader = "site_images/headermiller.jpg" 'Path to the header image End If 'DO NOT EDIT THIS LINE '/////// Slogan Information ////////// - DO NOT USE VarCompanySlogan = "" VarCompanyFontFace = "Verdana" 'Can be set to Verdana, Arial, Times VarCompanyFontSize = "1" 'Do not set this larger than 2 VarCompanyFontColor = "Blue" 'Font color of the displayed company 'info - Use hex (i.e. "#000000") 'color codes if you don't know 'the limitations of the colors. VarCompanyFontStyle = "" 'i.e. color:black (Use it only if 'you know the syntax for styles) VarCompanyFontWeight = "b" 'B = Bold; I = Italic; N = Normal '///////Description for variable - VarAdStatus -////// 'Set to Active or Disabled if Set to Disabled the Ads will not show 'until they are activated by the administrator. VarAdStatus = "Active" '///////Description for variable - VarEnableListing -////// 'True or False - If set to False the listing page 'will not be available for the public. VarEnableListing = "True" '///////Description for variable - VarEnableRestrictMsg -////// 'Restriction message on listing page for Realtors who wish to 'disclose that they have to contact the advertiser before the ad goes active. 'Shows on the listing page. VarEnableRestrictMsg = "" '///////Description for variable - VarShowEditableLinks -////// 'True or False - If set to False then the 'editable page links will not show in site navigation. VarShowEditableLinks = "True" '/////// Description for variable VarEvents - /////// ':: Set to true if client wishes to have editable events on their site ':: Set to false if client does not wish to use editable events on their site VarShowEvents = "True" '/////// Description for variable VarBios - /////// ':: Set to true if client wishes to have editable bios on their site ':: Set to false if client does not wish to use editable bios on their site VarShowBios = "True" '//////// Meta Information for Search Engines //////// VarKeywords ="real estate,homes,realtor,realty,buy,sell,property,schools,move,relocate,estate,foreclosure,credit" VarDescription="" ':::::::: CUSTOMIZABLE CODE ENDS HERE :::::::: '////// DO NOT EDIT BELOW THIS LINE /////// VarFooter = "#Copyright ©" & Year(Date) & " " & VarCompanyName & "
All rights reserved." VarMetaGenerator ="" VarMetaAudience ="" VarMetaAuthorname ="" VarMetaCopyright ="" VarMetaPageType ="" VarMetaPublisher ="" VarMetaRobotos ="" VarMetaDescription ="" VarMetaKeywords ="" VarMetaRevisit ="" VarMetaHttp ="" %> <%= VarPageTitle%> <%=VarMetaGenerator%> <%=VarMetaAudience%> <%=VarMetaAuthorname%> <%=VarMetaCopyright%> <%=VarMetaPageTopic%> <%=VarMetaPageType%> <%=VarMetaPublisher%> <%=VarMetaRobotos%> <%=VarMetaDescription%> <%=VarMetaKeywords%> <%=VarMetaRevisit%> <%=VarMetaHttp%> <% ':::::::: CUSTOMIZE FROM HERE :::::::: VarDesigner = "ClearBand Media" '/////// Company Info //////////// '--- Address 1 --- VarCompanyName = "Harold Miller REALTOR ®" VarCompanyAddress = "8301 Elm Ave., Suite 511" VarCompanyCity = "Rancho Cucamonga" VarCompanyState = "CA" VarCompanyZip = "91730" VarCompanyPhone = "Phone: 1-909-987-9436" VarCompanyFax = "" '--- Address 2 --- VarCompanyAddress2 = "" VarCompanyCity2 = "" VarCompanyState2 = "" VarCompanyZip2 = "" VarCompanyPhone2 = "" VarCompanyFax2 = "" '/////// Site's Main Attributes /////////// VarPageTitle = "Welcome to " & VarCompanyName 'Page title to appear on each 'page in browser window VarShowDate ="True" 'Set to false to disable date on 'each page VarBgColor = "Black" 'Base page background color. VarMainTable = "750" 'Master table width for entire site: 'Pixel size i.e. "620" or % i.e. "100%" VarMainTableBorderColor = "" 'Main Table Border Color i.e."#FF6600" VarMainTableBorderWidth = "0" 'Main Table Border Width in pixels. VarBullet = "site_images/arrow.gif" '//////// Link Font and Color control VarFontFamily ="font-family:arial,helvetica, sans-serif" VarLinkSize = "font-size:12px" VarALink = "font-size:12px; color:#000000; text-decoration:none; font-style:strong; " & VarFontFamily 'Normal link color VarAvisited ="font-size:12px; color:#1582F1; text-decoration:none; font-style:strong; " & VarFontFamily 'Visited link color VarAhover ="font-size:12px; color:red; text-decoration:none; font-style:strong; " & VarFontFamily 'Color of link with hovering over VarAactive ="font-size:12px; color:#1582F1;text-decoration:none; font-style:strong; " & VarFontFamily 'Color of link when clicked VarOwnerEmail = "harold.miller@verizon.net" 'Website owner's email address REQUIRED!! 'The VarOwnerEmail is the email 'address that all 'form information will be submitted 'to. This should 'be the site owners primary 'email address. VarMLSListing = "True" VarMLS = "http://www.imrmls.com:8080/servlet/lDisplayListings" '/////// Header Variables ///////// VarHeaderBkg ="site_images/bg_tile.gif" 'Background image for liquid designs, 'set to "" if not using '--- ATTENTION! Only one of the 3 variables should be Set to True --- VarFlash = "False" 'True or False VarSingleHeader = "True" 'True or False '--- Description for variable - VarFlash ----- 'Path and settings for flash movie (Movie should not be wider than the main 'table width that was set in variable (VarMAinTable). 'To use the below settings the variable (VarFlash) should be set to True 'and the others set to False If VarFlash = "True" Then 'DO NOT EDIT THIS LINE VarFlashMovie = "flash/sampleflash.swf" 'Path to the movie file 'i.e. flash/flash.swf VarFlashMovieWidth = "620" 'In pixels i.e. 620 VarFlashMovieHeight = "60" 'In pixels i.e. 60 End If 'DO NOT EDIT THIS LINE '--- Description for variable - VarSingleHeader ---- 'Path to the header image (Image should not be wider than the main 'table width that was set in variable (VarMainTable). 'To use the below settings the variable (VarDoubleHeader) should be set to True 'and the others set to False If VarSingleHeader = "True" Then 'DO NOT EDIT THIS LINE VarPageHeader = "site_images/headermiller.jpg" 'Path to the header image End If 'DO NOT EDIT THIS LINE '/////// Slogan Information ////////// - DO NOT USE VarCompanySlogan = "" VarCompanyFontFace = "Verdana" 'Can be set to Verdana, Arial, Times VarCompanyFontSize = "1" 'Do not set this larger than 2 VarCompanyFontColor = "Blue" 'Font color of the displayed company 'info - Use hex (i.e. "#000000") 'color codes if you don't know 'the limitations of the colors. VarCompanyFontStyle = "" 'i.e. color:black (Use it only if 'you know the syntax for styles) VarCompanyFontWeight = "b" 'B = Bold; I = Italic; N = Normal '///////Description for variable - VarAdStatus -////// 'Set to Active or Disabled if Set to Disabled the Ads will not show 'until they are activated by the administrator. VarAdStatus = "Active" '///////Description for variable - VarEnableListing -////// 'True or False - If set to False the listing page 'will not be available for the public. VarEnableListing = "True" '///////Description for variable - VarEnableRestrictMsg -////// 'Restriction message on listing page for Realtors who wish to 'disclose that they have to contact the advertiser before the ad goes active. 'Shows on the listing page. VarEnableRestrictMsg = "" '///////Description for variable - VarShowEditableLinks -////// 'True or False - If set to False then the 'editable page links will not show in site navigation. VarShowEditableLinks = "True" '/////// Description for variable VarEvents - /////// ':: Set to true if client wishes to have editable events on their site ':: Set to false if client does not wish to use editable events on their site VarShowEvents = "True" '/////// Description for variable VarBios - /////// ':: Set to true if client wishes to have editable bios on their site ':: Set to false if client does not wish to use editable bios on their site VarShowBios = "True" '//////// Meta Information for Search Engines //////// VarKeywords ="real estate,homes,realtor,realty,buy,sell,property,schools,move,relocate,estate,foreclosure,credit" VarDescription="" ':::::::: CUSTOMIZABLE CODE ENDS HERE :::::::: '////// DO NOT EDIT BELOW THIS LINE /////// VarFooter = "#Copyright ©" & Year(Date) & " " & VarCompanyName & "
All rights reserved." VarMetaGenerator ="" VarMetaAudience ="" VarMetaAuthorname ="" VarMetaCopyright ="" VarMetaPageType ="" VarMetaPublisher ="" VarMetaRobotos ="" VarMetaDescription ="" VarMetaKeywords ="" VarMetaRevisit ="" VarMetaHttp ="" %>
<% If VarSingleHeader = "True" Then %>
<% End If %> <% If VarFlash = "True" Then %>
<% End If %>
   <% If VarShowDate = "True" Then %> <%= DoDateTime( (DATE()) , 1, 1033) & "    " %> <%End If%>
<%'@LANGUAGE="VBSCRIPT"%> <% ' FileName="DesignTime_ado_conn_string.htm" ' Type="ADO" Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\realtortemplate_new\editor\Database\document.mdb; Jet OLEDB:Database Password = ' HTTP="false" ' Catalog="" ' Schema="" MM_connEditorLinks_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("editor\Database\document.mdb") & ";" %> <% set rsEditorLinks = Server.CreateObject("ADODB.Recordset") rsEditorLinks.ActiveConnection = MM_connEditorLinks_STRING rsEditorLinks.Source = "SELECT DocumentID, Status, Title, Sorting FROM Documents WHERE Status = 'Active' ORDER BY Sorting ASC, Title ASC" rsEditorLinks.CursorType = 0 rsEditorLinks.CursorLocation = 2 rsEditorLinks.LockType = 3 rsEditorLinks.Open() rsEditorLinks_numRows = 0 %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 rsEditorLinks_numRows = rsEditorLinks_numRows + Repeat4__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% If VarMLSListing = "True" Then %> <% End If %> <% If VarEnableListing = "True" Then %> <% End If %> <% If VarShowEvents ="True" Then %> <% End If %> <% If VarShowBios ="True" Then %> <% End If %> <% If VarShowEditableLinks = "True" Then %> <% If Not rsEditorLinks.EOF Or Not rsEditorLinks.BOF Then %> <% While ((Repeat4__numRows <> 0) AND (NOT rsEditorLinks.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 rsEditorLinks.MoveNext() Wend %> <% End If ' end Not rsEditorLinks.EOF Or NOT rsEditorLinks.BOF %> <% End If %>
Return Home
Search Our Listings
Search MLS Listings
List Your Property
Open Houses/Events
Meet Your Broker
Contact Us
Mortgage Calculator
Buyer's and Seller's Reports
Community Report
Public Schools
Free Real Estate Forms
Common Ways of Holding Title
Understanding Living Trust
Understanding Condo & PUD Ownership
Understanding Real Estate Language
"><%=(rsEditorLinks.Fields.Item("Title").Value)%>

 

 

<% rsEditorLinks.Close() %>

 


Whether you are a first time buyer or an experienced investor, you will find useful information about how to choose the "right" property, making an offer, negotiating, financing, mortgage rates, moving, and everything involved in making an informed real estate decision in today’s market.

This comprehensive online tool offers direct access to the latest properties for sale in your area. Featuring extensive community information, consumer links, school information, free reports, answers to commonly asked real estate questions, and more, you’ll find everything about real estate within one easy source.

If you currently own property and are thinking of placing it on the market, this site contains information about preparing your home for sale, selecting the right agent, pricing your home appropriately, marketing it effectively, going through the inspection processes, and receiving a timely market evaluation.

Thanks for visiting my online real estate source. Please bookmark this site for future reference, and ENJOY!

  


<%= VarFooter%>