<% sqlnew = "SELECT * FROM " & strlistingstable & " WHERE grouping =" & Cint(Request.Querystring("GROUPING")) & " ORDER BY MLS ASC" sqlnew2 = "SELECT * FROM " & strIHlistingstable & " WHERE grouping =" & Cint(Request.Querystring("GROUPING")) & " ORDER BY MLS ASC" Set RS = Connect.execute(sqlnew) Set RS2 = Connect.execute(sqlnew2) %>

<% Dim bgcolor,objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If Not RS.BOF Then RS.MoveFirst Do Until RS.EOF if bgcolor = "#ffffff" then bgcolor = "#f5f5eb" else bgcolor = "#ffffff" end if Response.Write("" & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & RS.Fields("MLS") & "oh.txt" )) Then Response.Write(" " & Chr(13)) Else Response.Write(" " & Chr(13)) End if Response.Write("" & Chr(13)) RS.MoveNext Loop End if Response.Write("" & Chr(13)) If Not RS2.BOF Then RS2.MoveFirst Do Until RS2.EOF if bgcolor = "#ffffff" then bgcolor = "#f5f5eb" else bgcolor = "#ffffff" end if Response.Write("" & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & RS2.Fields("MLS") & "oh.txt" )) Then Response.Write(" " & Chr(13)) Else Response.Write(" " & Chr(13)) End if Response.Write("" & Chr(13)) RS2.MoveNext Loop End if %> Add/Edit Open House's ...Sorted by MLS MLS# Price City Address agent Open House " & RS.Fields("MLS") & " " & FormatCurrency(RS.Fields("PRICE"),0,0) & " " & RS.Fields("CITY") & " " & RS.Fields("STREETNUM") & " " & RS.Fields("STREETDIRECTION") & " " & RS.Fields("STREETNAME") & " " & RS.Fields("AGENT") & " Yes No ------In House Listings ------ " & RS2.Fields("MLS") & " " & FormatCurrency(RS2.Fields("PRICE"),0,0) & " " & RS2.Fields("CITY") & " " & RS2.Fields("STREETNUM") & " " & RS2.Fields("STREETDIRECTION") & " " & RS2.Fields("STREETNAME") & " " & RS2.Fields("AGENT") & " Yes No

<% Set objFSO = Nothing Set RS = Nothing Set RS2 = Nothing Connect.Close Set Connect = Nothing %>