<% IF SESSION("User_Group") <> "MEMBER" Then 'Time out %> <% Response.End End If Dim subMenu subMenu = Trim(Request("subMenu")) Dim BBS_Category BBS_Category = Trim(Request("BBS_Category")) Dim dbConn SET dbConn = GetDBConn() Dim Subject, Writer, Email, Passwd, Content Subject = Trim(fn_RA("Subject")) Subject = Replace(Subject,"'","''") Writer = Trim(fn_RA("Writer")) Writer = Replace(Writer,"'","''") Email = Trim(fn_RA("Email")) Email = Replace(Email,"'","''") Passwd = Trim(fn_RA("Passwd")) Passwd = Replace(Passwd, "'", "''") Content = Trim(fn_RA("Content")) Content = replace(Content, "'", "''") Content = Replace(Content ,"|","chr(124)_pipe") Subject = Replace(Subject ,"|","chr(124)_pipe") Dim sqlExist, rsExist sqlExist = "Select BBS_No From E_bbs WHERE BBS_Category = '"&BBS_Category&"' " Set rsExist = rsGetDBResult(dbconn,sqlExist) Set rsExist = Nothing Dim sqlLink, rsLink sqlLink = "Select BBS_LinkID From E_bbs WHERE BBS_Category = '"&BBS_Category&"' " Set rsLink = rsGetDBResult(dbconn,sqlExist) if rsLink.EOF = True and rsLink.BOF = True Then ' No Record LinkID = 0 else ' Record Exist Dim sqlMaxLink, rsMaxLink, LinkID sqlMaxLink = "Select Max(BBS_LinkID) as MaxLinkID From E_bbs WHERE BBS_Category = '"&BBS_Category&"' " Set rsMaxLink = rsGetDBResult(dbconn,sqlMaxLink) LinkID = cint(rsMaxLink("MaxLinkID")) + 1 Set rsMaxLink = Nothing End If Set rsLink = Nothing ' MID Dim sqlMID, rsMID, MaxMID, sqlMaxMID, rsMaxMID sqlMID = "Select BBS_MID From E_bbs WHERE BBS_Category = '"&BBS_Category&"' " Set rsMID = rsGetDBResult(dbconn,sqlMID) if rsMID.EOF = True and rsMID.BOF = True Then MaxMID = 1 else sqlMaxMID = "Select Max(BBS_MID) as MaxMID From E_bbs WHERE BBS_Category = '"&BBS_Category&"' " Set rsMaxMID = rsGetDBResult(dbconn,sqlMaxMID) MaxMID = cint(rsMaxMID("MaxMID")) + 1 Set rsMaxMID = Nothing End If Set rsMID = Nothing Dim sqlInsert sqlInsert = "INSERT INTO E_bbs " sqlInsert = sqlInsert & " (BBS_Category, BBS_MID, BBS_TreeID, BBS_ChildID, BBS_LinkID, BBS_Subject, BBS_Editor, BBS_Email, BBS_Passwd, BBS_Visited, BBS_Text, BBS_DoctypeCd, BBS_DATE, is_notice, user_id) " sqlInsert = sqlInsert & " values('" & BBS_Category & "', " & MaxMID & ",0,0," & LinkID & ",'" & Subject & "','" & Writer & "','" & Email & "', '" & Passwd & "', 0, '" & Content &"', '" &Request.ServerVariables("remote_host")& "', GetDate(), 'N', '"&SESSION("Login_ID")&"')" 'Response.Write sqlInsert & "
" 'response.end %> <% dbconn.Execute(sqlInsert) set dbConn = Nothing ReFresh("/board/board_list.asp?subMenu="&subMenu&"&BBS_Category="&BBS_Category) %>