well then im back here again. After thinking i was out bush. RIGHT the problem:
I installed the new_events_calendar mod. It all seems to be working apart from the topic.asp page. I have heavilly moded this already and had the same problem when doing the avatar and poll mod. it seemed to go away though. But with this new mod its come back.
the .txt is here:
www.rollerblast.co.uk/topic.txt the error message i get is this:
The example topic.asp txt for the calander mod is here:
www.rollerblast.co.uk/cal_topic.txt
when i use this instead of my modded topic.asp it seams to work.
Thanks alot ! I dont no whats going on but im sure one of u could figure this out. im sure its simple really. i tried to figure it out using comparison software i think that might be useful to do for this if anyone has some free time. THANKS SO MUCH
If you want to see what is happening when trying to open topic.asp go here:
www.rollerblast.co.uk/rbforum/ i am currently using the cal_topic to keep the forum operational until this is fixed
if strShowQuickReply = "1" and strDBNTUserName <> "" and ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then call QuickReply() end if
WriteFooter end if sub GetFirst() CColor = strForumFirstCellColor Response.Write " <tr>" & vbNewLine & _ " <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"" width=""" & strTopicWidthLeft & """" if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap") Response.Write ">" & vbNewLine & _ " <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><span class=""spnMessageText"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b></font><br />" & vbNewLine if strShowRank = 1 or strShowRank = 3 then Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & ChkString(getMember_Level(Member_Title, Member_Level, Member_Posts),"display") & "</small></font><br />" & vbNewLine end if if strShowRank = 2 or strShowRank = 3 then Response.Write " " & getStar_Level(Member_Level, Member_Posts) & "<br />" & vbNewLine end if Response.Write " </p>" & vbNewLine & _ " <p>" & vbNewLine if Member_Avatar <> "noavatar.gif" then '##### My Avatar addon 1-2 : replace above line with below 5 lines if (strMyAvatarLink + strMyAvatarTooltip) > 0 then