一段简单的ASP代码

<%
if Request.QueryString("mark")="southidc" then
dim SQL, Rs, ID,CurrentPage
db="/database/maxtangqyw.mdb"
CurrentPage = request("Page")
ID=request("ID")
set rs=server.createobject("adodb.recordset")
sql="select * from HrDemand"
rs.open sql,conn,3,3
set rs =nothing
conn.close
rs.addnew
rs("a")=a
rs("b")=b
rs("c")=c
rs("d")=d
rs("e")=e
rs("f")=f
rs("g")=g
rs.update
rs.close
response.redirect "Admin_HrDemand.asp"
end if
%>

连数据库的代码，修改某几项的值，不过连不上，还老报错，错误是缺少end
新手，不太懂，要怎么改，

<%
if Request.QueryString("mark")="southidc" then
dim SQL, Rs, ID,CurrentPage
db="/database/maxtangqyw.mdb"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)&";Persist Security Info=False"
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
CurrentPage = request("Page")
ID=request("ID")
set rs=server.createobject("adodb.recordset")
sql="select * from HrDemand"
rs.open sql,conn,3,3
rs.addnew
rs("a")=a
rs("b")=b
rs("c")=c
rs("d")=d
rs("e")=e
rs("f")=f
rs("g")=g
rs.update
rs.close

response.redirect "Admin_HrDemand.asp"
end if
set rs =nothing
conn.close
%>

db="/database/maxtangqyw.mdb"