Solved

Can anyone figure out why this page does not load fast in IE

Posted on 2008-06-25
18
858 Views
Last Modified: 2013-11-19
This page loads fast enough in Firefox, but ridiculously slow in IE. It has to do with the elements in the drop down. In the status bar it indicates that there are over 4 THOUSAND items remaining (to download.)

It does not seem to matter if some of the drop down elements are populated dynamically or not.
What am I doing wrong.

Even this page the home page of this site loads slower than it should, it has a simpler form.

Thanks in advance.

MakeItRight
0
Comment
Question by:MakeITRight
  • 9
  • 4
  • 3
  • +1
18 Comments
 
LVL 70

Expert Comment

by:Jason C. Levine
ID: 21867832
Because IE blows?

The serious answer: It appears to be either the javascript file or possibly the ASP that builds the search forms.  While the page is loading for me in IE 7, I see the "This page will not work without javascript..." message while the 4000+ items are loading.  The javascript I can see from view source appears harmless enough, so if it is javascript, it would be a called include.  Obviously, we cannot see the ASP at all so I'm just guessing.  

The behavior of IE leads to me believe it's checking each select option as it loads from the DB.
0
 
LVL 14

Expert Comment

by:yessirnosir
ID: 21868137
I doubt this is the issue but I ran dreamweaver validation on the page and the only error it noted was that in line 32 the script tag requires a "type" attribute.  "language" atributed is deprecated.
0
 
LVL 70

Accepted Solution

by:
Jason C. Levine earned 300 total points
ID: 21868177
On that note, there are a ton of invalid codes on the page so IE and FF are rendering in quirks mode.  But I agree with yessirnosir that it shouldn't cause a loading problem.  If anything, it would cause display problems.

http://validator.w3.org/check?verbose=1&uri=http%3A%2F%2Fcbharper.com%2Frealtor%2Fweb4%2Flistings%2Fsearch_w_dropdown_prob.asp%3Fa_id%3D456549%26prop_type%3DRES
0
 
LVL 14

Expert Comment

by:yessirnosir
ID: 21868386
not sure if this adds anything but I noticed that it takes even longer to navigate AWAY from the problem page than it does to load it.  On my machine, a pretty fast Q6600, it took 8 seconds at 25% CPU utilization to load the page, and memory use by IE increased from 55 MB to about 100 MB, so it appears that the page is loading 45 MB into memory.  Then when I navigate to any other random web page, say yahoo.com, it takes 40 seconds of 25% CPU utilization for IE to make the change -- during that period the memory usage drops steadily back to the original 55 MB.  Loading/unloading the same page in Firefox uses almost no CPU time and no memory.
0
 
LVL 44

Expert Comment

by:scrathcyboy
ID: 21870773
Here is one of you main problems --

Microsoft VBScript compilation  error '800a03ea'
Syntax error
/realtor/web4/listings/search_w_dropdown_prob.asp, line 4499
If (Not isNull(myzip)) Then If (<%=(rs_zip.Fields.Item("ZIP").Value)
--------------------------------^

If you are interested as to how I got that ... it's a secret !!
0
 

Author Comment

by:MakeITRight
ID: 21875125
The error that scrathcyboy mentioned is because I left it in an error state while I was in the middle of trying to clean up the validation issues that were mentioned. Sorry.  I feel dumb for not checking the validation  before. But the weird thing is that the home page validates fine except for an ampersand in a url (cleaned up now I think) and it still does this thing in IE where 300 plus items download. I just have never seen dropdown items behave this way before. And Firefox just handles it fine.

Many thanks to those who took the time to look at the page and comment!

I am thinking that I may just go with a text box to replace the dropdowns. It will cause the search experience and results to suffer a little in terms of accuracy because I will loose some control over what values are entered.

I am also thinking of moving to a slider control in the near future, but for now I think the test boxes will need to be the answer.

Any other ideas?
0
 

Author Comment

by:MakeITRight
ID: 21875155
yessirnosir,
I noticed that too. weird. Hopefully finishing the clean up of the validation issues will resolve this.
Thanks
0
 
LVL 44

Expert Comment

by:scrathcyboy
ID: 21879918
"Any other ideas?"

Only if you tell us exactly what your new goals are now, can we help you .....
0
 

Author Comment

by:MakeITRight
ID: 21880652
Well, thanks for the helpful comments. I have finished cleaning up the page. I replaced the dropdowns with test fields and cleaned up the issues that made it invalid to the w3 validator and now it is a little ugly because I took out the tables and replaced with divs, which I will make nice using css. Also I had an extra </div> which may have caused the memory issues and the weird delays.

However, my basic question still stands as a mystery. Why does IE do this little count down for all of the form elements and take longer to load fully than does FireFox unless it is as basic as Jason1178's first comment?

One last thing, I would like to hold out assigning points a day or two to to see if anyone has the final answer, but so far, Jason's comments have been most helpful.

Thanks to all.
MakeItRight
0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 
LVL 70

Expert Comment

by:Jason C. Levine
ID: 21880835
>> unless it is as basic as Jason1178's first comment?

After all this time and as sad as it is, sometime you just chalk it up to IE being IE.

One thing you can do to test is get IE 8...it supposedly fixes a lot of issues.
0
 
LVL 44

Assisted Solution

by:scrathcyboy
scrathcyboy earned 200 total points
ID: 21881053
There is nothing "magical" about the fact that M$ continues to refuse to write to the standards that all other companies accept as the standard DOM model.  M$ just HAS to do it their own way, it is purely an ego trip, because they are M$.  The consequence of this is that all advanced web designers are now realizing that you test your pages on Mozilla, firefox and other browsers first, then when you go to IE, you note where it is non-compliant, and you google for HACKS specific to certain versions of IE (the hacks are different for each version, as M$ yuppies continue to try to learn how to write a real web browser that is "normal".

That said, if you get MAJOR delays in page loading with IE, you can be fairly certain that you do indeed have errors in the code  -- such as the problem I listed above.  Since you have not been any more specific on the problem I can't give any more specific solution.  Want to give specifics?
0
 

Author Comment

by:MakeITRight
ID: 21881268
If you think it will help I will add the code for the page. Specifically, the issue is that fact that IE waits for each item in the form to load while it ticks them of in a count down.
The common.asp page will follow.
The css is in an asp file because there are variable in it. which too will follow.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>

<!--#include file="../Connections/xxxxxx.asp" -->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<% On Error Resume Next %>

<%

Dim rs_css__MMColParam

rs_css__MMColParam = "1"

If (Request.QueryString("a_id") <> "") Then 

 rs_css__MMColParam = Request.QueryString("a_id")

End If

%>

<%

Dim rs_css

Dim rs_css_cmd

Dim rs_css_numRows
 

Set rs_css_cmd = Server.CreateObject ("ADODB.Command")

rs_css_cmd.ActiveConnection = MM_agentdata_STRING

rs_css_cmd.CommandText = "SELECT * FROM xxxxx_website_choices WHERE agent_id = ?" 

rs_css_cmd.Prepared = true

rs_css_cmd.Parameters.Append rs_css_cmd.CreateParameter("param1", 5, 1, -1, rs_css__MMColParam) ' adDouble
 

Set rs_css = rs_css_cmd.Execute

rs_css_numRows = 0

%>

<!-- search head stuff goes here -->

<%

dim mycookiename 

mycookiename = Request.QueryString("a_id")

'This is the cookie factory'
 

'first test if the search should be cleared'

if Request.QueryString("s")="o" THen 

'if so then clear then cookies'

Response.Cookies(mycookiename) ("qs")=""

Response.Cookies(mycookiename) ("list_no")=""

Response.Cookies(mycookiename) ("ivr")=""

Response.Cookies(mycookiename) ("a_id")=Request.QueryString("a_id")

Response.Cookies(mycookiename) ("mls")=""

Response.Cookies(mycookiename) ("city")=""

Response.Cookies(mycookiename) ("prop_type")=""

Response.Cookies(mycookiename) ("price_low")=""

Response.Cookies(mycookiename) ("price_high")=""

Response.Cookies(mycookiename) ("sqft_low")=""

Response.Cookies(mycookiename) ("sqft_high")=""

Response.Cookies(mycookiename) ("beds_low")=""

Response.Cookies(mycookiename) ("beds_high")=""

Response.Cookies(mycookiename) ("baths_low")=""

Response.Cookies(mycookiename) ("baths_high")=""

Response.Cookies(mycookiename) ("hfbaths_low")=""

Response.Cookies(mycookiename) ("hfbaths_high")=""

Response.Cookies(mycookiename) ("school_dist")=""

Response.Cookies(mycookiename) ("subdivision")=""

Response.Cookies(mycookiename) ("zip")=""

Response.Cookies(mycookiename) ("acreage_low")=""

Response.Cookies(mycookiename) ("acreage_high")=""

Response.Cookies(mycookiename) ("In Ground Pool")=""

Response.Cookies(mycookiename) ("Above Ground Pool")=""

Response.Cookies(mycookiename) ("Hot Tub")=""

Response.Cookies(mycookiename) ("Pool / Spa")=""

Response.Cookies(mycookiename) ("Garage Spaces")=""

Response.Cookies(mycookiename) ("age_low")=""

Response.Cookies(mycookiename) ("age_high")=""

Response.Cookies(mycookiename) ("hoa")=""

Response.Cookies(mycookiename) ("multi_photos")=""

Response.Cookies(mycookiename) ("One Story")=""

DIM myqs 

myqs = "" 

DIM mylist_no 

mylist_no = "" 

DIM myivr 

myivr = "" 

DIM mya_id 

mya_id =Request.QueryString("a_id")

DIM mymls 

mymls = "" 

DIM mycity 

mycity = "" 

DIM myprop_type 

myprop_type = Request.QueryString("prop_type")

DIM myprice_low 

myprice_low = "" 

DIM myprice_high 

myprice_high = "" 

DIM mysqft_low 

mysqft_low = "" 

DIM mysqft_high 

mysqft_high = "" 

DIM mybeds_low 

mybeds_low = "" 

DIM mybeds_high 

mybeds_high = "" 

DIM mybaths_low 

mybaths_low = "" 

DIM mybaths_high 

mybaths_high = "" 

DIM myhfbaths_low 

myhfbaths_low = "" 

DIM myhfbaths_high 

myhfbaths_high = "" 

DIM myschool_dist 

myschool_dist = "" 

DIM mysubdivision 

mysubdivision = "" 

DIM myzip 

myzip = "" 

DIM myacreage_low 

myacreage_low = "" 

DIM myacreage_high 

myacreage_high = "" 

DIM myingroundpool 

myingroundpool = "" 

DIM myabovegroundpool 

myabovegroundpool = "" 

DIM Myhottub 

Myhottub = "" 

DIM Mypoolspa 

Mypoolspa = "" 

DIM mygaragespaces 

mygaragespaces = "" 

DIM myage_low 

myage_low = "" 

DIM myage_high 

myage_high = "" 

DIM myhoa 

myhoa = "" 

DIM mymulti_photos 

mymulti_photos = "" 

DIM myone_story 

myone_story = "" 

End if 

%>

<%

'keep the search criteria'

if (Request.QueryString("prop_type") > " ") then

myprop_type = Request.QueryString("prop_type")

Response.Cookies(mycookiename)("prop_type") = Request.QueryString("prop_type")

else 

myprop_type = Request.Cookies(mycookiename)("prop_type")

End If 

%>

<%

myqs = Request.Cookies(mycookiename)("qs")

mylist_no = Request.Cookies(mycookiename)("list_no")

myivr = Request.Cookies(mycookiename)("ivr")

mya_id = Request.Cookies(mycookiename)("a_id")

mymls = Request.Cookies(mycookiename)("mls")

mycity = Request.Cookies(mycookiename)("city")

myprice_low = Request.Cookies(mycookiename)("price_low")

myprice_high = Request.Cookies(mycookiename)("price_high")

mysqft_low = Request.Cookies(mycookiename)("sqft_low")

mysqft_high = Request.Cookies(mycookiename)("sqft_high")

mybeds_low = Request.Cookies(mycookiename)("beds_low")

mybeds_high = Request.Cookies(mycookiename)("beds_high")

mybaths_low = Request.Cookies(mycookiename)("baths_low")

mybaths_high = Request.Cookies(mycookiename)("baths_high")

myhfbaths_low = Request.Cookies(mycookiename)("hfbaths_low")

myhfbaths_high = Request.Cookies(mycookiename)("hfbaths_high")

myschool_dist = Request.Cookies(mycookiename)("school_dist")

mysubdivision = Request.Cookies(mycookiename)("subdivision")

myzip = Request.Cookies(mycookiename)("zip")

myacreage_low = Request.Cookies(mycookiename)("acreage_low")

myacreage_high = Request.Cookies(mycookiename)("acreage_high")

myingroundpool = Request.Cookies(mycookiename)("In Ground Pool")

myabovegroundpool = Request.Cookies(mycookiename)("Above Ground Pool")

myhottub = Request.Cookies(mycookiename)("Hot Tub")

mypoolspa = Request.Cookies(mycookiename)("Pool / Spa")

mygaragespaces = Request.Cookies(mycookiename)("Garage Spaces")

myage_low = Request.Cookies(mycookiename)("age_low")

myage_high = Request.Cookies(mycookiename)("age_high")

myhoa = Request.Cookies(mycookiename)("hoa")

mymulti_photos = Request.Cookies(mycookiename)("multi_photos")

myone_story = Request.Cookies(mycookiename)("One Story")

%>
 

<%

Dim rs_agentdata__MMColParam

rs_agentdata__MMColParam = "1"

If (Request.QueryString("a_id") <> "") Then 

 rs_agentdata__MMColParam = Request.QueryString("a_id")

End If

%>

<%

Dim rs_agentdata__MMColParam2

rs_agentdata__MMColParam2 = "1"

If (Request.QueryString("a_id") <> "") Then 

 rs_agentdata__MMColParam2 = Request.QueryString("a_id")

End If

%>

<%

Dim rs_agentdata

Dim rs_agentdata_cmd

Dim rs_agentdata_numRows
 

Set rs_agentdata_cmd = Server.CreateObject ("ADODB.Command")

rs_agentdata_cmd.ActiveConnection = MM_agentdata_STRING

rs_agentdata_cmd.CommandText = "SELECT *,AgentLicense as agent_id,'Domain' = CASE When DomainURL LIKE '%cbharper.com%' Then 'AgentDomain.com' ELSE DomainURL END FROM xxxxx_web_data WHERE (AgentLicense = ? AND UPPER(Web) = 'WEBSITE4' ) OR (AgentLicense = ? AND StartDate > GetDate() -3)" 

rs_agentdata_cmd.Prepared = true

rs_agentdata_cmd.Parameters.Append rs_agentdata_cmd.CreateParameter("param1", 5, 1, -1, rs_agentdata__MMColParam) ' adDouble

rs_agentdata_cmd.Parameters.Append rs_agentdata_cmd.CreateParameter("param2", 5, 1, -1, rs_agentdata__MMColParam2) ' adDouble
 

Set rs_agentdata = rs_agentdata_cmd.Execute

rs_agentdata_numRows = 0

%>
 

<%

Dim rs_teamdata__MMColParam2

rs_teamdata__MMColParam2 = "2"

If (Request.QueryString("a_id") <> "") Then 

 rs_teamdata__MMColParam2 = Request.QueryString("a_id")

End If

%>

<%

Dim rs_teamdata

Dim rs_teamdata_numRows
 

Set rs_teamdata = Server.CreateObject("ADODB.Recordset")

rs_teamdata.ActiveConnection = MM_agentdata_STRING

rs_teamdata.Source = "SELECT * FROM xxxxxxAgentTeams WHERE TeamLeadLicense = '" + Replace(rs_teamdata__MMColParam2, "'", "''") + "'"

rs_teamdata.CursorType = 0

rs_teamdata.CursorLocation = 2

rs_teamdata.LockType = 1

rs_teamdata.Open()
 

rs_teamdata_numRows = 0

%>
 

<%

Dim rs_listingsCnt

Dim rs_listingsCnt_numRows
 

Set rs_listingsCnt = Server.CreateObject("ADODB.Recordset")

rs_listingsCnt.ActiveConnection = MM_agentdata_STRING

rs_listingsCnt.Source = "Select * From xxxxxxxListingsCount"

rs_listingsCnt.CursorType = 0

rs_listingsCnt.CursorLocation = 2

rs_listingsCnt.LockType = 1

rs_listingsCnt.Open()
 

rs_listingsCnt_numRows = 0

%>

<%

Dim rs_featured_listings__MMColParam

rs_featured_listings__MMColParam = "9999999"

If (Request.QueryString("a_id") <> "") Then 

 rs_featured_listings__MMColParam = Request.QueryString("a_id")

End If

%>

<% Dim strTeamLicense

strTeamLicense = "999999999"

If (rs_agentdata.Fields.Item("TeamLeadLicense").Value) <> NULL OR(rs_agentdata.Fields.Item("TeamLeadLicense").Value) <> "" THEN

strTeamLicense = (rs_agentdata.Fields.Item("TeamLeadLicense").Value)

End IF

%>

<%

Dim rs_featured_listings__MMColParam2

rs_featured_listings__MMColParam2 = "9999999"

If (Request.QueryString("a_id") <> "") Then 

 rs_featured_listings__MMColParam2 = strTeamLicense

End If

%>

<%

Dim rs_featured_listings

Dim rs_featured_listings_cmd

Dim rs_featured_listings_numRows
 

Set rs_featured_listings_cmd = Server.CreateObject ("ADODB.Command")

rs_featured_listings_cmd.ActiveConnection = MM_agentdata_STRING

rs_featured_listings_cmd.CommandText = "SELECT * FROM xxxxxListingsCountByAgentLic_orByTeamLic WHERE List_Agent = ? OR List_Agent = ?" 

rs_featured_listings_cmd.Prepared = true

rs_featured_listings_cmd.Parameters.Append rs_featured_listings_cmd.CreateParameter("param1", 5, 1, -1, rs_featured_listings__MMColParam) ' adDouble

rs_featured_listings_cmd.Parameters.Append rs_featured_listings_cmd.CreateParameter("param2", 5, 1, -1, rs_featured_listings__MMColParam2) ' adDouble
 

Set rs_featured_listings = rs_featured_listings_cmd.Execute

rs_featured_listings_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index
 

Repeat1__numRows = -1

Repeat1__index = 0

rs_teamdata_numRows = rs_teamdata_numRows + Repeat1__numRows

%>

<%

Dim rs_listingsCountCOND

Dim rs_listingsCountCOND_numRows
 

Set rs_listingsCountCOND = Server.CreateObject("ADODB.Recordset")

rs_listingsCountCOND.ActiveConnection = MM_agentdata_STRING

rs_listingsCountCOND.Source = "SELECT * FROM xxxxxxListingsCountByPropertyType WHERE Prop_Type = 'COND'"

rs_listingsCountCOND.CursorType = 0

rs_listingsCountCOND.CursorLocation = 2

rs_listingsCountCOND.LockType = 1

rs_listingsCountCOND.Open()
 

rs_listingsCountCOND_numRows = 0

%>

<%

Dim rs_listingsCountLAL

Dim rs_listingsCountLAL_numRows
 

Set rs_listingsCountLAL = Server.CreateObject("ADODB.Recordset")

rs_listingsCountLAL.ActiveConnection = MM_agentdata_STRING

rs_listingsCountLAL.Source = "SELECT * FROM xxxxxxxxxListingsCountByPropertyType WHERE Prop_Type = 'LAL'"

rs_listingsCountLAL.CursorType = 0

rs_listingsCountLAL.CursorLocation = 2

rs_listingsCountLAL.LockType = 1

rs_listingsCountLAL.Open()
 

rs_listingsCountLAL_numRows = 0

%>

<%

Dim rs_listingsCountMUL

Dim rs_listingsCountMUL_numRows
 

Set rs_listingsCountMUL = Server.CreateObject("ADODB.Recordset")

rs_listingsCountMUL.ActiveConnection = MM_agentdata_STRING

rs_listingsCountMUL.Source = "SELECT * FROM xxxxxxxxListingsCountByPropertyType WHERE Prop_Type = 'MUL'"

rs_listingsCountMUL.CursorType = 0

rs_listingsCountMUL.CursorLocation = 2

rs_listingsCountMUL.LockType = 1

rs_listingsCountMUL.Open()
 

rs_listingsCountMUL_numRows = 0

%>

<%

Dim rs_listingsCountRES

Dim rs_listingsCountRES_numRows
 

Set rs_listingsCountRES = Server.CreateObject("ADODB.Recordset")

rs_listingsCountRES.ActiveConnection = MM_agentdata_STRING

rs_listingsCountRES.Source = "SELECT * FROM xxxxxxxxxxxListingsCountByPropertyType WHERE Prop_Type = 'RES'"

rs_listingsCountRES.CursorType = 0

rs_listingsCountRES.CursorLocation = 2

rs_listingsCountRES.LockType = 1

rs_listingsCountRES.Open()
 

rs_listingsCountRES_numRows = 0

%>
 
 

<meta name="description" content="<%=(rs_agentdata.Fields.Item("AgentFirstName").Value)%>&nbsp;<%=(rs_agentdata.Fields.Item("AgentLastName").Value)%> REALTOR&reg;,&nbsp;<%=(rs_agentdata.Fields.Item("DESIGNATIONS").Value)%>&nbsp;(<%=LEFT(rs_agentdata.Fields.Item("AgentPhone").Value,3)%>)<%=MID(rs_agentdata.Fields.Item("AgentPhone").Value,4,3)%>-<%=MID(rs_agentdata.Fields.Item("AgentPhone").Value,7,4)%>&nbsp;&lsquo;<%=(rs_agentdata.Fields.Item("SLOGAN").Value)%>&rsquo;" />

<meta name="keywords" content="<%=(rs_css.Fields.Item("KeyWords").Value)%>" />

<title>Property Search <%=(rs_agentdata.Fields.Item("DomainURL").Value)%>, <%=(rs_agentdata.Fields.Item("AgentFirstName").Value)%>&amp;<%=(rs_agentdata.Fields.Item("AgentLastName").Value)%>REALTOR&reg;</title>
 

<script type="text/javascript" language="javascript" src="/realtor/web4/scripts/common_2008_6_20.js"></script>

<script language="javascript" type="text/javascript">

// Does test for JavaScript Support 

function checkJavaScriptValidity() 
 

{

document.getElementById("big_wrapper").style.visibility = 'visible';

document.getElementById("jsDisabled").style.visibility = 'hidden';
 

}
 

</script>
 

<!--#include virtual="/realtor/web4/scripts/common.asp" -->
 
 

<%

Dim CssPath

CssPath = "../css/" 

CssPath = CssPath+(rs_css.Fields.Item("path").Value)

CssPath = CssPath+"/internal.css.asp?a_id="

CssPath= CssPath+Request.QueryString("a_id")

%>
 

<script language="JavaScript" type="text/javascript" src="/realtor/web4/scripts/motionpack.js"></script>

<style type="text/css">

<!--

#right_column .search_iframe h4 {

 margin-top: 0px;

 border-top-width: 0px;

 border-right-width: 0px;

 border-bottom-width: thin;

 border-left-width: 0px;

 border-bottom-style: solid;

 border-bottom-color: #11567B;

 margin-right: 10px;

 margin-bottom: 10px;

}

.search_headers {

 font-size: 11px;

 font-weight: bolder;

 font-family: Arial, Helvetica, sans-serif;

 color: #333333;

 margin: 0pt 0pt 20pt;

}

#big_wrapper {

 font-size: 11px;

 font-family: Arial, Helvetica, sans-serif;

 color: #333333;

 width: 500px;

 margin-left:0px;

 text-align: left;

}

.data_caption {

 font-size: 11px;

 font-weight: bolder;

 font-family: Arial, Helvetica, sans-serif;

 color: #333333;

}

#iframe_wrapper{

 font-size: 11px;

 font-family: Arial, Helvetica, sans-serif;

 color: #333333;

 text-align: left;

}

.left_border {

 border-left-width: thin;

 border-left-style: solid;

 border-left-color: #CCCCCC;

}

#qs_div {

 border: thin solid #CCCCCC;

 margin: 10px;

 width: 500px;

 padding-left: 10px;

 padding-top: 10px;

 padding-bottom: 10px;

 background-color: #F2F7FD;

}

#basic_search_container{

 border: thin solid #CCCCCC;

 margin: 10px;

 width: 500px;

 padding-left: 10px;

 padding-top: 10px;

 padding-bottom: 10px;

 background-color: #F2F7FD;

}

#advance_search_container {

 border: thin solid #CCCCCC;

 margin: 10px;

 width: 500px;

 padding-left: 10px;

 padding-top: 10px;

 padding-bottom: 10px;

 background-color: #F2F7FD;

}

.basic_text {

 font-size: 11px;

 display: inline;

}

.make_right {

 text-align: right;

 vertical-align: bottom;

 padding-right: 10px;

}

.smaller_print {

font-size: 9px;

}

.quick_search {

 float:left;

}

.clear_me {

	clear: both;

}

.off {

 display:none;

}

.on {

 display:block;

 margin:10px 30px;

 text-align:justify;

 color:#333333;

 font-family: Arial, Helvetica, sans-serif;

 font-size: 10px;

 font-style: normal;

 font-weight: normal;

}

.float_right {

	float: right;

	margin-right: 10px;

	margin-top: 10px;

}

#mls_no_selector,#ivr_selector	{

	width: 150px;

	margin: 0px;

	float: left;

}

#garage_selector, #zip_selector, #halfbathroom_selector, #bathroom_selector, #bedroom_selector, #property_type_selector, #price_selector, #sqft_selector, #multiple_photos_selector	{

	width: 250px;

	margin: 0px;

	float: left;

	height: 25px;

	margin-bottom: 10px;

}

#subdivision_selector,#school_district_selector	{

margin-top:15px;

width:500px;

}

.submit_buttons	{

	margin-right:15px;

	text-align: right;

}

-->

</style>

<link rel="stylesheet" type="text/css" media="all" href="<%=CssPath%>" />
 

 <!--[if IE]>

  <style type="text/css">

   #nav li ul { margin-left: -2px; }//use the variable vAgent_website_choices.ie_hack_code //

  </style>

 <![endif]--> 

</head>

<body onload="checkJavaScriptValidity()">

 <div id="container">

  <div id="wrapper">

   <div id="header">

    <div id="header_line">

     <h1>

      <a href="/realtor/web4/default.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">

       <% If rs_agentdata.Fields.Item("DisplayTeamName").Value <> 0 Then %>

       <% =(rs_agentdata.Fields.Item("TeamName").Value)%>

       <% Else %>

       <%=(rs_agentdata.Fields.Item("AgentFirstName").Value)%>&nbsp;<%=(rs_agentdata.Fields.Item("AgentLastName").Value)%>

       <% END IF %>

      </a>

     </h1>    

    </div><!-- header_line -->

    <div id="header_content">

     <!-- This portion should be hidden for the left menu and shown for the top menu templates start -->

     <div id="realtor_photo_top" class="top_nav_style">

      <div id="photo_1" ><img class="photo" src="http://cbharper.com/photos/agents/rounded/<%=(rs_css.Fields.Item("agent_id").Value)%>.jpg" alt="<%=(rs_agentdata.Fields.Item("AgentFirstName").Value)%>" /></div>

      <div id="frame_1" ><img src="/realtor/web4/images/<%=(rs_css.Fields.Item("path").Value)%>/agent_frame.gif" width="188" height="234" alt="<%=(rs_agentdata.Fields.Item("AgentFirstName").Value)%>" /><!--This agent_fram.gif needs to do whatever looks correct for the template --></div>

     </div><!-- realtor_photo_top -->

     <h2 class="top_nav_style">&quot;<%=stripHTML(rs_agentdata.Fields.Item("SLOGAN").Value)%>&quot;</h2>

     <div id="left_nav" class="left_nav_style">

      <ul id="l_nav">

       <li>

        <a href="/realtor/web4/default.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">HOME</a>       </li>

       <li>

        <a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">CONTACT</a>

        <ul>

         <li><a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Contact</a></li>

         <li><a href="/realtor/web4/about.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">About Me</a></li>

         <% IF (rs_css.Fields.Item("testimonials").Value) = true Then%>

         <li><a href="/realtor/web4/testimonials.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Testimonials</a></li>

         <% End If%>

        </ul>

       </li>

       <li>

        <a href="/realtor/web4/listings/search-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">PROPERTY SEARCH</a>

        <ul>

         <li><a href="/realtor/web4/listings/search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;prop_type=RES">Residential</a></li>

         <li><a href="/realtor/web4/listings/search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;prop_type=COND">Condo</a></li>

         <li><a href="/realtor/web4/listings/search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;prop_type=MUL">Multi-Family</a></li>

         <li><a href="/realtor/web4/listings/search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;prop_type=LAL">Farm &amp; Land</a></li>

        </ul>

       </li>

        <% If Not rs_featured_listings.EOF Or Not rs_featured_listings.BOF Then %>

       <li>

        <a href="/realtor/web4/listings/featured-listings.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>&amp;featured=properties">FEATURED PROPERTIES</a>

        <ul>

         <li><a href="/realtor/web4/listings/featured-listings.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>&amp;featured=properties">Featured</a></li>

         <% If 1 =2 Then 'Taken out till we get the sold data figured out%>

         <li><a href="/realtor/web4/listings/featured-listings.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>&amp;featured=sold">Sold</a></li>

         <% End If ' end rs_count_sold_listings.EOF Or Not rs_count_sold_listings.BOF' %> 

        </ul>

       </li>

        <% End If ' end Not rs_featured_listings.EOF Or NOT rs_featured_listings.BOF '%>

       <li>

        <a href="/realtor/web4/buyers/buyers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">BUYERS</a>

        <ul>

         <li><a href="/realtor/web4/useful-info/why-use-a-realtor.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Why Use A Realtor</a></li>

         <li>

         <a href="http://www.netmovein.com/home/landscape?jpid=SecureHome&amp;cid=

         <% If (rs_agentdata.Fields.Item("location").Value) = "NW" Then %>82277<% End If %>

         <% If (rs_agentdata.Fields.Item("location").Value) = "NC/1604" Then %>82171<% End If %>

         <% If (rs_agentdata.Fields.Item("location").Value) = "NE" Then %>81519<% End If %>

         <% If (rs_agentdata.Fields.Item("location").Value) = "Stone Oak" Then %>81526<% End If %>

         <% If (rs_agentdata.Fields.Item("location").Value) = "NB" Then %>82278<% End If %>

         <% If (rs_agentdata.Fields.Item("location").Value) = "Alamo Ranch" Then %>95555<% End If %>

          " target="_blank">Mortgage Financing</a></li>

         <li><a href="/realtor/web4/listings/search-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Property Search</a></li>

         <li><a href="/realtor/web4/buyers/buyers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Buyer Tips</a></li>

        </ul>

       </li>

       <li>

        <a href="/realtor/web4/sellers/sellers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">SELLERS</a>

        <ul>

         <li><a href="/realtor/web4/useful-info/why-use-a-realtor.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Why Use A Realtor</a></li>

         <li><a href="/realtor/web4/sellers/power-of-partnership.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">The Power Of Partnership</a></li>

         <li><a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">What&rsquo;s My Home Worth</a></li>

         <li><a href="/realtor/web4/sellers/sellers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Sellers Tips</a></li>

        </ul>

       </li>

       <li>

        <a href="/realtor/web4/useful-info/useful-info-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">USEFUL INFO</a>

        <ul>

          <%if not ISNULL(rs_css.Fields.Item("custom_link1_text").Value) THEN %>

         <li><a href="<%=(rs_css.Fields.Item("custom_link1_url").Value)%>"><%=(rs_css.Fields.Item("custom_link1_text").Value)%></a></li>

          <% End If %>

          <% IF (rs_css.Fields.Item("video_subscriber").Value) = true Then%>

         <li><a href="/realtor/web4/videos.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Videos</a></li>

          <% End IF %>

         <li><a href="/realtor/web4/useful-info/useful-links.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Helpful Links</a></li>

         <li><a href="/realtor/web4/buyers/buyers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Tips For Buyers</a></li>

         <li><a href="/realtor/web4/sellers/sellers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Tips For Sellers</a></li>

         <li><a href="/realtor/web4/useful-info/useful-info-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Useful Information</a></li>

        </ul>

       </li>

      </ul>

     </div><!-- left_nav -->

     <!-- This portion should be hidden for the left menu and shown for the top menu templates end -->

     <!-- This portion should be shown for the left menu and hidden for the top menu templates start -->

     <div id="header_right" class="left_nav_style"><div id="realtor_photo_left">

      <div id="photo" ><img class="photo" src="http://cbharper.com/photos/agents/198X244/<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>.jpg" alt="<%=(rs_agentdata.Fields.Item("AgentFirstName").Value)%>" /></div>

      <div id="frame" ><img class="frame" src="/realtor/web4/images/<%=(rs_css.Fields.Item("path").Value)%>/agent_frame.png" alt="<%=(rs_agentdata.Fields.Item("AgentFirstName").Value)%>" /></div>

     </div>

      <h2>&quot;<%=stripHTML(rs_agentdata.Fields.Item("SLOGAN").Value)%>&quot;</h2>

     </div><!-- header_right -->

     <!-- This portion should be shown for the left menu and hidden for the top menu templates end -->

    </div><!-- header_content -->

   </div><!-- header -->

   <!-- This portion should be hidden for the left menu and shown for the top menu templates start -->

   <div id="main_nav" class="top_nav_style">

    <ul id="t_nav">

     <li>

      <a href="/realtor/web4/default.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">HOME</a>

     </li>

     <li>

      <a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">CONTACT</a>

      <ul>

       <li><a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Contact</a></li>

       <li><a href="/realtor/web4/about.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">About Me</a></li>

       <% IF (rs_css.Fields.Item("testimonials").Value) = true Then%>

       <li><a href="/realtor/web4/testimonials.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Testimonials</a></li>

       <% End If%>

      </ul>

     </li>

     <li>

      <a href="/realtor/web4/listings/search-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">PROPERTY SEARCH</a>

      <ul>

       <li><a href="/realtor/web4/listings/search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;prop_type=RES">Residential</a></li>

       <li><a href="/realtor/web4/listings/search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;prop_type=COND">Condo</a></li>

       <li><a href="/realtor/web4/listings/search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;prop_type=MUL">Multi-Family</a></li>

       <li><a href="/realtor/web4/listings/search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;prop_type=LAL">Farm &amp; Land</a></li>

      </ul>

     </li>

      <% If Not rs_featured_listings.EOF Or Not rs_featured_listings.BOF Then %>

     <li>

      <a href="/realtor/web4/listings/featured-listings.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>&amp;featured=properties">FEATURED PROPERTIES</a>

      <ul>

       <li><a href="/realtor/web4/listings/featured-listings.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>&amp;featured=properties">Featured</a></li>

       <% If 1 =2 Then 'Taken out till we get the sold data figured out%>

       <li><a href="/realtor/web4/listings/featured-listings.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>&amp;featured=sold">Sold</a></li>

       <% End If ' end rs_count_sold_listings.EOF Or Not rs_count_sold_listings.BOF' %> 

      </ul>

     </li>

      <% End If ' end Not rs_featured_listings.EOF Or NOT rs_featured_listings.BOF '%>

     <li>

      <a href="/realtor/web4/buyers/buyers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">BUYERS</a>

      <ul>

       <li><a href="/realtor/web4/useful-info/why-use-a-realtor.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Why Use A Realtor</a></li>

       <li>

       <a href="http://www.netmovein.com/home/landscape?jpid=SecureHome&amp;cid=

       <% If (rs_agentdata.Fields.Item("location").Value) = "NW" Then %>82277<% End If %>

       <% If (rs_agentdata.Fields.Item("location").Value) = "NC/1604" Then %>82171<% End If %>

       <% If (rs_agentdata.Fields.Item("location").Value) = "NE" Then %>81519<% End If %>

       <% If (rs_agentdata.Fields.Item("location").Value) = "Stone Oak" Then %>81526<% End If %>

       <% If (rs_agentdata.Fields.Item("location").Value) = "NB" Then %>82278<% End If %>

       <% If (rs_agentdata.Fields.Item("location").Value) = "Alamo Ranch" Then %>95555<% End If %>

        " target="_blank">Mortgage Financing</a></li>

       <li><a href="/realtor/web4/listings/search-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Property Search</a></li>

       <li><a href="/realtor/web4/buyers/buyers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Buyer Tips</a></li>

      </ul>

     </li>

     <li>

      <a href="/realtor/web4/sellers/sellers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">SELLERS</a>

      <ul>

       <li><a href="/realtor/web4/useful-info/why-use-a-realtor.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Why Use A Realtor</a></li>

       <li><a href="/realtor/web4/sellers/power-of-partnership.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">The Power Of Partnership</a></li>

       <li><a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">What&rsquo;s My Home Worth</a></li>

       <li><a href="/realtor/web4/sellers/sellers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Sellers Tips</a></li>

      </ul>

     </li>

     <li>

      <a href="/realtor/web4/useful-info/useful-info-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">USEFUL INFO</a>

      <ul>

        <%if not ISNULL(rs_css.Fields.Item("custom_link1_text").Value) THEN %>

       <li><a href="<%=(rs_css.Fields.Item("custom_link1_url").Value)%>"><%=(rs_css.Fields.Item("custom_link1_text").Value)%></a></li>

        <% End If %>

        <% IF (rs_css.Fields.Item("video_subscriber").Value) = true Then%>

       <li><a href="/realtor/web4/videos.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Videos</a></li>

        <% End IF %>

       <li><a href="/realtor/web4/useful-info/useful-links.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Helpful Links</a></li>

       <li><a href="/realtor/web4/buyers/buyers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Tips For Buyers</a></li>

       <li><a href="/realtor/web4/sellers/sellers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Tips For Sellers</a></li>

       <li><a href="/realtor/web4/useful-info/useful-info-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">Useful Information</a></li>

      </ul>

     </li>

    </ul>

   </div><!-- main_nav -->

   <!-- This portion should be hidden for the left menu and shown for the top menu templates end -->

   <div id="main">

    <div id="left_column"><h3><%=Replace(rs_agentdata.Fields.Item("Domain").Value,"www.","")%>&nbsp;</h3>

     <div id="contact">

       <% If rs_agentdata.Fields.Item("DisplayTeamName").Value > 0 Then %>

        <div class="info">

         <h2><a href="/realtor/web4/about.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>"><% =(rs_agentdata.Fields.Item("TeamName").Value)%></a></h2>

        </div><!-- info -->

       <% END IF %>

        <h2><a href="/realtor/web4/about.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>"><%=(rs_agentdata.Fields.Item("AgentFirstName").Value)%>&nbsp;<%=(rs_agentdata.Fields.Item("AgentLastName").Value)%></a></h2>

         <span>

          <%If (rs_agentdata.Fields.Item("DESIGNATIONS").Value > " ") THEN Response.Write("<span>"& rs_agentdata.Fields.Item("DESIGNATIONS").Value)&"</span><br />"%>

          Office: (<%=left(rs_agentdata.Fields.Item("AgentPhone").Value,3)%>) <%=mid(rs_agentdata.Fields.Item("AgentPhone").Value,4,3)%> - <%=mid(rs_agentdata.Fields.Item("AgentPhone").Value,7,4)%><br />

          Cell: (<%=left(rs_agentdata.Fields.Item("wireless").Value,3)%>) <%=mid(rs_agentdata.Fields.Item("wireless").Value,4,3)%> - <%=mid(rs_agentdata.Fields.Item("wireless").Value,7,4)%><br />

          Fax: (<%=left(rs_agentdata.Fields.Item("fax").Value,3)%>) <%=mid(rs_agentdata.Fields.Item("fax").Value,4,3)%> - <%=mid(rs_agentdata.Fields.Item("fax").Value,7,4)%><br />

          <a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>"><%=(rs_agentdata.Fields.Item("EMailDomain").Value)%></a>

         </span>

         <% If rs_css.Fields.Item("show_team_members").Value = TRUE Then %>

        <% 

        While ((Repeat1__numRows <> 0) AND (NOT rs_teamdata.EOF)) 

        %>

         <h2><%=(rs_teamdata.Fields.Item("FirstName").Value)%>&nbsp;<%=(rs_teamdata.Fields.Item("LastName").Value)%></h2>

         <span>

          <%If (rs_teamdata.Fields.Item("DESIGNATIONS").Value > " ") THEN Response.Write("<span>"&rs_teamdata.Fields.Item("DESIGNATIONS").Value&"</span><br />")%>

          Office: (<%=left(rs_teamdata.Fields.Item("Phone").Value,3)%>) <%=mid(rs_teamdata.Fields.Item("Phone").Value,4,3)%> - <%=mid(rs_teamdata.Fields.Item("Phone").Value,7,4)%><br />

          <a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_teamdata.Fields.Item("TeamLeadLicense").Value)%>"><%=(rs_teamdata.Fields.Item("EMail").Value)%></a>

         </span>

        <% 

        Repeat1__index=Repeat1__index+1

        Repeat1__numRows=Repeat1__numRows-1

        rs_teamdata.MoveNext()

        Wend

        %>

        <% End If %>

     </div><!-- contact -->

     <div id="address">

      <h3>Office</h3>

      <span>

       <%=(rs_agentdata.Fields.Item("Office_Address").Value)%><% IF NOT ISNULL(rs_agentdata.Fields.Item("Office_Address2").Value) THEN Response.Write(", "+rs_agentdata.Fields.Item("Office_Address2").Value) END IF%><br />

       <%=(rs_agentdata.Fields.Item("Office_City").Value)%>, TX&nbsp;&nbsp;<%=(rs_agentdata.Fields.Item("Office_ZIP").Value)%><br />

       Fax: (<%=left(rs_agentdata.Fields.Item("fax").Value,3)%>) <%=mid(rs_agentdata.Fields.Item("fax").Value,4,3)%> - <%=mid(rs_agentdata.Fields.Item("fax").Value,7,4)%><br />

      </span>

      <p><a href="javascript:open_window('http://maps.google.com/maps?f=q&amp;hl=en&amp;geocode=&amp;q=<%=(rs_agentdata.Fields.Item("office_address").Value)%>+<%=(rs_agentdata.Fields.Item("office_city").Value)%>+<%=(rs_agentdata.Fields.Item("office_zip").Value)%>,tx+&amp;z=17&amp;iwloc=addr')">View Map</a></p>

      <p id="coldwell_logo">

       <a href="http://www.cbharper.com/" target="_blank"><img src="../images/<%=(rs_css.Fields.Item("path").Value)%>/coldwell_logo.gif" alt="" border="0" /></a>

      </p>

     </div><!-- address -->

    </div><!-- left_column -->

    <div id="right_column">

     <div id="right_content">

      <div id="big_wrapper" style="visibility:hidden">

       <form name="form1" id="form1" method="post" action="results.asp?a_id=<%=Request.QueryString("a_id")%>">

        <div id="search_group" >

          <div id="qs_div" class="search_iframe">

           <h4>&nbsp;Quick Search:</h4>

           <div id="quick_search_selector" class="search_iframe">    

            <input name="qs" class="basic_text" id="qs" size="60" maxlength="60" /><br />

            <span class="smaller_print">&nbsp;&nbsp;e.g. "street name" or "Subdivision"</span>

           </div>

           <div id="mls_no_selector" class="show_inline">

            <br />or by <strong>MLS#</strong><br />

            <input name="list_no" type="text" class="basic_text" id="list_no" size="15" maxlength="10" />

           </div>

           <div id="ivr_selector" class="show_inline">

            <br /> or by <strong>HomeFacts#</strong><br />

            <input name="ivr" type="text" class="basic_text" id="ivr" size="15" maxlength="10" />

           </div>

           <p class="submit_buttons">

            <a href="search.asp?a_id=<%=Request.QueryString("a_id")%>&amp;s=o">(Start Over)</a>

            <input name="Submit" type="submit" value="Submit" />

           </p>

          </div><!-- qs_div -->

          <div id="iframe_wrapper1">

          <div id="basic_search_container" class="search_iframe">

            <h4><span ><a href="javascript:;" onmousedown="toggleSlide('basic_search');">&nbsp;Basic Search</a></span></h4>

             <div id="basic_search" >

              <div id="mls_selector" class="search_iframe"><span class="data_caption">Multiple Listing Service?</span>

               <p><label><input <%If (CStr(mymls) = CStr("sanantonio")) Then Response.Write("CHECKED") : Response.Write("")%> name="MLS" type="radio" value="sanantonio" checked="checked" />San Antonio and surrounding areas</label><br /><label><input <%If (CStr(mymls) = CStr("centraltexas")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="MLS" value="centraltexas" />New Braunfels and surrounding areas</label></p>

              </div>

              <div id="city_selector" class="search_iframe">

            <p>

             <span class="data_caption">City?</span><br />

              <input name="city" type="text" class="basic_text" id="city" size="60" maxlength="60" />

            </p>

           </div><!-- basic_search -->

           <div id="property_type_selector" class="search_iframe">

            <p><span class="data_caption">Property Type?</span><br />

              <select name="prop_type" class="basic_text" id="prop_type">

                <option value="RES" <%If (Not isNull(myprop_type)) Then If ("RES" = CStr(myprop_type)) Then Response.Write("selected=""selected""")%> >Residential</option>

                <option value="COND" <%If (Not isNull(myprop_type)) Then If ("COND" = CStr(myprop_type)) Then Response.Write("selected=""selected""")%>>Condos</option>

                <option value="MUL" <%If (Not isNull(myprop_type)) Then If ("MUL" = CStr(myprop_type)) Then Response.Write("selected=""selected""")%>>Multi-Family</option>

                <option value="LAL" <%If (Not isNull(myprop_type)) Then If ("LAL" = CStr(myprop_type)) Then Response.Write("selected=""selected""")%>>Lots Land or Farms</option>

              </select>

            </p>

           </div><!-- property_type_selector -->

           <div class="clear_me">&nbsp;</div>

           <div id="price_selector" class="search_iframe">

            <p><span class="data_caption">Price?</span><br />

             <input name="price_low" type="text" class="basic_text" id="price_low1" size="12" maxlength="8" />

             to

             <input name="price_high" type="text" class="basic_text" id="price_high1" size="12" maxlength="8" />

            </p>

           </div>

           <div id="sqft_selector" class="search_iframe">

            <p><span class="data_caption">Sq Ft?</span><br />

              <input name="sqft_low" type="text" class="basic_text" id="sqft_low" value="" size="12" maxlength="10" /> 

             to 

             <input name="sqft_high" type="text" class="basic_text" id="sqft_high" value="" size="12" maxlength="10" />

            </p>

           </div>

           <div class="clear_me">&nbsp;</div>

           <div id="bedroom_selector" class="search_iframe">

            <p><span class="data_caption">Bedrooms?&nbsp;</span><br />

             <select name="beds_low" class="basic_text" id="beds_low">

                <option value="" <%If (Not isNull(mybeds_low)) Then If ("" = CStr(mybeds_low)) Then Response.Write("selected=""selected""")%>>any</option>

                <option value="1" <%If (Not isNull(mybeds_low)) Then If ("1" = CStr(mybeds_low)) Then Response.Write("selected=""selected""")%>>1</option>

                <option value="2" <%If (Not isNull(mybeds_low)) Then If ("2" = CStr(mybeds_low)) Then Response.Write("selected=""selected""")%>>2</option>

                <option value="3" <%If (Not isNull(mybeds_low)) Then If ("3" = CStr(mybeds_low)) Then Response.Write("selected=""selected""")%>>3</option>

                <option value="4" <%If (Not isNull(mybeds_low)) Then If ("4" = CStr(mybeds_low)) Then Response.Write("selected=""selected""")%>>4</option>

                <option value="5" <%If (Not isNull(mybeds_low)) Then If ("5" = CStr(mybeds_low)) Then Response.Write("selected=""selected""")%>>5</option>

                <option value="6" <%If (Not isNull(mybeds_low)) Then If ("6" = CStr(mybeds_low)) Then Response.Write("selected=""selected""")%>>6</option>

             </select>

             to

             <select name="beds_high" class="basic_text" id="beds_high">

                <option value="" <%If (Not isNull(mybeds_high)) Then If ("" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>any</option>

                <option value="1" <%If (Not isNull(mybeds_high)) Then If ("1" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>1</option>

                <option value="2" <%If (Not isNull(mybeds_high)) Then If ("2" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>2</option>

                <option value="3" <%If (Not isNull(mybeds_high)) Then If ("3" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>3</option>

                <option value="4" <%If (Not isNull(mybeds_high)) Then If ("4" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>4</option>

                <option value="5" <%If (Not isNull(mybeds_high)) Then If ("5" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>5</option>

                <option value="6" <%If (Not isNull(mybeds_high)) Then If ("6" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>6</option>

                <option value="7" <%If (Not isNull(mybeds_high)) Then If ("7" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>7</option>

                <option value="8" <%If (Not isNull(mybeds_high)) Then If ("8" = CStr(mybeds_high)) Then Response.Write("selected=""selected""")%>>8</option>

             </select>

            </p>

           </div><!-- bedroom_selector -->

           <div class="clear_me">&nbsp;</div>

           <div id="bathroom_selector" class="search_iframe">

            <p><span class="data_caption">Bathrooms?</span><br />

             <select name="baths_low" class="basic_text" id="baths_low">

                <option value="" <%If (Not isNull(mybaths_low)) Then If ("" = CStr(mybaths_low)) Then Response.Write("selected=""selected""")%>>any</option>

                <option value="1" <%If (Not isNull(mybaths_low)) Then If ("1" = CStr(mybaths_low)) Then Response.Write("selected=""selected""")%>>1</option>

                <option value="2" <%If (Not isNull(mybaths_low)) Then If ("2" = CStr(mybaths_low)) Then Response.Write("selected=""selected""")%>>2</option>

                <option value="3" <%If (Not isNull(mybaths_low)) Then If ("3" = CStr(mybaths_low)) Then Response.Write("selected=""selected""")%>>3</option>

                <option value="4" <%If (Not isNull(mybaths_low)) Then If ("4" = CStr(mybaths_low)) Then Response.Write("selected=""selected""")%>>4</option>

             </select>

             to

             <select name="baths_high" class="basic_text" id="baths_high">

                <option value="" <%If (Not isNull(mybaths_high)) Then If ("" = CStr(mybaths_high)) Then Response.Write("selected=""selected""")%>>any</option>

                <option value="1" <%If (Not isNull(mybaths_high)) Then If ("1" = CStr(mybaths_high)) Then Response.Write("selected=""selected""")%>>1</option>

                <option value="2" <%If (Not isNull(mybaths_high)) Then If ("2" = CStr(mybaths_high)) Then Response.Write("selected=""selected""")%>>2</option>

                <option value="3" <%If (Not isNull(mybaths_high)) Then If ("3" = CStr(mybaths_high)) Then Response.Write("selected=""selected""")%>>3</option>

                <option value="4" <%If (Not isNull(mybaths_high)) Then If ("4" = CStr(mybaths_high)) Then Response.Write("selected=""selected""")%>>4</option>

             </select>

            </p>

           </div>

           <div id="halfbathroom_selector" class="search_iframe">        

            <p><span class="data_caption">Half Baths?&nbsp;&nbsp;</span><br />

             <select name="hfbaths_low" class="basic_text" id="hfbaths_low">

                <option value="" <%If (Not isNull(myhfbaths_low)) Then If ("" = CStr(myhfbaths_low)) Then Response.Write("selected=""selected""")%>>any</option>

                <option value="1" <%If (Not isNull(myhfbaths_low)) Then If ("1" = CStr(myhfbaths_low)) Then Response.Write("selected=""selected""")%>>1</option>

                <option value="2" <%If (Not isNull(myhfbaths_low)) Then If ("2" = CStr(myhfbaths_low)) Then Response.Write("selected=""selected""")%>>2</option>

                <option value="3" <%If (Not isNull(myhfbaths_low)) Then If ("3" = CStr(myhfbaths_low)) Then Response.Write("selected=""selected""")%>>3</option>

                <option value="4" <%If (Not isNull(myhfbaths_low)) Then If ("4" = CStr(myhfbaths_low)) Then Response.Write("selected=""selected""")%>>4</option>

             </select>

             to

             <select name="hfbaths_high" class="basic_text" id="hfbaths_high">

                <option value="" <%If (Not isNull(myhfbaths_high)) Then If ("" = CStr(myhfbaths_high)) Then Response.Write("selected=""selected""")%>>any</option>

                <option value="1" <%If (Not isNull(myhfbaths_high)) Then If ("1" = CStr(myhfbaths_high)) Then Response.Write("selected=""selected""")%>>1</option>

                <option value="2" <%If (Not isNull(myhfbaths_high)) Then If ("2" = CStr(myhfbaths_high)) Then Response.Write("selected=""selected""")%>>2</option>

                <option value="3" <%If (Not isNull(myhfbaths_high)) Then If ("3" = CStr(myhfbaths_high)) Then Response.Write("selected=""selected""")%>>3</option>

                <option value="4" <%If (Not isNull(myhfbaths_high)) Then If ("4" = CStr(myhfbaths_high)) Then Response.Write("selected=""selected""")%>>4</option>

             </select> 

            </p>

           </div>

           <div class="clear_me">&nbsp;</div>

           <div id="school_district_selector" class="search_iframe">

            <p><span class="data_caption">School District?</span><br />

             <input name="school_dist" type="text" class="basic_text" id="school_dist" size="60" maxlength="50" />

            </p>

           </div>

           <div id="subdivision_selector" class="search_iframe" >

            <p><span class="data_caption">Subdivision / Neighborhood?</span><br />

             <input name="subdivision" type="text" class="basic_text" id="subdivision" size="60" maxlength="50" />

            </p>

           </div>

           <div id="zip_selector" class="search_iframe">

            <p><span class="data_caption">Zip Code?</span><br />

            <input name="zip" type="text" class="basic_text" id="zip" size="10" maxlength="5" />

            </p>

          </div>

            <div class="search_iframe"><p><input class="float_right" name="Submit" type="submit" value="Submit" /></p></div>

            <div class="clear_me">&nbsp;</div>

          </div><!-- this is the end of the basic search div -->

         </div>

           

          </div><!-- iframe_wrapper -->

         <div id="iframe_wrapper2">

            <div id="advance_search_container" class="search_iframe">

             <h4><span ><a href="javascript:;" onmousedown="toggleSlide('advance_search');">&nbsp;Advanced Search</a></span></h4>

              <div id="advance_search" >

                <div id="garage_selector" class="basic_text"><span class="data_caption">Garage Spaces?</span><br />

                 <select name="Garage Spaces" class="basic_text">

                  <option value="" selected="selected" >Any</option>

                  <option value="1" >1+ Car Garage</option>

                  <option value="2" >2+ Car Garage</option>

                  <option value="3" >3+ Car Garage</option>

                  <option value="4" >4+ car Garage</option>

                  <option value="5" >5+ car Garage</option>

                  <option value="6" >6+ car Garage</option>

                 </select>

                </div>

                <div id="acreage_search" class="basic_text"><span class="data_caption">Acreage Size?</span><br /><input name="acreage_low" type="text" class="basic_text" value="<%= myacreage_low %>" size="10" />

                 to 

                 <input name="acreage_high" type="text" class="basic_text" value="<%= myacreage_high %>" size="10" />

                </div>

                <div id="pool_selector" class="basic_text">

                 <p>

                  <span class="data_caption">Pool or Spa?</span><br />

                  <input name="In Ground Pool" type="checkbox" value="In Ground Pool" />In Ground Pool

                  <input name="Above Ground Pool" type="checkbox" value="Above Ground Pool" />Above Ground Pool</p><p>

                  <input name="Hot Tub" type="checkbox" value="Hot Tub" />Hot Tub&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

                  <input name="Pool / Spa" type="checkbox" value="Pool / Spa" />Pool / Spa

                 </p>

                </div> 

                <div id="aprox_age_selector" class="basic_text"><span class="data_caption">Approximate Age?</span><br />

                 <input name="age_low" type="text" class="basic_text" value="<%= myage_low %>" size="6" /> 

                 to

                 <input name="age_high" type="text" class="basic_text" value="<%= myage_high %>" size="6" />

                </div>

                <div id="stories_selector" class="basic_text">

                 <span class="data_caption"><input name="One Story" type="checkbox" value="One Story" />One Story?</span>

                </div>

                <div id="hoa_selector" class="search_iframe">

                 <p>

                  <span class="data_caption">HOA?</span><br />

                  <label><input name="hoa" type="radio" value="" checked="checked" />Do not care about HOA</label><br />

                  <label><input type="radio" name="hoa" value="YES" />Has Mandatary HOA</label><br />

                  <label><input type="radio" name="hoa" value="NO" />Not Mandatory or no HOA</label>

                 </p>

                </div>

                <div id="multiple_photos_selector" class="basic_text">

                 <span class="data_caption"><input name="multi_photos" type="checkbox" value="0" />Only Show Listings With Photos?</span>

                </div>

               <div class="search_iframe"><p><input class="float_right" name="Submit" type="submit" value="Submit" /></p></div>

                <div class="clear_me">&nbsp;</div>

              </div>

             </div>

         </div><!-- iframe_wrapper2 -->

        </div>

       </form>

      </div><!-- big_wrapper -->

      <div id="jsDisabled"> <strong>Loading, it might take a few moments...</strong><br />

       Note, This page will not work without JavaScript enabled.<br />

       Please call 210-483-7100 if you need help doing this. <br />

       Or ask your favorite tech person. </div>

      </div><!-- right_content -->

     </div><!-- right_column -->

    </div><!-- main -->

    <br class="clear_me" />

    <div id="footer">

     <a href="/realtor/web4/default.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">home</a> / 

     <a href="/realtor/web4/contact/contact-form.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">contact</a> /

     <a href="/realtor/web4/listings/search-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">property search</a> / 

      <% If Not rs_featured_listings.EOF Or Not rs_featured_listings.BOF Then %>

     <a href="/realtor/web4/listings/featured-listings.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>&amp;featured=properties">featured properties</a> / 

      <% End If ' end Not rs_featured_listings.EOF Or NOT rs_featured_listings.BOF %>

     <a href="/realtor/web4/buyers/buyers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">buyers</a> / 

     <a href="/realtor/web4/sellers/sellers-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">sellers</a> / 

     <a href="/realtor/web4/useful-info/useful-info-start.asp?a_id=<%=(rs_agentdata.Fields.Item("AgentLicense").Value)%>">useful info</a>

    </div><!-- footer -->

  </div><!-- wrapper -->

 </div><!-- container -->

 <div id="copyright">

  <div id="cl">

   Copyright &copy; <a href="http://cbharper.com">Coldwell Banker D'Ann Harper REALTORS</a>, All Rights Reserved; Disclaimer: All information deemed reliable but not guaranteed and should be independently verified. All properties are subject to prior sale, change or withdrawal. Coldwell Banker D'Ann Harper, REALTORS and\or <%=(rs_agentdata.Fields.Item("DomainURL").Value)%> are not responsible for any misprints and shall be held harmless.

  </div>

  <div id="cr">

   <img src="/realtor/dev_site/img/equal.gif" alt="" border="0" />

   <p>

    <a href="http://validator.w3.org/check?uri=referer"><img

        src="http://www.w3.org/Icons/valid-xhtml10-blue"

        alt="Valid XHTML 1.0 Transitional" height="31" width="88" /></a>

  </p>

  </div>

 </div><!-- copyright -->
 

  

</body>

</html>

<%

rs_css.Close()

Set rs_css = Nothing

%>

<!--Record Set Include or Record sets from its file go here start -->
 

<%

rs_teamdata.Close()

Set rs_teamdata = Nothing

%>

<%

rs_listingsCountRES.Close()

Set rs_listingsCountRES = Nothing

%>

<%

rs_listingsCountCOND.Close()

Set rs_listingsCountCOND = Nothing

%>

<%

rs_listingsCountMUL.Close()

Set rs_listingsCountMUL = Nothing

%>

<%

rs_listingsCountLAL.Close()

Set rs_listingsCountLAL = Nothing

%>

<%

rs_listingsCnt.Close()

Set rs_listingsCnt = Nothing

%>

<%

rs_featured_listings.Close()

Set rs_featured_listings = Nothing

%>

<%

rs_agentdata.Close()

Set rs_agentdata = Nothing

%>

<!--Record Set Include or Record sets from its file go here end -->

Open in new window

0
 

Author Comment

by:MakeITRight
ID: 21881271
Here is common.asp
<%

'Puts text in Proper Case

Function PCase(strInput)

	Dim iPosition  ' Our current position in the string (First character = 1)

	Dim iSpace     ' The position of the next space after our iPosition

	Dim strOutput  ' Our temporary string used to build the function's output
 

	iPosition = 1
 

	Do While InStr(iPosition, strInput, " ", 1) <> 0
 

		iSpace = InStr(iPosition, strInput, " ", 1)
 

		strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
 

		strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
 

		iPosition = iSpace + 1

	Loop
 

	strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

	strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
 

	PCase = strOutput

End Function

%>
 

<%

Function stripHTML(strHTML)

'Strips the HTML tags from strHTML
 

  Dim objRegExp, strOutput

  Set objRegExp = New Regexp
 

  objRegExp.IgnoreCase = True

  objRegExp.Global = True

  objRegExp.Pattern = "<(.|\n)+?>"
 

  'Replace all HTML tag matches with the empty string

  strOutput = objRegExp.Replace(strHTML, "")

  

  'Replace all < and > with &lt; and &gt;

  strOutput = Replace(strOutput, "<", "&lt;")

  strOutput = Replace(strOutput, ">", "&gt;")

  

  stripHTML = strOutput    'Return the value of strOutput
 

  Set objRegExp = Nothing

End Function
 
 

%>
 

<%

' create an instance of the Browser Capabilities component

Set browserdetect = Server.CreateObject("MSWC.BrowserType")
 

' find some properties of the browser being used to view this page

browser=browserdetect.Browser

version=browserdetect.Version

majorver=browserdetect.Majorver

minorver=browserdetect.Minorver

platform=browserdetect.Platform

frames=browserdetect.Frames

tables=browserdetect.Tables

cookies=browserdetect.Cookies

javascript=browserdetect.JavaScript

'will be IE or Firefox

%>

Open in new window

0
 

Author Comment

by:MakeITRight
ID: 21881279
Here is the css file in an asp page. The reason why this is this way is because the css file is fed based upon template choices that an agent might make and there are asp variable in the asp/css page.

I was inspired by csszengarden to do this.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!-- /* This is for the clean_modern css  */-->

<!-- /* Please maintain changes and archive versions in thi folder: 

				H:\IT\Agent2_0Redux\CSS_BANK\Clean_Modern */ -->

<% On Error Resume Next %>

<!--#include virtual="/connections/xxxxxx.asp" -->

<%

Dim rs_css__MMColParam

rs_css__MMColParam = "1"

If (Request.QueryString("a_id") <> "") Then 

	rs_css__MMColParam = Request.QueryString("a_id")

End If

%>

<%

Dim rs_css

Dim rs_css_numRows
 

Set rs_css = Server.CreateObject("ADODB.Recordset")

rs_css.ActiveConnection = MM_agentdata_STRING

rs_css.Source = "SELECT *  FROM xxxxAgent_website_choices  WHERE agent_id = " + Replace(rs_css__MMColParam, "'", "''") + ""

rs_css.CursorType = 0

rs_css.CursorLocation = 2

rs_css.LockType = 1

rs_css.Open()
 

rs_css_numRows = 0

%>

<style type="text/css">

<% response.Contenttype ="text/css" %> <!-- This is sooooooo important! -->
 
 

<!-- /* do not add any styles that rely on a recordset that is not universal to the site 

				as errors will occur on pages that do not contain the proper rs required by the style 

				record set "rsCSS" should be common to every page that uses this style sheet  

				***** 												THIS CODE IS SPLIT INTO 2 PARTS													***********

							The part that controls the template and the part that controls the content area.

							*******    If you modify the template css comment it accordingly    **********

							

							The second part is for the content area. This will probably need to be copied to the 

							subsequent templates and then modified accordingly becasue future templates will not have it.

*/ -->
 

<!--

* { 

	behavior: url('http://cbharper.com/realtor/<%=(rs_css.Fields.Item("image_path").Value)%>/iepngfix.htc');

}

body {margin: 0 0 20px 0;padding: 0;font: 12px <%=(rs_css.Fields.Item("body_font_family").Value)%>;}

.clear {clear: both;overflow: hidden;height: 0;font-size: 0;}

h1, h2, h3, h4 {margin: 0 0 20px 0;padding: 0;font-weight: normal;}

h1 {font-size: 24px;}

input,select,textarea {padding: 2px;font-family: <%=(rs_css.Fields.Item("body_font_family").Value)%>;}

form {margin: 0;padding: 0;}

#container {width: 850px;margin: 0 auto;}

#wrapper {width: 850px;margin: 0 auto;}

#header {width: 835px;height: 270px;background: url('http://cbharper.com/realtor/<%=(rs_css.Fields.Item("image_path").Value)%>/<%=(rs_css.Fields.Item("top_img_home").Value)%>') no-repeat 0 5px;margin: 0 auto;padding: 0 0 0 15px;}

#header_line {width:555px;height: 47px;padding: 25px 0;margin: 0 0 0 285px;background: url('http://cbharper.com/realtor/<%=(rs_css.Fields.Item("image_path").Value)%>/<%=(rs_css.Fields.Item("color_block_img").Value)%>') no-repeat;text-align: center;}

#header_line h1 a {color: #fff;padding: 4px 10px;width: 300px;margin: 0 auto;border-top: 1px solid #fff;border-bottom: 1px solid #fff;text-decoration: none;}<!-- /* added the "a" so as to show correctly */ -->

#header_content {width: 822px;margin: 0 auto;}

<!-- /* This makes the frame and realtor photo layer correctly */ -->

#realtor_photo_top #photo_1{float: left;width: 212px;position: absolute;margin-left: 30px;margin-top: -88px;z-index:0;}

#realtor_photo_top #frame_1 {float: left;width: 212px;position: absolute;margin-left: 30px;margin-top: -90px;z-index: 3;}

<!-- /* END */ -->

#header_content h2 {float: right;width: 420px;font-size: <%=(rs_css.Fields.Item("moto_font_size").Value)%>px;color: #004990;text-align: center;font-style: italic;	margin: 20px 90px 0 0;}

#main_nav {background: #f8f4ee;border-top: 1px solid #c0c0c0;border-right: 1px solid #c0c0c0;border-left: 1px solid #c0c0c0;border-bottom: 1px solid #c0c0c0;height: 25px;}

#left_nav {display="none";}

#main {margin: 10px 0;}

#right_column {float: right;width: 600px;padding: 15px;}

#right_column #estate_search {width: 480px;height: 119px;border: 1px solid #e1e1e1;background: url('http://cbharper.com/realtor/<%=(rs_css.Fields.Item("image_path").Value)%>/estate_search_bg.jpg') no-repeat;padding: 10px 15px;margin: 0 auto 20px auto;}

#right_column #estate_search .title {color: #004990;font-size: 16px;margin-bottom: 5px;	font-weight: bold;}

#right_column #estate_search p {margin: 0;}

#right_column #estate_search .search-input {width: 405px;margin-right: 5px;border: 1px solid #cecece;}

#right_column #estate_search #hint {font-size: 11px;}

#right_column #estate_search .submit {border: 1px solid #004990;color: #fff;font-size: 11px;width: 60px;padding: 2px;font-weight: bold;text-transform: uppercase;background: #004990;}

#right_column #estate_search .dropdown {float: left;margin-top: 6px;width: 100px;}

#right_column #estate_search .dd_type {float: left;margin-top: 6px;width: 128px;}

#right_column #estate_search .dd_bed_baths {float: left;margin-top: 6px;width: 75px;}

#right_column #estate_search .label {color: #004990;font-weight: bold;}

#right_column #estate_search .select {border: 1px solid #cecece;min-width: 70px;}

#right_column #right_content {width: 600px;<!-- /* changed to give more space in content area */ -->text-align: justify;margin: 0 auto;}

#right_column #right_content h3 {color: #<%=(rs_css.Fields.Item("h3").Value)%>;font-size: 22px;}

#address {margin: 25px 0;}

#footer {height: 40px;padding-top: 14px;background: url('http://cbharper.com/realtor/<%=(rs_css.Fields.Item("image_path").Value)%>/<%=(rs_css.Fields.Item("footer_img").Value)%>') repeat-x;text-align: center;color: #fff;}

#footer a {color: #fff;text-decoration: none;}

#footer a:hover {text-decoration: underline;}

ul#t_nav {list-style: none;width: 850px;margin: 0 auto;}

#t_nav li {float: left;text-align: center;text-transform: uppercase;font-weight: bold;font-size: 12px;line-height: 25px;}

#t_nav li a {text-decoration: none;color: #666;display: block;padding: 0 20px;display: block;}

#t_nav li a:hover {background: #fff;color: #004990;}

#t_nav li ul {display: none;position: absolute;background: #f8f4ee;padding: 0;list-style: none;width: 140px;border: 1px solid #c0c0c0;border-top: 1px solid #f8f4ee;}

#t_nav li ul li {text-align: left;border: none;text-transform: none;margin: 0;line-height: auto;float: none;}

#t_nav li ul li a {color: #666;padding: 0 10px;}

#t_nav li ul li a:hover {background: #fff;color: #004990;}

#t_nav li:hover ul, #t_nav li.sfhover ul {display: block;}

#copyright {width: 820px;margin: 5px auto 0 auto;}

#copyright a {color: #333;text-decoration: none;}

#copyright a:hover {text-decoration: underline;}

#copyright #cl {float: left;width:800px;font-size: 9px;}

#copyright #cr {float: right;width:20px;}

.left_nav_style	{display:none;}

#left_column {float: left;width: 182px;text-align: center;border-right: 1px solid #d7d7d6;padding: 15px 0;}

#left_column p {margin: 0 0 2px 0;}

#left_column p#coldwell_logo {margin: 25px 0 0 0;}

#left_column a {color: #333;}

#left_column a:hover {text-decoration: none;}

#left_column h3 {font-size: 18px;text-align: right;margin-top: 0;margin-bottom: 12;margin-left: -60px;}

#left_column #contact h2 a{color: #004990;font-size: 13px;margin-left:0;font-weight: bold;text-align:center;margin-top: 15px;margin-bottom: 0px;}<!-- /* added the "a" so as to show correctly */ -->

#left_column #address h3 {color: #000;font-size: 12px;margin-left:0;font-weight: bold;text-align:center;margin-top: 10px;margin-bottom: 4px;}

#contact h2 {color: #000;font-size: 13px;margin-bottom: 5px;font-weight: bold;}

#left_column #left_estate_search .title {text-align: left;color: #004990;font-size: 14px;margin-bottom: 5px;font-weight: bold;}

#left_column #left_estate_search p {margin: 0 15px 0 0;}

#left_column #left_estate_search .search-input {width: 150px;}

#left_column #left_estate_search #hint {font-size: 11px;text-align: left;}

#left_column #left_estate_search .submit {border: 1px solid #004990;color: #fff;font-size: 11px;width: 40px;padding: 2px;font-weight: bold;text-transform: uppercase;background: #004990;float: right;margin-top: 10px;margin-bottom: 12px;}

#left_column #left_estate_search .dropdown {float: left;margin-top: 6px;width: 73px;text-align: left;margin-right: 4px;}

#left_column #left_estate_search .label {color: #004990;font-weight: bold;margin-bottom: 3px;}

#left_column #left_estate_search .select {border: 1px solid #cecece;min-width: 70px;}

#left_column  #left_estate_search  #dd_type {float: left;width: 158px;}

#left_column  #left_estate_search #sel_type {float: left;width: 158px;}

#left_column #left_estate_search .dropdown_clear_left {float: left;margin-top: 6px;width: 73px;text-align: left;margin-right: 8px;clear:left}

#left_column #left_estate_search select {float: left;margin-top: 6px;width: 73px;text-align: left;}

#left_column #contact h2 {color: #000;font-size: 13px;margin-left:0;font-weight: bold;text-align:center;margin-top: 15px;margin-bottom: 0px;text-decoration: underline;}

#left_column #left_estate_search {width: 160px;overflow: hidden;border: 1px solid #c0c0c0;padding: 5px;margin: 0 auto 20px auto;}

<!-- /* CBHARPER Content CSS */ --> 

#right_column h4 {color:#004990;font-size:14px;font-weight:bold;margin:10px 0pt 0pt;}

#left_column h4 {color:#004990;font-size:14px;font-weight:bold;margin:10px 0pt 0pt;}

#my_current_listing	img{border: 1px solid #000;width: 150px;margin-top: 10px;}

#right_column .inside_text {float:left; margin-left:0px;margin-right:20px;text-align:justify;font-size:12px;line-height:200%;}

#right_column_left {float:left;width:380px;}

#right_column_right {border-left:1px solid #DBE3E2;float:left;margin-left:8px;padding-left:8px;width:180px;}

#listing_page_nav li{line-height:27px; margin-top:0px; display:inline; text-align:center;}

		.top_menu ul {line-height:27px; margin-top:0px; display:inline; margin-left:-40px;}

		.top_menu li {display:inline; }

#property_detail {float: left;padding-left:20px;text-align: left;margin-right: 8px;}

#column_property_detail {margin:0pt auto 20px;overflow:hidden;padding:5px;width:160px;text-align: left;}

#slide_show .pic_border1	{border: thin solid #333;width: 500px;}

.thumbnails img	{width: 118px;margin-top: 0px;margin-right: 1px;margin-bottom: 4px;margin-left: 3px;border-top-width: 0px;border-right-width: 0px;border-bottom-width: 0px;border-left-width: 0px;border-top-style: none;border-right-style: none;border-bottom-style: none;border-left-style: none;}

.thumbnail_container	{padding-top: 10px;width: 500px;border: 1px solid #000;}

#inner_bottom .inside_text_sans_margin {text-align:justify;font-size:12px;padding-left:20px;clear: both;}

#header_line a	{text-decoration: none;}

.photo_captions h2	{text-align: center;height: 25px;vertical-align: middle;font-size: 12px;font-weight: bolder;margin-top: 5px;}

<!-- /* Custom Content CSS BELOW THIS LINE  */ -->

#search_group h3 {color:#333333;font-family:Arial,Helvetica,sans-serif;font-size:11px;font-weight:bolder;}

#slideshow_control	{margin-bottom: 10px;}

<!-- /* These next 2 classes make the plus minus gif thing work.  */ -->

<!-- /* Also requires a few lins of JavaScript and special naming */ -->

<!-- /* of the classes and id's as seen in the JS */ -->

.off {display:none;}

.on {display:block;	margin:5px 5px; text-align:justify; color:#333333;	background-color:#eef;	font-family: Verdana, Arial, Helvetica, sans-serif;	font-size: 10px; font-style: normal; font-weight: normal;}

<!-- /* On Off Plus minus end */ -->

#broker_reciprocity {

	clear: both;

	font-size: x-small;

}
 
 

-->

</style>

<%

rs_css.Close()

Set rs_css = Nothing

%>

Open in new window

0
 

Author Comment

by:MakeITRight
ID: 21881285
BTW I added x's to certain areas to mask table names and certain files. I doubt it should make any difference, but...

Thanks, also any comments about the whole idea of dynamically handling css files and css code and they way I managed to solve this would also be interesting to me.

Hope this helps...
0
 

Author Comment

by:MakeITRight
ID: 21884729
It is actually much faster now. I had to remove most of the dropdown items in favor of textboxes.
0
 

Author Closing Comment

by:MakeITRight
ID: 31470665
Thank for taking the time
0
 
LVL 44

Expert Comment

by:scrathcyboy
ID: 21886349
OK -- I see the problem now -- it is all that cookie loading that is slowing the page down.  Unlike Mozilla and Firefox, where ALL system cookies are in a SINGLE file -- with IE, each cookie is in a separate file -- so your code is doing tons of disk reading for small cookie files, and that will choke down IE.

YOu can solve this by putting ALL cookie data that you want into a SINGLE cookie  (as long as the data does not exceed 4000 bytes per cookie) -- then you loop through each name value pair to find the one you want.  But even that takes time.  How I save data in a single cookie is --

Say 20 items -- list all 20 names or better still, numbers first.  Then list all 20 values after.  Then if the name of each value is simply a number, you index the cookie to get the value like this --

cookie_name = cookie_array[1] ;
cookie_value = cookie_array[21]

That is lightning fast, and is as fast as you will ever get.  Stuff all your cookie data into a SINGLE cookie, if it will all fit.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

This article describes how to create custom column layout styles for Bootstrap. The article uses 5 columns to illustrate the concept, but the principle can be extended to any number of columns.
Use these top 10 tips to master the art of email signature design. Create an email signature design that will easily wow recipients, promote your brand and highlight your professionalism.
The viewer will learn how to create a basic form using some HTML5 and PHP for later processing. Set up your basic HTML file. Open your form tag and set the method and action attributes.: (CODE) Set up your first few inputs one for the name and …
This Micro Tutorial will demonstrate how to add subdomains to your content reports. This can be very importing in having a site with multiple subdomains.

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now