求ASP动态网页, 需要连接数据库的

数据库mdb.mdb

表名为indexs
id 自动编号
orderid 数字
meau 文本
src 文本
show 是/否

<%
DB="mdb.mdb"
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
conn.Open connstr

On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'
Response.End
End If

act=request("act")
newid=request.Form("orderid")
meau=request.Form("meau")
src=request.Form("src")
show=request.Form("show")

if act="edit" then

ssql="update indexs set orderid="&newid&",meau='"&meau&"',src='"&src&"',show="&show&