<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim rsUpdate
Dim nid,id,name,city,career,company,email,subject,msg,etime,ip
id = CLng(Request("id"))
Set rsUpdate = Server.CreateObject("ADODB.Recordset")
sqlstr = "SELECT * FROM BulletinBoard Where id=" & id
rsUpdate.open sqlstr, conn, 3, 3
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")
%>
留言板