<% 'Option Explicit Dim sql,rsEntry,root,forumid,icon,message,newid,username,recordnum,lastdate,lasttime username = Request.Cookies("junooni_userid") icon = Request.Form("icon") message = Request.Form("message") root = Request.Form("root") forumid = Request.Form("forumid") recordnum = Request.Form("recordnum") if message = "" then posterror() end if %> <% Call Connjunooni(Conn) if not loginstatus(username)Then response.redirect "login.asp" end if message = RemoveHTMLTags(message) if session("usr_msg") = message and session("usr_root") = root and session("usr") = username then Response.Redirect("read.asp?id=" & root & "&recordnum=" & recordnum) else session("usr_msg") = message session("usr_root") = root session("usr") = username Set rsEntry = Server.CreateObject("ADODB.Recordset") rsEntry.open "replies", conn, 3, 3 rsEntry.AddNew rsEntry("reply_by") = username rsEntry("icon") = icon rsEntry("message") = FormatText(message) rsEntry("root") = root rsEntry("date") = date() rsEntry("time") = time() rsEntry.Update newid = rsEntry("id") lastdate = date() lasttime = time() rsEntry.close rsEntry.open "select * from topics WHERE id = " & root, conn, 3, 3 rsEntry("replies") = rsEntry("replies") + 1 rsEntry("lastdate") = lastdate rsEntry("lasttime") = lasttime rsEntry("lastpost") = username rsEntry.Update rsEntry.close rsEntry.open "forums WHERE forumid = " & forumid, conn, 3, 3 rsEntry("posts") = rsEntry("posts") + 1 rsEntry.Update rsEntry.close set rsEntry = nothing conn.close set conn = nothing Response.Redirect("read.asp?id=" & root & "&recordnum=" & recordnum) end if %> <%Function posterror()%> Junoon.com : Forumboard
Please enter your username and password to login

You have not entered a message.

Please try again

 <% Response.end End Function %>