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

Nota: Só o Administrador, Moderador ou o Autor podem mudar esta mensagem." '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 = "

Nota: Só o Administrador, Moderador ou o Autor podem mudar esta mensagem." 'on Error resume next set rs = my_conn.Execute (StrSql) txtmsg = rs("T_Message") End if %> Colocar nova mensagem vLink="<% =ActiveLinkColor %>">

<% =BBTitle %>

Colocado nova mensagem em :
<%= Request.QueryString("topic_title") %>

Nota: Precisa de estar registado para poder colocar um novo tema ou uma resposta a um já existente.
Para se registar, clique aqui. O registo é GRÁTIS!<% =msg %>

<% if lcase(Request.QueryString("method")) = "topic" then %> <% End If %>
O seu UserName: ">
A sua Password: ">   Esqueceu-se da password?
Tema:
Mensagem:
>Seleccionar para incluir a sua assinatura.
>Seleccionar para incluir detalhes. <% if lcase(Request.QueryString("method")) = "topic" then %>
Seleccionar para ser notificado por email quando alguém responder à sua mensagem. <% end if %>

"> "> "> "> "> "> "> "> "> <% if Request.QueryString("method") = "reply" then btn = "Responder à mensagem" Else btn = "Colocar nova mensagem" End if %>

Todos os Fóruns | ">Responder

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