Responder con quote

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