ROCN...It finally worked It didn't like the Else statement, but I change the script around a little to get it to work. This is what it looks like:
<%
Set oConn= server.createObject("adodb.connection")
strConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("/fpdb/cadata.mdb") & ";"
oconn.open(strConn)
strSelect1 = Request.Form("Select1")
strSelect2 = Request.Form("Select2")
strSelect3 = Request.Form("Select3")
strSelect4 = Request.Form("Select4")
set oRS=oconn.execute("Select * FROM Listings WHERE make= '"& strSelect1 &"' AND model= '"& strSelect2 &"' AND year<= '"& strSelect3 &"' AND year>= '"& strSelect4 &"'")
%>
<%
If oRS.EOF Then Response.Redirect "nomatch.asp"
If Not oRS.EOF Then oRS.MoveFirst
%>
<%
Do while Not oRS.EOF
%>
<tr><b>
<td bgcolor="#F5D799"><p align="center"> <font size="2" face="Arial">
<%
IF oRS.Fields("photoavailable") = "True" Then
%>
<img src="images/camera.gif">
<%
If oRS.Fields("photoavailable") = "False" Then Response.Write(".")
End If
%>
</p></font></td>
<td bgcolor="#F5D799"><p align="center"> <font size="2" face="Arial"> <%= oRS("year") %></font></td>
<td bgcolor="#F5D799"><p align="center"> <font size="2" face="Arial"> <%= oRS("make") %> <%= oRS("model") %></font></td>
<td bgcolor="#F5D799"><p align="center"> <font size="2" face="Arial"> <%= oRS("mileage") %></font></td>
<td bgcolor="#F5D799"><p align="center"> <font size="2" face="Arial"> <%= oRS("price") %></font></td>
<td bgcolor="#F5D799"><p align="center"> <font size="2" face="Arial"> <%= oRS("color") %></font></td>
<td bgcolor="#F5D799"><p align="center"> <font size="2" face="Arial"> <%= oRS("dealer") %></font></td>
<%
oRS.MoveNext
Loop
%>
</tr></b>
</table>
</center>
</div>
<%
oRS.close
set oRS=nothing
oConn.close
set oConn=nothing
%>
...This is kind of messy, but it worked. Thanks again for the help. |