<%
if request.ServerVariables("REQUEST_METHOD")="POST" then
set MyRs=server.CreateObject("adodb.recordset")
MyRs.open "Messages" ,conn,3,3
Myrs.addnew
Myrs("Message_Name")= Request.form("urname")
Myrs("Message_Email")= Request.form("email")
Myrs("Message_Openion")=Request.form("openion")
Myrs("Message_Date")=Date
myrs.update
response.redirect("preview.htm")
end if
%>
