Here goes. thanks!
strSQL = "SELECT Country, Beach, SName, STown, DateEntered, Review FROM WaveReviews WHERE Deleted = 0 AND Country = '" & request.Form("Country") & "' AND Beach = '" & request.Form("Beach") & "' ORDER BY DateEntered ASC"
set rsReview = con.execute(strSQL)
if rsReview.EOF then %>
<%
response.Write("<div align=""center"" class=""td"">")
response.Write("Sorry no reviews exist for '" & request.Form("Beach") & "'.")
response.Write(" Be the first to submit a review")
response.Write("<p>")
response.Write("</div>")
%>
<%
else
strCountry = rsReview("Country")
strBeach = rsReview("Beach")
strName = rsReview("SName")
strTown = rsReview("STown")
strDate = rsReview("DateEntered")
strReview = rsReview("Review")
%>
<%do while not rsReview.EOF%>
<tr>
<td colspan="2" bgcolor="<%=colorx%>" class="td"><div align="left"><%=strReview%></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="<%=colorx%>">
<div align="right" class="td"><em><%=strName%>, <%=strTown%>,&nb sp;<%=strDate%></em></div>
</td>
</tr>
<%rsReview.movenext()%>
<%loop%>
<tr>
<%end if%>
|