<%
Option Explicit
Dim objDBConn, objRs
Dim strSQL
Dim intSeq
Dim strName, strEmail, strSubject, strContent
Dim blnTag
intSeq = Request.QueryString("seq")
Set objDBConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.RecordSet")
objDBConn.Open "97003074", "sa", "accessheaven"
strSQL = "Select strName" ' objRs(0) - 이름
strSQL = strSQL & ",strEmail" ' objRs(1) - 이메일
strSQL = strSQL & ",strSubject" ' objRs(2) - 제목
strSQL = strSQL & ",strContent" ' objRs(3) - 내용
strSQL = strSQL & ",blnTag" ' objRs(4) - 태그사용여부
strSQL = strSQL & " From board"
strSQL = strSQL & " Where intSeq = " & intSeq
objRs.Open strSQL, objDBConn
strName = objRs("strName")
strEmail = objRs("strEmail")
strSubject = objRs("strSubject")
strContent = objRs("strContent")
blnTag = objRs("blnTag")
objRs.Close
Set objRs = nothing
objDBConn.Close
Set objDBConn = nothing
%>
태지의 게시판 - 수정하기