|
matrixxx
Starting Member
USA
19 Posts |
 Posted - 20 June 2003 : 14:35:09
|
Never mind. The readme file must have a typo. find and replace didn't find the text, but searching the file line by line I found it in about line 328. thanks
I am trying to add the following changes to the pop_profile.asp as per the private message mod readme file -
If strDBNTUserName <> "" and Trim(rs("M_PMRECEIVE")) = "1" and strPMStatus = "1" Then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>PM User: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & chkString(rs("M_NAME"),"display") & " a Private Message","align=""absmiddle"" hspace=""0""") & " <a href=""privatesend.asp?method=Topic&mname=" & chkString(rs("M_NAME"),"display") & """>" & chkString(rs("M_NAME"),"display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
but it tells to look for the following code at line 148 which i don't have -
if mLev > 2 or rs("M_RECEIVE_EMAIL") = "1" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>E-mail User: </font></b></td>" & vbNewLine
if Trim(rs("M_EMAIL")) <> "" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:openWindow('pop_mail.asp?id=" & rs("MEMBER_ID") & "')"">Click to send an E-Mail</a> </font></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>No address specified...</font></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine
end if
Has anybody else run into this and if so, where would the code go?
Did I miss something somewhere? The forum seems to be running okay.
I hope I am making sense here.
Howard |
Thanks,
Howard
www.vcstechs.com |
Edited by - matrixxx on 20 June 2003 15:00:50 |
|
Topic Locked
