[an error occurred while processing this directive] <% 'Response.write (Session("UserID")) If (Session("UserID"))="" Then Response.Redirect "../login.asp?error=1&page_url="&request("page_url") ElseIf session("userID")<>"" then Dim pduser set pduser = CreateObject("Adodb.Recordset") pduser.open "select * from members where ID=" & session("userID") & " and paid=true", objconn, 3, 3 if pduser.eof then Response.Redirect "../paynow.asp?msg=mail" end if End If %> Welcome TO Tantra Connection
New Page 1
button3 <% 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
















ASHITOSH INTERNATIONAL

ARTICLES |  FAQ | HEAL | TESTIMONIALS | SUCCESS STORIES

 VISION | TELL YOUR FRIENDS  | RATE US
 

©Copyright 2003 TantraConnection.com

Best viewed at 1024 x 800 pixels.
Contact Webmaster