<%
strSQL = "SELECT * FROM hotels WHERE category ='Mahé Hotels' order by Title"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn
'response.write strSQL
IF objRS.EOF = "True" THEN
Response.write "
NO PROPERTIES CURRENTLY AVAILABLE IN THIS AREA.
"
Response.write "CLICK HERE to view all areas"
Response.end
ELSE
END IF
%>
<%
response.write ""
objRS.MoveFirst
Do While NOT objRS.EOF
response.write "| "
'PUT TABLE RESULTS HERE
%>
<%
response.write " | "
IntCount = IntCount+1
if IntCount=3 Then
Response.Write "
"
IntCount = 0
End If
%>
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS=nothing
objConn.Close
Set objConn=nothing
%>