<% '## Open DataBase Connection '## (Change to include file soon!) Function Chked(YN) ' To Check Check Boxes if YN = "yes" then Chked = "Checked" else Chked = "" end if End Function Function CleanCode(str) if str = "" then str = " " Else str = replace(str, "
", "[code]", 1, -1, 1)
	str = replace(str, "
", "[/code]", 1, -1, 1) str = replace(str, "", "[b]",1,-1,1) str = replace(str, "", "[/b]",1,-1,1) str = replace(str, "", "[/i]",1,-1,1) str = replace(str, "", "[/i]",1,-1,1) str = replace(str, "
quote:
", "[quote]",1,-1,1) str = replace(str, "
", "[/quote]",1,-1,1) str = replace(str, "Link", "[/a]",1,-1,1) if smiles ="true" then str= replace(str, "", "[;)]",1,-1,1) str= replace(str, "", "[:(]",1,-1,1) str= replace(str, "", "[:P]",1,-1,1) str= replace(str, "", "[:)]",1,-1,1) end if End if CleanCode = str end function if Request.QueryString("method") = "edit" then set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString strSql ="SELECT * from reply where reply_id = " & Request.QueryString("reply_id") msg = "

Note: Only the poster of this message, and the moderator can edit the message." 'on Error resume next set rs = my_conn.Execute (StrSql) txtmsg = rs("r_message") End if if Request.QueryString("method") = "editTopic" then set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString strSql ="SELECT T_Message from Topics where Topic_id = " & Request.QueryString("reply_id") msg = "

Note: Only the poster of this message, and the moderator can edit the message." 'on Error resume next set rs = my_conn.Execute (StrSql) txtmsg = rs("T_Message") End if %> Post a new Message
[leftbar.htm]

 
<% =BBTitle %>

Post New Topic for: 
<%= Request.QueryString("topic_title") %>


Note: You must be registered in order to post a topic. 
To register, click here. Registration is FREE!<% =msg %>

Confidentiality Notice: You can enter any username (when registering) to conceal your identity if you choose.   Also, when posting a topic, if you enter your name at the bottom of your message, it will automatically display. 

 

">">">">">">">">"> <% if lcase(Request.QueryString("method")) = "topic" then %> <% End If %>
Your
UserName:		 ">
Your
Password:		 ">   Forget your password?
Subject:
Message:
>Check here to include your profile signature.
>Check here Remember Details. <% if lcase(Request.QueryString("method")) = "topic" then %>
Check here to be notified by email whenever someone replies to your topic. <% end if %>

<% if Request.QueryString("method") = "reply" then btn = "Reply To Topic" Else btn = "Post New Topic" End if %>

<% if Request.QueryString("method") = "edit" then my_conn.Close set my_conn = nothing End If %>