<%
dim conn,rs
set conn=Server.cre ateobject("ADOD B.Connection")
set rs=Server.creat eobject("ADODB. RecordSet")
conn.Open "Provider=SQLOL EDB;Persist Security Info=False;User Id=sa;Initial Catalog=movie;I nitial File Name=C:\Inetpub \wwwroot\b\movi e.mdf"
rs.Open "login",con n
rs.AddNew
rs("fname")=req uest.form("fnam e")
rs("lname")=req uest.form("lnam e")
rs("id")=reques t.form("id")
rs("password")= request.form("p assword")
rs("fav")=reque st.form("fav")
rs("ans")=reque st.form("ans")
rs.Update
response.redire ct("msg1.asp")
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
%>
dim conn,rs
set conn=Server.cre ateobject("ADOD B.Connection")
set rs=Server.creat eobject("ADODB. RecordSet")
conn.Open "Provider=SQLOL EDB;Persist Security Info=False;User Id=sa;Initial Catalog=movie;I nitial File Name=C:\Inetpub \wwwroot\b\movi e.mdf"
rs.Open "login",con n
rs.AddNew
rs("fname")=req uest.form("fnam e")
rs("lname")=req uest.form("lnam e")
rs("id")=reques t.form("id")
rs("password")= request.form("p assword")
rs("fav")=reque st.form("fav")
rs("ans")=reque st.form("ans")
rs.Update
response.redire ct("msg1.asp")
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
%>
Comment