quote:

---

Any ideas?

---

quote:

---

I have a new problem that just recently started to happen. I recently switched hosts (now on UK host) and am not sure if that is the problem.

My pager still works but it does not page until a long time, like 10 minutes. You can switch between screens in the forum and it will not page. Then about 10 minutes later it will.

Any ideas?

STW

---

quote:

---

I'm confused by your problem. When you say you "page" yourself, you're really sending yourself a private message, right? The PM Pager (when it loads or refreshes) will check to see if you have any new, unread private messages and if so, pop them up in a new window.

You mention that you're not getting the pop-up until you click the "page" link a second time. What link is that?

---

quote:

---

I don't see how it could be related to the server. What happens if you send yourself a PM, then refresh the pager window (F5)??

---

quote:

---

I had this problem, i went through and edited a few lines of code under the pager window. i'll post it here and you can copy it out if you would like.

DigMind

---

 
<%      ' Get Private Message count
	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) as [pmcount] " 
	else
        	strSqL = "SELECT count(M_TO) as pmcount " 
    end if
		strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
		strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
		strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
		strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 " 

	Set rsPM = my_Conn.Execute(strSql)
		pmcount = rsPM("pmcount")
%>


<%	if strDBNTUserName = "" Then %>
		<IMG SRC="icon_pmdead.gif" align=absmiddle border=0 hspace=6> Please Login</font>
<%	else
		if pmcount = 0 then %>
		<IMG SRC="icon_pm.gif" align=absmiddle border=0 hspace=6>(<% =pmcount %>) new messages<A HREF="pm_view.asp" target="_new"></a>.</font>
<%		end if
        if pmcount >= 1 then %>
        <EMBED SRC="newmsg.wav" WIDTH=1 HEIGHT=1 HIDDEN="true" AUTOSTART="true" LOOP="false" volume="100"></EMBED>
<%
      	strSql = "SELECT "   & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME,  " & strTablePrefix & "PM.M_ID,  " & strTablePrefix & "PM.M_TO, " & strTablePrefix & "PM.M_SUBJECT, " & strTablePrefix & "PM.M_SENT, " & strTablePrefix & "PM.M_FROM, " & strTablePrefix & "PM.M_READ "
      	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
      	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
      	strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
      	strSql = strSql & " ORDER BY " & strTablePrefix & "PM.M_SENT DESC" 

      	Set rsMessage = my_Conn.Execute(strSql)


      	i = 0
      		do Until rsMessage.EOF or (i = 3)

	  	strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME,  " & strTablePrefix & "PM.M_ID  "
	  	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
	  	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & rsMessage("M_FROM") & ""

          	Set rsFrom = my_Conn.Execute(strSql)	
          	if rsMessage("M_READ") = "0" then %>
			<script language=javascript>window.open('pm_pop_read.asp?id=<% =rsMessage("M_ID") %>','_blank','width=490,height=340,top=75,left=220,scrollbars=yes')</script>
<%        		i = i + 1
		end if
	    	rsMessage.MoveNext
	    	
       		Loop

%>
        (<font color="<% =strActiveLinkColor %>"><b><% =pmcount %></b></font>) new <% if pmcount = 1 then %>message<% else %>messages<% end if %><A HREF="pm_view.asp" target="_new"></a>.</font>
<%		end if 
	end if %>	
		</td>
	</tr>
	<tr>
	<form name="ReloadFrm" action="pm_pop_pager.asp" method="post"> 	
		<td bgcolor="<% =strForumCellColor %>" height="10" valign="middle" align="right" nowrap>
    			<select name="RefreshTime" size="1" onchange="autoReload();" style="font-size:10px;">
        			<option value="0"  <% if nRefreshTime = "0" then Response.Write(" SELECTED")%>>Don't
        			auto refresh</option>
        			<option value="3"  <% if nRefreshTime = "3" then Response.Write(" SELECTED")%>>30 second 
        			refresh</option>
        			<option value="4.5"  <% if nRefreshTime = "4.5" then Response.Write(" SELECTED")%>>45 second
        			refresh</option>
        			<option value="6" <% if nRefreshTime = "6" then Response.Write(" SELECTED")%>>1 minute
        			refresh</option>
        			<option value="12" <% if nRefreshTime = "12" then Response.Write(" SELECTED")%>>2 minute
        			refresh</option>
        			<option value="30" <% if nRefreshTime = "30" then Response.Write(" SELECTED")%>>5 minute
    	    			refresh</option>
    			</select>
    		</td>	
	<input type="hidden" name="Cookie" value="1">
	</form>
    	</tr>
<% if maxpages > 1 then

 %>