Ultimate Coach Ultimate Coach Ultimate coach
Home | Who is your Ultimate Coach? | What is Life Coaching | How its Done | Testimonials | 0 OR intTotalRecordsPages = 0 Then intTotalRecordsPages = intTotalRecordsPages + 1 'Start position intStartPosition = ((intRecordPositionPageNum - 1) * intPageSize) 'End Position intEndPosition = intStartPosition + intPageSize 'Get the start position intCurrentRecord = intStartPosition Else 'Close rs rsCommon.Close End If 'If there are no records on this page and it's above the frist page then set the page position to 1 If intNumOfPMs = 0 AND intRecordPositionPageNum > 1 Then Response.Redirect("pm_outbox.asp?PN=1" & strQsSID2) 'If active users is enabled update the active users application array If blnActiveUsers Then 'Call active users function saryActiveUsers = activeUsers(strTxtPrivateMessenger & " " & strTxtOutbox, "", "", 0) End If 'SQL Query Array Look Up table '0 = PM_ID '1 = Author_ID '2 = PM_Tittle '3 = PM_Message_Date '4 = Read_Post '5 = Username 'Page to link to for mutiple page (with querystrings if required) strLinkPage = "pm_outbox.asp?" %> Özel Mesaj: Giden <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>
<% = strTxtPrivateMessenger %>
 <% = strMainForumName %><% = strNavSpacer %><% = strTxtPrivateMessenger %>

<% = strTxtSubjectFolder %> <% = strTxtPrivateMessenger & ": " & strTxtOutbox %> <% = strTxtPrivateMessenger & " border="0"><% = strTxtPrivateMessenger & " border="0"><% = strTxtPrivateMessenger & " border="0"><% = strTxtNewPrivateMessage %>
 
<% 'Check there are PM messages to display If intNumOfPMs = 0 Then 'If there are no pm messages to display then display the appropriate error message Response.Write(vbCrLf & " ") 'Else there the are topic's so write the HTML to display the topic names and a discription Else 'Do....While Loop to loop through the recorset to display the forum members Do While intCurrentRecord < intEndPosition 'If there are no member's records left to display then exit loop If intCurrentRecord >= intNumOfPMs Then Exit Do 'SQL Query Array Look Up table '0 = PM_ID '1 = Author_ID '2 = PM_Tittle '3 = PM_Message_Date '4 = Read_Post '5 = Username %> "> <% 'Move to the next record intCurrentRecord = intCurrentRecord + 1 'Loop back round Loop End If %>
<% = strTxtRead %> <% = strTxtMessageTitle %> <% = strTxtMessageTo %> <% = strTxtDate %>

" & strTxtNoPrivateMessages & " " & strTxtOutbox & "

<% If CBool(sarryPmMessage(4,intCurrentRecord)) = False Then Response.Write("") Else Response.Write("") End If %> <% Response.Write("" & formatInput(sarryPmMessage(2,intCurrentRecord)) & "") %> <% = sarryPmMessage(5,intCurrentRecord) %> <% Response.Write(DateFormat(sarryPmMessage(3,intCurrentRecord)) & " " & strTxtAt & " " & TimeFormat(sarryPmMessage(3,intCurrentRecord))) %>
<% Response.Write(strTxtMessagesInOutBox) %>
<% = strTxtUnreadMessage %> <% = strTxtUnreadMessage %>  <% = strTxtReadMessage %> <% = strTxtReadMessage %>


<% 'Clear server objects Call closeDatabase() '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Bulletin Board Software by Web Wiz Forums version " & strVersion & "") Else Response.Write("") End If Response.Write("
Copyright ©2001-2006 Web Wiz Guide") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Display the process time If blnShowProcessTime Then Response.Write "

" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "" %>