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

RICA PROPERTIES LLC ...A Family Dedication for Forty-Five Years.

<%=FormatDateTime(Date(),1)%>

properties Thank you for joining us in a visual tour of select interiors - each reflecting superior construction, fine materials, outstanding design and lasting value. <% strSQL = "SELECT CategoryID, CategoryName FROM Categories ORDER BY CategoryID" blnSuccessCat = getRecordset(strSQL, Application("Connection_String"), rsCat, strErrorMsg) If blnSuccessCat Then While NOT (rsCat.EOF or rsCat.BOF) Response.write "" & rsCat.Fields("CategoryName") & " " strSQL = "SELECT * FROM Properties WHERE CategoryID = " & rsCat.Fields("CategoryID") & " ORDER BY Name" blnSuccess = getRecordset(strSQL, Application("Connection_String"), rsContent, strErrorMsg) If blnSuccess Then Response.write "" With rsContent While NOT (.EOF or .BOF) strImage = Right(.fields("ThumbNail").value, len(.fields("ThumbNail").value)-1) Response.Write "" & vbcrlf Response.Write "" & vbcrlf .MoveNext If NOT .EOF Then strImage = Right(.fields("ThumbNail").value, len(.fields("ThumbNail").value)-1) Response.Write "" & vbcrlf .MoveNext Else Response.write "" End If If NOT .EOF Then strImage = Right(.fields("ThumbNail").value, len(.fields("ThumbNail").value)-1) Response.Write "" & vbcrlf Response.Write "" & vbcrlf .MoveNext Else Response.write "" End If Wend .Close End With Response.write " " & vbcrlf Response.write "" & vbcrlf Response.Write " " & vbcrlf Response.write "" & vbcrlf Response.Write " " & vbcrlf Response.write "" & vbcrlf Response.Write " " Response.write " " Else %> No pictures present at this time. <% End If Set rsContent = Nothing rsCat.movenext Wend End If Call raiseError(strErrorMsg) %>