<% '## 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) str= replace(str, "", "[:)2]",1,-1,1) str= replace(str, "", "[:)3]",1,-1,1) str= replace(str, "", "[:)4]",1,-1,1) str= replace(str, "", "[:)5]",1,-1,1) str= replace(str, "", "[:)6]",1,-1,1) str= replace(str, "", "[:)7]",1,-1,1) str= replace(str, "", "[:)8]",1,-1,1) str= replace(str, "", "[:)9]",1,-1,1) str= replace(str, "", "[:)10]",1,-1,1) str= replace(str, "", "[:)11]",1,-1,1) str= replace(str, "", "[:)12]",1,-1,1) str= replace(str, "", "[:)13]",1,-1,1) str= replace(str, "", "[:)14]",1,-1,1) str= replace(str, "", "[:)15]",1,-1,1) str= replace(str, "", "[:)16]",1,-1,1) str= replace(str, "", "[:)17]",1,-1,1) str= replace(str, "", "[:)18]",1,-1,1) str= replace(str, "", "[:)19]",1,-1,1) str= replace(str, "", "[:)20]",1,-1,1) str= replace(str, "", "[:)21]",1,-1,1) str= replace(str, "", "[:)22]",1,-1,1) str= replace(str, "", "[:)23]",1,-1,1) str= replace(str, "", "[:)24]",1,-1,1) str= replace(str, "", "[:)25]",1,-1,1) str= replace(str, "", "[:)26]",1,-1,1) str= replace(str, "", "[:)27]",1,-1,1) str= replace(str, "", "[:)28]",1,-1,1) str= replace(str, "", "[:)29]",1,-1,1) str= replace(str, "", "[:)30]",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 %> ::superMarket::[www.i2off.org][agregar] vLink="<% =ActiveLinkColor %>" topmargin="0" marginwidth="0" marginheight="0" background="imagenes/fondo.gif">
 


<% =msg %>

<%if Request.QueryString("topic_title") > "" then %> <%else %> <%end if %>
agregar producto en: <%= Request.QueryString("topic_title") %> agregar nueva gondola
<% 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 participar sin registrarce
Su Password:
 <% if Request.Cookies("User")("Anonim") = "yes" then %>    olvido su password?
Titulo:
Mensaje:

agregar imagenes al producto

> 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 = "agregar Producto" Else btn = "agregar Gondola" End if %>



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