<body>
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("data/movie.mdb"),"" , ""
sql ="Select * From mo where id='"&Request.Form("id")&"'"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if NOT(RS.EOF) then
else
Rs.AddNew
Rs("id") = Request.Form("id")
Rs("name") = Request.Form("name")
Rs("nmovie") = Request.Form("nmovie")
Rs("number") = Request.Form("number")
Rs("num") = Request.Form("num")
Rs.Update
Conn.Close
%>
<%
<script type="text/vbscript">
MsgBox p;Ecirc;ÁѤÃ][, helpfile, context])
</script>
End Sub
%>
End if
</head>
</body>
</html>