Author |
Topic  |
|
acoustika
Junior Member
 
Denmark
311 Posts |
Posted - 20 October 2003 : 20:49:23
|
Hey there I have succesfully installed the PM Mod and it works great, then I installed the BlockList addon, and it also seems to work fine, except, when I click the Block list I get this annoying error when I mouseOver the blockliste tabel It obviously have something to do with the Mouseover and out function in the Pm_Blocklist.asp file. Can someone help me
here is the portion of the code where I am pretty sure it is wrong
if blockList(0) <> "empty" then for iCount=0 to Ubound(blockList) dim memberName memberName=getMemberName(blockList(iCount)) Response.Write " <tr bgcolor=""" & strForumCellColor & """ onMouseOver=mOvr(this,""" & strOnHoverCellColor & """) onMouseOut=mOut(this,""" & strOutHoverCellColor & """)>" & vbNewLine Response.Write " <td align=""left"" valign=""middle""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine response.write " <a href=""pop_profile.asp?mode=display&id=" & blockList(iCount) & """" & dWStatus("View " & memberName & "'s Profile") & ">" response.write memberName & vbNewLine Response.Write " </a></font></td>"& vbNewLine & _ " <td align=""center"" valign=""middle"">" & vbNewLine & _ "<a href=""#"" onclick=""JavaScript:if(window.confirm('Are you sure you want to remove "& memberName & " from your PM block list?')){window.location=('pm_blocklist.asp?method=delete&removeMemID=" & blockList(iCount) & "');}"">" & vbNewLine & _ getCurrentIcon(strIconTrashcan,"Remove from block list","hspace=""0""") & vbNewLine & _ "</a></td></tr>" & vbNewLine next else Response.Write " <tr bgcolor=""" & strForumCellColor & """onMouseOver=mOvr(this,""" & strOnHoverCellColor & """) onMouseOut=mOut(this,""" & strOutHoverCellColor & """)>" & vbNewLine & _ " <td colspan=""2""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _ " Your block list is empty.</font></td></tr>" & vbNewLine end if |
May The Code Be With You www.UniqueDk.dk *** The Open Forums of Denmark *** |
Edited by - acoustika on 21 October 2003 06:18:59 |
|
acoustika
Junior Member
 
Denmark
311 Posts |
Posted - 21 October 2003 : 04:25:17
|
Anyone??? I've searched and searched but can't find anything. |
May The Code Be With You www.UniqueDk.dk *** The Open Forums of Denmark *** |
 |
|
HuwR
Forum Admin
    
United Kingdom
20600 Posts |
Posted - 21 October 2003 : 04:40:00
|
you didn't tell us what error you get |
 |
|
acoustika
Junior Member
 
Denmark
311 Posts |
Posted - 21 October 2003 : 05:02:04
|
It it an Alert window when I mouse over the table
Object expected
But isn't it just an Return true thing or so?? |
May The Code Be With You www.UniqueDk.dk *** The Open Forums of Denmark *** |
 |
|
acoustika
Junior Member
 
Denmark
311 Posts |
Posted - 21 October 2003 : 06:17:43
|
Also I have installed the CellImageMod
But this doesn't seem to work With the Pm Mod, how do I change This???? Problably because it doesn't use the strCellImage thing *S* But I have no Idea where to put it in
also I have dited the first Post to a different color in the code where I think it's wrong |
May The Code Be With You www.UniqueDk.dk *** The Open Forums of Denmark *** |
Edited by - acoustika on 21 October 2003 06:18:28 |
 |
|
mkemichael
Starting Member
12 Posts |
Posted - 07 January 2004 : 16:02:12
|
I just removed the mouse over tags and everything works great.
Lines 244, 255 and 260 remove: onMouseOver=mOvr(this,"""&strOnHoverCellColor& """) onMouseOut=mOut(this,"""& strOutHoverCellColor& """)
|
 |
|
|
Topic  |
|