<%@ Language=VBScript %>
<% Option Explicit %>
<!-- #include file='bbsconn.asp' -->
<%
   Dim rsUpdate
   Dim nid,id,name,city,career,company,email,subject,msg,etime,ip

   id      = CInt(Request("id"))
   Set rsUpdate = Server.CreateObject("ADODB.Recordset")
   sqlstr = "SELECT * FROM BulletinBoard Where id=" & id
   rsUpdate.open sqlstr, conn, 3, 3

   rsUpdate("name")     = Request("name") 
   rsUpdate("city")     = Request("city") 
   rsUpdate("career")   = Request("career") 
   rsUpdate("company")  = Request("company") 
   rsUpdate("email")    = Request("email") 
   rsUpdate("subject")  = Request("subject") 
   rsUpdate("msg")  = Request("msg") 
   rsUpdate("etime") = Now
   rsUpdate("ip")       = Request.ServerVariables("REMOTE_ADDR")
   rsUpdate.Update

   id       = rsUpdate("id")
   nid      = rsUpdate("nid")
   name     = rsUpdate("name")
   city     = rsUpdate("city")
   career   = rsUpdate("career")
   company  = rsUpdate("company")
   email    = rsUpdate("email")
   subject  = rsUpdate("subject")
   msg  = rsUpdate("msg")
   etime = rsUpdate("etime")
   ip       = rsUpdate("ip")
   
%>
<%
   rsUpdate.close
   'conn.close
   Set rsUpdate = Nothing
   Set conn = Nothing
   
   Response.Redirect "bbs.asp"
%>