> <%
> ForumToShow = CStr(Request("id"))
>
> ' Opens database
> set conn = server.createobject("ADODB.Connection")
> conn.open "AR"
> ' Creates recordset
> set rs = Server.CreateObject("ADODB.RecordSet")
> SQL = "SELECT * FROM Forums WHERE CStr(ForumID) = 'ForumToShow'"
> rs.Open SQL, conn
> do until rs.EOF = true
> response.write rs("ForumID") & "<br>"
> response.write rs("Subject")
rs.movenext
> loop
> conn.close
> set conn = Nothing
> set rs = Nothing
> set ForumToShow = Nothing
> %>
Thanks,
Brint Hite
SQL = "SELECT * FROM Forums WHERE" & CStr(ForumID) & " = 'ForumToShow'"
Anthony Sullivan MCP, GMT, GST
Analyst/Programmer
Ajilon Services, Inc
LG&E
Brint Hite wrote in message ...