<% Dim userid,fromuser,touser,subject,name,rsmsg,num,rsmem,flag num=1 Set rsmsg=Server.CreateObject("ADODB.RECORDSET") Set rsmsg.ActiveConnection = objConn rsmsg.LockType=3 Set rsmem=CreateObject("ADODB.RECORDSET") rsmem.ActiveConnection=objConn rsmem.LockType=3 'Response.Write Session("UserID") rsmsg.Open("Select * from Members where ID="&Session("UserID")) if not rsmsg.EOF then name=rsmsg("firstname") end if rsmsg.Close %>
Inbox Compose Message Go Back To Member Area Logout

<%=name%>'s Message center

Today  is <%=LongMonthDate(now())%>




<% rsmsg.Open("Select * from Messages where To_user="&Session("UserID")& " Order BY MessageDate Desc" ) if not rsmsg.EOF then do while not rsmsg.EOF if Cint(rsmsg("From_user"))=0 then fromuser="Admin" else if rsmsg("club")=false then rsmem.open("Select * from Members where ID="&rsmsg("From_user")) if not rsmem.eof then fromuser=rsmem("Nickname") end if rsmem.Close else rsmem.open("Select * from Clubs where ID="&rsmsg("From_user")) if not rsmem.eof then fromuser=" Club: "&" "&rsmem("Username") end if rsmem.Close end if end if flag=0 rsmem.Open("Select * from buddies where FreindID="&rsmsg("From_user")&" and MemberID="&Session("UserID")) if not rsmem.EOF then flag=1 end if rsmem.Close if num mod 2 =0 then %> <%if flag=1 then%> <%else%> <%end if%> <%if rsmsg("Read")=true then%> <%else%> <%end if%> <%else%> <%if flag=1 then%> <%else%> <%end if%> <%if rsmsg("Read")=true then%> <%else%> <%end if%> <% end if num=num+1 rsmsg.MoveNext loop %> <%else %> <% end if %>
 
"><%=fromuser%><%=fromuser%>"><%=rsmsg("Subject")%>  "><%=rsmsg("Subject")%><%=SmallMonDate(rsmsg("MessageDate"))%>
"><%=fromuser%><%=fromuser%>"><%=rsmsg("Subject")%>  "><%=rsmsg("Subject")%><%=SmallMonDate(rsmsg("MessageDate"))%>

 

NO Message