<%
'CopyRightc2002 程式製作:炎羽 
'信箱:howl.fire@yahoo.com.tw
'蔚藍海岸留言版v1.1
'請勿隨意拿掉版權~謝謝
 

  id=Request("id")
  rip=Request("rip")
  rtitle=Request("rtitle")
  rname=Request("rname")
  rurl=Request("rurl")
  rmail=Request("rmail")
  rbody=Request("rbody")

  Set Conn = Server.CreateObject("ADODB.Connection")          
          
          
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../../home/gbook.mdb")     

sql="Insert into rbook(rname,rmail,id,rtitle,rip,rurl,rbody) values('"          
sql = sql & Request.Form("rname") & "','"          
sql = sql & Request.Form("rmail") & "','"          
sql = sql & Request.Form("id") & "','"          
sql = sql & Request.Form("rtitle") & "','"          
sql = sql & Request.Form("rip") & "','"          
sql = sql & Request.Form("rurl") & "','"          
sql = sql & Request.Form("rbody") & "')"          
          
Set RS = conn.Execute( sql )           

'做餅乾                    
    Response.Cookies("Name") = rName        
    Response.Cookies("Mail") = rMail              
    Response.Cookies("Name").Expires = (Date+30)        
    Response.Cookies("Mail").Expires = (Date+30)            
'餅乾製作結束`^^

Response.Redirect "index.asp"   
%>