<% '## 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: Solo el que envio este mensaje, y el moderador pueden editarlo." '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: Solo el que envio este mensaje, y el moderador pueden editarlo." 'on Error resume next set rs = my_conn.Execute (StrSql) txtmsg = rs("T_Message") End if %> Enviar un nuevo mensaje vLink="<% =ActiveLinkColor %>">
<% =BBTitle %>

<% =BBTitle %>

Enviar nuevo mensaje para:
<%= Request.QueryString("topic_title") %>


No es obligatorio estar registrado
De todos modos el estar registrado
le dara una existencia individual dentro del foro
Para registrarse clickee aqui. la registracion es GRATUITA!

<% =msg %>

<% else %> ">    olivido su password? <% end if %> <% if lcase(Request.QueryString("method")) = "topic" then %> <% End If %>
Nombre de usuario: <% if Request.Cookies("User")("Anonim") = "yes" then %> <% else %> "> <% end if%> > Marque aquí si quiere ser anonimo
Su Password: <% if Request.Cookies("User")("Anonim") = "yes" then %>    olvido su password?
Titulo:
Mensaje:

ver comados del foroScript

> Marque aqui si quiere incluir su Profile.
> Marque aqui si quiere que se recuerden sus opciones para usarlas mas adelante. <% if lcase(Request.QueryString("method")) = "topic" then %>
Marque aqui si quiere ser notificado por email cuando le respondan. <% end if %>

"> "> "> "> "> "> "> "> "> <% if Request.QueryString("method") = "reply" then btn = "Responder al tema" Else btn = "Enviar nuevo tema" End if %>

Mostrar todos los foros | ">Enviar respuestas

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