asp中关于select case的问题。

请高手帮我看看这段代码，我折腾了一天了。还是没搞定。
<%
'申明变量并获取上个面页表单传递的值。
dim varname,vartxt,varurl,varid,myclass
varname=request.form("titletext")
vartxt=request.form("textarea")
myclass=request.form("class")

select case myclass
case "1"

'向notice表中写入添加文章的题目。
set rs=server.CreateObject("adodb.recordset")
rs.open "select name from notice",conn,1,3
rs.addnew
rs("name")=varname
rs.update
rs.close

'读出刚才添加的记录id，以它为txt文件的文件名，并写入到url字段。
rs.open "select id from notice order by id desc",conn,1,1
varid=rs("id")
varurl=varid&".txt"
rs.close

exec="select url from notice where id="&varid
rs.open exec,conn,1,3
rs("url")=varurl
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

'

vb中关于select case的问题 ASP Select Case问题 asp select case 语句问题 请问：关于select case的一个问题？ select case的问题 vb中SELECT CASE语法问题 关于ASP中SELECT查询的GROUP分组问题！ ASP中查询关于select * like语句的问题 vb中 select case 的用法 select case应用问题