Thanks for your reply Realgaz. I guess I didn't have email notification checked.
Following is the code from the 2 files involved. I've been messing around with it so long I think I've gone blind. I guess that's what happens when one only tries scripting every few months.

Any takers?
--------------------------------------------
This is
--------------------------------------------
<html>
<head></head>
<body>
Regular HTML stuff in here.......
<SCRIPT LANGUAGE="JavaScript" src="
</body>
</html>
--------------------------------------------
And the following is the
file stored on
--------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%
SET CONN1 = Server.CreateObject("ADODB.Connection"

Set RS = Server.CreateObject("ADODB.RecordSet"

AccessConnect = "DSN=realestate;"
SQLQuery = "SELECT ListingNo, Category, Neighbourhood, Style, Area, Price FROM Listing where DateApproved <= Date()and (SaleTypeID = 3 or SaleTypeID = 1) and DateSold is null and (DateRemove is null or DateRemove >= date())order by Price"
RS.Open SQLQuery, AccessConnect
%>
<%
Response.Write("<TABLE width='700' align='Center' border='0' cellspacing='0' cellpadding='3'>"

Response.Write("<TR><br>"

Response.Write("<TD colspan='2'><a href='
src='images/logo_s.gif' border='0'></a></TD><br>"

Response.Write("<TD colspan='4' align='center'><H2>Properties for sale and for rent.</H2></TD><br>"

Response.Write("</TR><br>"

Response.Write("<TR><br><TD colspan='6'>Properties for Sale</TD><br>"

Response.Write("</TR><br>"

Response.Write("<TR><br>"

Response.Write("<TD>Category</TD><br>"

Response.Write("<TD>Style</TD><br>"

Response.Write("<TD>Area</TD><br>"

Response.Write("<TD>Neighbourhood</TD><br>"

Response.Write("<TD>Price</TD><br>"

Response.Write("<TD>Details</TD><br>"

Response.Write("</TR>"

%>
<% if not RS.eof then
RS.MoveFirst
While NOT RS.eof
%>
<% if intRowColor = 0 Then
Response.Write("<TR bgcolor='green'>"

intRowColor = 1
Else
Response.Write("<TR bgcolor='red'>"

intRowColor = 0
End if
%>
<%
Response.Write("<TD width='150'>" & RS("Category"

& "</TD><br>"

Response.Write("<TD width='150'>" & RS("Style"

& "</TD><br>"

Response.Write("<TD width='150'>" & RS("Area"

& "</TD><br>"

Response.Write("<TD width='125'>" & RS("Neighbourhood"

& "</b></TD><br>"

Response.Write("<TD width='75'>" & RS("Price"

& "</TD><br>"

Response.Write("<TD width='50'><a href='
& RS("ListingNo"

& "'>Details</a></TD><br>"

Response.Write("</TR>"

%>
<%
RS.MoveNext
Wend
End if
%>
<%
Set RS=Nothing
Set CONN1=nothing
%>
<%
Response.Write("</TABLE>"

%>