select case 问题

[yh235]

<%select case wenzhang
case 1
sql="........."
case 2
sql="........"
case 3
sql="........."
%>
我想让同一个页面显示3条SQL查询后的结果
用select case 应该比较方便
但是我不知道该怎么调用
比方说我想让页面的头部显示 CASE 1的查询后的内容
如何显示？
可能我表达的不是很清楚 菜鸟一个 唉..

[长明]

select case只能显示一条

[cxc3214]

那就不能用 select case 了
set rs= server.CreateObject("adodb.recordset")
rs.open sql1,conn,1,1
'显示rs 的内容放在头部
rs.clsoe
rs.open sql2.conn,1,1
'显示rs 的内容放在中间
rs.clsoe
rs.open sql3.conn,1,1
'显示rs 的内容放在低部
rs.clsoe
set rs=nothing

[jiewenxu]

<%
'调用函数获得SQL
Dim Sql
Sql = GetSql(1)

Function GetSql(wenzhang)
Dim Sql
wenzhang = CInt(wenzhang)
Select case wenzhang
case 1
'你自己的条件
sql="Select * From [wenzhang] Where ID=1"
case 2
sql="Select * From [wenzhang] Where ID=2"
case 3
sql="Select * From [wenzhang] Where ID=3"
End Select
GetSql=Sql
End Function
%>