<% '## 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 vLink="<% =ActiveLinkColor %>">
<% =BBTitle %>

<% =BBTitle %>

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

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

<% 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 %>

Show All Forums | ">Post Reply

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