hola me llamo ramon
i soy un programador asp - php - asp.net
pero tengo todos los dillas
un problemilla
es que e progrmadado la paginacion en asp
con "for"
bueno este es el codigo
Código PHP:
if mlev="7" or mlev="6" or show="1" or showe="1" then
strSQL = "select id,cat_id,f_id,topic_id,r_author,r_message,r_date,r_hide,r_approve,r_hide_text,r_type,t_mem,r_sup from Ab_replies where topic_id="&topic("id")&" "
else
strSQL = "select id,cat_id,f_id,topic_id,r_author,r_message,r_date,r_hide,r_approve,r_hide_text,r_type,t_mem,r_sup from Ab_replies where topic_id="&topic("id")&" and r_sup=0 and r_hide=0"
end if
set rep = Server.CreateObject("ADODB.Recordset")
rep.open strSQL, ado, adOpenStatic
if rep.EOF then
recReplysCount = ""
else
rep.movefirst
rep.pagesize = 30
inttotaltopics = cLng(rep.recordcount)
if pg > cLng(rep.pagecount) then pg = 1
rep.absolutepage = pg
maxpages = cLng(rep.pagecount)
totalpages = maxpages
allReplysData = rep.GetRows(30)
recReplysCount = UBound(allReplysData,2)
end if
rep.close
set rep= nothing
if recReplysCount = "" then
else
rid = 0
rcat_id = 1
rf_id = 2
rtopic_id = 3
rr_author = 4
rr_message = 5
rr_date = 6
rr_hide = 7
rr_approve = 8
rr_hide_text = 9
rr_type = 10
rt_mem = 11
rr_sup = 12
for i=0 to recReplysCount
r_id = allReplysData(rid, i)
r_cat_id = allReplysData(rcat_id, i)
r_f_id = allReplysData(tT_STATUS, i)
r_topic_id = allReplysData(rf_id, i)
r_r_author = allReplysData(rr_author, i)
r_r_message = allReplysData(rr_message, i)
r_r_date = allReplysData(rr_date, i)
r_r_hide = allReplysData(rr_hide, i)
r_r_approve = allReplysData(rr_approve, i)
r_r_hide_text = allReplysData(rr_hide_text, i)
r_r_type = allReplysData(rr_type, i)
r_t_mem = allReplysData(rt_mem, i)
r_r_sup = allReplysData(rr_sup, i)
colorssee = "f2"
aqui tengo el codigo
next
end if
i meda siempre
un eror ariba
-*
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/asaher/xx/Files/topic.asp, line 370
*-
podeis ayudarme i el error indiqua a
''
rep.absolutepage = pg
'''
porfa aydarme