加油站加油机工作原理:我的修改代码如下，但是始终不能实现，请高手指点

<%
dim id1
id1=request("id")
ph=request("ph")
mc=request("mc")
lx=request("lx")
cf=request("cf")
fmwd=request("fmwd")
ldx=request("ldx")
yd=request("yd")
tx=request("tx")
gy=request("gy")
cj=request("cj")

'option explicit
dim conn,rs
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("material.mdb")
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("material.mdb")
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("material.mdb")

sql="update material set ph='"&ph&"',mc='"&mc&"',lx='"&lx&"',cf='"&cf&"',fmwd='"&fmwd&"',ldx='"&ldx&"',yd='"&yd&"',tx='"&tx&"', gy='"&gy&"',cj='"&cj&"' WHERE id="&id1

rs.Open sql,conn,1,1

response.write "<script language=JavaScript>" & chr(13) & "alert('记录信息修改成功！');"&"window.location.href = 'adminmodify.asp'"&" </script>"

set rs=nothing
%>

第一次接触asp，很多东西都不是特别理解，所以请一定帮帮我