Responder con quote

[Artepop]

Hola tengo un problema en estos foros http://www.artepop.com/foros/philboard_read.asp?id=44
Donde en la primera respuesta la cual abre el tema en el icono
Responder con quote, cuando le crickeo no encuentra la página. Sin envargo en las siguientes respuesta si funciona.

Cual es la solución, gracias

[lubetpic]

debe haber un problema con el id porque en el primer post no viene pero en los demas si

igual deberias poner el script a ver si es cierto

por lo menos para ver la linea 5 que es la que se pega

[lubetpic]

mentira si viene id=root.

mejor pones el script para no seguir adivinando

[Artepop]

Este es el vículo:

Código:

<a href="philboard_reply.asp?id=root&topic=<%=id%>&recordnum=<%=recordnum%>"><img src="images/replywquote.gif" width="15" height="15" border="0" alt="Responder con quote"></a>

Script: Creo que es por aquí, soy principiante.....sorry

Código:

<%
Option Explicit
Dim sql,rsRoot,rsReplies,count,id,rsUser,username,level,recordnum,cellbgcolor,messagecount,messagepage,lastpage,moderator,forumid,locked,repliesdisplay

username = Request.Cookies("pb_username")
level = Request.Cookies("level")
recordnum = Request.QueryString("recordnum")

'repliesdisplay alters amount of replies to display on page
repliesdisplay = 20

if recordnum = "" then recordnum = 0 end if

id = Request.QueryString("id")
%>

<!--#include file="conn.asp"-->

<%
sql = "SELECT topics.*, forums.*, statusname, statuslevel, moderator, users.posts FROM (status INNER JOIN users ON status.statusid = users.status) INNER JOIN ((forums INNER JOIN moderators ON forums.forumid = moderators.moderatorforum) INNER JOIN topics ON forums.forumid = topics.forum) ON users.username = topics.by WHERE topics.id = " & id
Set rsRoot = Server.CreateObject("ADODB.Recordset")
rsRoot.Open sql, conn, 3, 3

moderator = rsRoot("moderator")
forumid = rsRoot("forumid")
locked = rsRoot("locked")

sql = "SELECT replies.*, statusname, statuslevel, users.posts FROM (status INNER JOIN users ON status.statusid = users.status) INNER JOIN replies ON users.username = replies.by WHERE replies.root = " & id & " ORDER BY date, time"
Set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.Open sql, conn, 3, 3

if not rsReplies.EOF then
  rsReplies.Movefirst

  for count = 1 to repliesdisplay
	rsReplies.Movenext
	if rsReplies.EOF then
	  exit for
	end if
  next
  
  if not rsReplies.EOF then
	messagecount = rsReplies.Recordcount
  end if
  
  rsReplies.Movefirst
  
end if
%>

[Artepop]

En este esta el error creo, linea 5:

Código:

<%Function RevFormatText(sIn)
	Dim charPos, sOut, curChar, urlChar, urlString, imgChar, imgPos, imgString
	sOut = ""
	
	sIn = Replace(sIn, "<br>", vbcrlf)
	sIn = Replace(sIn, "&lt;", "<")
	sIn = Replace(sIn, "&gt;", ">")
	sIn = Replace(sIn, "<img src=""images/pb_smiley_angry.gif"" align=""middle"" alt=""Moska"">", ">:(")
	sIn = Replace(sIn, "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""Pasmao"">", "8O")
	sIn = Replace(sIn, "<img src=""images/pb_smiley_happy.gif"" align=""middle"" alt=""Felí"">", ":)")
	sIn = Replace(sIn, "<img src=""images/pb_smiley_sad.gif"" align=""middle"" alt=""Pena"">", ":(")
	sIn = Replace(sIn, "<img src=""images/pb_smiley_laugh.gif"" align=""middle"" alt=""Partio"">", ":D")
	sIn = Replace(sIn, "<img src=""images/pb_smiley_razz.gif"" align=""middle"" alt=""Cachondo"">", ":p")
	sIn = Replace(sIn, "<img src=""images/pb_smiley_wink.gif"" align=""middle"" alt=""OK"">", ";)")
	sIn = Replace(sIn, "<b>", "")
	sIn = Replace(sIn, "</b>", "")
	sIn = Replace(sIn, "<i>", "")
	sIn = Replace(sIn, "</i>", "")
	sIn = Replace(sIn, "<u>", "")
	sIn = Replace(sIn, "</u>", "")
	sIn = Replace(sIn, "<blockquote><font face=""verdana,arial,helvetica"" size=""1"">quote</font><hr>", "

	
		

			
				
")
	sIn = Replace(sIn, "<hr></blockquote>", "
			
		

")
	
	For charPos = 1 To Len(sIn)
		curChar = Mid(sIn, charPos, 1)
		
		if mid(sIn, charPos, 4) = "<img" then
			sOut = sOut + "[img]"
			charPos = charPos + 10
			imgString = ""
			imgChar = ""
			imgPos = charPos
			do until mid(sIn, imgPos, 2) = """>"
				imgChar = mid(sIn, imgPos, 1)
				imgString = imgString + imgChar
				imgPos = imgPos + 1
				if imgPos > len(sIn) then
					sOut = sOut + imgString + "[/img]"
					exit for
				end if
			loop
			imgString = left(imgString, len(imgString))
			sOut = sOut + imgString + "[/img]"
			charPos = charpos + (imgPos - charPos + 5)
		elseif (mid(sIn, charPos, 2) = "<a") then
			do until mid(sIn, charPos, 2) = """>"
				charPos = charPos + 1
			loop
			charPos = charPos + 2
			urlString = ""
			urlChar = ""
			do until mid(sIn, charPos, 4) = "</a>"
				urlChar = mid(sIn, charPos, 1)
				urlString = urlString + urlChar
				charPos = charPos + 1
				if charPos > len(sIn) then
					exit for
				end if
			loop
			sOut = sOut + urlString
			charPos = charpos + 3
		else
			sOut = sOut + curChar
		end if
	Next
	
	RevFormatText = sOut
End Function%>