对ASP算是初学吧，感悟很多！提个问题希望大家帮助（感谢以前帮助过我的版主和各位大侠）

思路如下：
Content.asp（新闻列表页面）

我想加一个判断，
当Content.asp?typeid=1 时 显示表里tpye=1的所有新闻（例如国家新闻）
当Content.asp?typeid=2 时 显示表里tpye=2的所有新闻（例如地方新闻）

Content.asp大致内容如下:

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
<td width="156" align="center"><strong>新闻标题</strong></td>
<td width="329" align="center"><strong>新闻内容</strong></td>
<-- ---------------------------
typeid=Request("typeid")

if typeid = 1 then '等于1时显示“国内新闻”
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type=1" '（国内新闻）
rs.open sql,conn,3,1
end if

if typeid = 2 then '等于2时显示“地方新闻”
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type=2" '（地方新闻）
rs.open sql,conn,3,1
end if

循环------------------------------->
<td width="156" align="center"><%=rs("title")%></td>
<td width="329" align="center"><%=rs("content")%></td>
结束循环<-----------------------------

关闭数据库连接
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

报错的提示如下：
＝＝＝＝＝＝＝＝＝＝＝错误提示＝＝＝＝＝＝＝＝＝＝＝＝＝＝
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'rs'
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

可否告诉我正确的方法！谢谢

[此贴子已经被作者于2007-4-26 12:27:07编辑过]

typeid=Request("typeid")

sql="Select * From news Where type="

If CInt(typeid)=1 Then
sql=sql&"1"
Else
sql=sql&"2"
End If

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open sql,Conn,3,1

If Rs.EOF Then
Response.Write "查询失败！"
Response.End
End If
循环------------------------------->
<td width="156" align="center"><%=rs("title")%></td>
<td width="329" align="center"><%=rs("content")%></td>
结束循环<-----------------------------

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type="&request("typeid")
rs.open sql,conn,3,1
if rs.eof then
response.white "查询失败!"
else
%>

循环------------------------------->
<td width="156" align="center"><%=rs("title")%></td>
<td width="329" align="center"><%=rs("content")%></td>
结束循环<-----------------------------




最后要结束判断,既end if

[此贴子已经被作者于2007-4-26 9:30:19编辑过]

楼上说得对你只要在SQL语句上写成那样就行了，而不用像楼主那样判断。如果想你那样判断一旦你TYPE变了就不管用了，斑竹的想法可以的！我一般是这样写的，你可以参考一下：

<%
type1=request("typeid")
if type1="" not IsNumeric(type1) then
response.Write"<script language=javascript>alert('参数不对!');window.close();</script>"
response.End()
end if
%>


引用一下斑竹的！

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type="&request("typeid")
rs.open sql,conn,3,1
if rs.eof then
response.white "查询失败!"
else
%>
循环------------------------------->
<td width="156" align="center"><%=rs("title")%></td>
<td width="329" align="center"><%=rs("content")%></td>
结束循环<-----------------------------
<%
end if
%>

[此贴子已经被作者于2007-4-26 12:08:46编辑过]

谢谢楼上的提示,再次感谢!和你们学习真好!

帮助你的时候,我们也是再次熟悉一下,对大家都有好处.