<%
Response.buffer=True
%>

<!-- #include virtual="adovbs.inc"-->

<%
	if Len(Session("UserID"))=0 then Response.Redirect "error1.asp"
	
%><!-- #include file="openconnection.asp"-->

<%
'Response.write (Session("UserID"))
If (Session("UserID"))="" Then

Response.Redirect "../login.asp?error=1"

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=chat"
	end if
End If


%>
[an error occurred while processing this directive]
<%


Dim MyPWD
Dim Conn
Dim connStr
Dim Sql
Dim RS
Dim Rows
Dim sRoom
Dim gName
Dim gCnt
Dim PWD
Dim Views
Dim RefreshRate
Dim RoomArray()
Dim SetCnt
Dim Chat_List()
Dim Chat_Rooms()
Dim i
Dim x
Dim Loggout
Dim ChatCnt
Dim Ncnt
Dim Notify()
Dim rsuser,errmsg

Ncnt = 0

Session("Loggout")= False
Set conn = Server.CreateObject("ADODB.Connection")
'connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(MyCon)
'Conn.Open connStr
Conn.Open("dsn=tantraco-tantra")

If Len(Application("User_Cnt")) = 0 Then
	Application("User_Cnt") = 0
End If

'// Check the Application("Notify") array for null entries
If IsArray(Application("Notify")) Then
	For i = 0 to Ubound(Application("Notify"))
		If Len(Trim(Application("Notify")(i))) > 0 Then
			Ncnt=Ncnt + 1
		End If
	next

	If Ncnt > 0 Then
		ReDim Notify(Ncnt-1)
		For i = 0 to Ubound(Application("Notify"))
			If Len(Trim(Application("Notify")(i))) > 0 Then
				Notify(i) = Application("Notify")(i)
			End If
		next
	Else
		Redim Notify(-1)
	End If
	Application.Lock
	Application("Notify")=Notify
	Application.UnLock

End If

'/////////////////////////////////////////////////////////////
'// use these to clear the appliation variables for testing //
'/////////////////////////////////////////////////////////////
Application("Rooms_Cnt")=0
'Application("Chat_List")=""
'Application("User_Cnt") = 0
'Application("Notify")=""

If Len(Application("Rooms_Cnt"))= 0 Then
	Application("Rooms_Cnt") = 0
End If	

Set rsuser=Server.CreateObject("Adodb.recordset")
rsuser.activeconnection=Conn
rsuser.locktype=2
if Len(Session("UserID"))>0 then
	rsuser.open("Select * from Members where ID="&Session("UserID"))
	if not rsuser.eof then
	gName=rsuser("nickname")
				MyPWD=rsuser("Password")
				
				response.cookies("Chat") ("User") = gName
				response.cookies("Chat") ("PWD")  = MyPWD
				Response.Cookies("Chat").Expires = Date + 365
		else
		errmsg="Unauthorized Access."
		response.redirect"error.asp?Error="&errmsg&""
			
	end if 
	rsuser.close
	else
	response.redirect "error1.asp"
	end if

If Application("Rooms_Cnt") = 0 Then
'//////////////////////////////////////////////
'// Update Application("Chat_Rooms") Variable //
'// from the database.                        //
'//////////////////////////////////////////////
	 
Sql="SELECT * From Rooms Order By Room;"

Set RS=Server.CreateObject("ADODB.Recordset")

RS.Open Sql, Conn, 3, 3

Rows=RS.RecordCount
Application("Rooms_Cnt")= Rows

ReDim  RoomArray((Rows-1),3)

SetCnt = 0

Do While Not RS.EOF

	RoomArray((SetCnt),(0)) = RS("Room")
	RoomArray((SetCnt),(1)) = RS("MaxUser")
	RoomArray((SetCnt),(2)) = RS("Catagory")
	RoomArray((SetCnt),(3)) = "0"
	SetCnt=SetCnt + 1
RS.MoveNext
Loop
Application.Lock
Application("Chat_Rooms")= RoomArray
Application.UnLock

RS.Close
Conn.Close
Set RS=Nothing
Set Conn=Nothing

Else

'///////////////////////////////////////////////
'// Check for error in chatroom user count    //
'// of the application("Chat_Rooms") variable //
'// This function is just incase there was a  //
'// problem when a user left the room         //  
'///////////////////////////////////////////////
ReDim Chat_Rooms(Ubound(Application("Chat_Rooms")),3)

for i = 0 to Ubound(Chat_Rooms)
	ChatCnt = 0 
	Chat_Rooms(i,0) = Application("Chat_Rooms")(i,0)
	Chat_Rooms(i,1) = Application("Chat_Rooms")(i,1)
	Chat_Rooms(i,2) = Application("Chat_Rooms")(i,2)

	If Len(Application("User_Cnt")) > 0 And Application("User_Cnt") > 0 Then
		for x = 0 to Ubound(application("Chat_List"))
			If Trim(Application("Chat_List")(x,3)) = Trim(Application("Chat_Rooms")(i,0)) Then
				If DateValue(Application("Chat_List")(x,4)) = Date() Then 
					ChatCnt = ChatCnt + 1
				End If
			End If
		next
	End If

	 Chat_Rooms(i,3) = ChatCnt
Next

Application.Lock
Application("Chat_Rooms")=""
Application("Chat_Rooms")=Chat_Rooms
Application.UnLock
End If

'/////////////////////////////////////////////////////////
'// If there is no chat rooms available show ths message//
'/////////////////////////////////////////////////////////
If Application("Rooms_Cnt")=0 Then
 	Response.write"<P>" & vbcrlf
	Response.write"&nbsp;" & vbcrlf
	Response.write"<P>" & vbcrlf
	Response.write"&nbsp;" & vbcrlf
	Response.write"<P>" & vbcrlf
	Response.write"<Center>" & vbcrlf
	Response.write"No Chat rooms in session, please check back" & vbcrlf
	Response.write"<P>" & vbcrlf
	Response.write"<A href=""../"">Back</A>" & vbcrlf
   Response.write"</Center>" & vbcrlf
	Response.end
 End If


'///////////////////////////////////////////////////////////
'// If there is only 1 chat room send user directly there //
'// and update the Application("Chat_List") and the		 //
'// Application("Chat_Rooms") variables.                  //
'///////////////////////////////////////////////////////////
If Application("Rooms_Cnt") = 1 Then
 	
	Application.Lock
	Session("User")=gName
	Session("PWD")=MyPWD
	Session("Email")=Request.form("nickname")
	Session("Room")=Application("Chat_Rooms")(0,0)

	ReDim Chat_Rooms(UBound(Application("Chat_Rooms")),3)
	
	for x = 0 to UBound(Chat_Rooms)
		Chat_Rooms(x,0) = Application("Chat_Rooms")(x,0)
		Chat_Rooms(x,1) = Application("Chat_Rooms")(x,1)
		Chat_Rooms(x,2) = Application("Chat_Rooms")(x,2)
		If Application("Chat_Rooms")(x,0)=Session("Room") Then
			Chat_rooms(x,3)= Application("Chat_Rooms")(x,3) + 1
		Else
			Chat_rooms(x,3)= Application("Chat_Rooms")(x,3)
		End If
	Next
	
	Application("Chat_Rooms")= Chat_Rooms
	
	Session("Catagory")=Application("Chat_Rooms")(0,2)
	Session("Views")= 10
	Session("RefreshRate")=5

	'*****************************************************
	'** Create/Update the chat users cookie information **
	'*****************************************************

	If Len(Trim(Request.Cookies("ChatUser")("User"))) = 0 Then
		Response.Cookies("ChatUser")("User") = gName
		Response.Cookies("ChatUser")("PWD") = MyPWD
		Response.Cookies("ChatUser")("Email") = Request.form("Email")
		Response.Cookies("ChatUser")("Views") = 10
		Response.Cookies("ChatUser")("RefreshRate") = 5
		Response.Cookies("ChatUser")("rOrder") = "Desc"
		Response.Cookies("ChatUser")("Face") = ""
	End If
	Response.Cookies("ChatUser")("Room") = Application("Chat_Rooms")(0,0)
	Response.Cookies("ChatUser")("Catagory") = Application("Chat_Rooms")(0,2)
	Response.Cookies("ChatUser").expires = Date + 365

	'// Check to see if the user is currently in the Application("Chat_List") Array
	'// If so don't add them again

	StrDontAdd = False
	If IsArray(Application("Chat_List")) Then
		For i = 0 to Ubound(Application("Chat_List"))
	 		If (Trim(Application("Chat_List")(i,0)) = Trim(gName)) And (Trim(Application("Chat_List")(i,1)) = Trim(MyPWD)) Then
				StrDontAdd = True
				Exit For
			Else
				StrDontAdd = False
			End If
		next
	End If

	If StrDontAdd = False Then
	
		If Not IsArray(Application("Chat_List")) Then
			Redim Chat_List(0,4)
			Chat_List(0,0)= gName
			Chat_List(0,1)= MyPWD
			Chat_List(0,2)= Request.form("Email")
			Chat_List(0,3)= Application("Chat_Rooms")(0,0)
			Chat_List(0,4)= Now()
		Else
			ReDim Chat_List((Ubound(Application("Chat_List"))+1),4)
			For i = 0 to Ubound(Application("Chat_List"))
				Chat_List (i,0) = Application("Chat_List")(i,0)
				Chat_List (i,1) = Application("Chat_List")(i,1)
				Chat_List (i,2) = Application("Chat_List")(i,2)
				Chat_List (i,3) = Application("Chat_List")(i,3)
				Chat_List (i,4) = Application("Chat_List")(i,4)
			Next
			Chat_List (i,0) = gName
			Chat_List (i,1) = MyPWD
			Chat_List (i,2) = Request.form("Email")
			Chat_List (i,3) = Application("Chat_Rooms")(0,0)
			Chat_List (i,4) = Now()
		End If
		Application("Chat_List") = Chat_List
		Application("User_Cnt")  = Application("User_Cnt") + 1
		Application.UnLock
	
	End If
	Response.Redirect"chat.asp"
	Response.end
End If


'/////////////////////////////////////////////////////////
'// If there are multple chat rooms show the logon form //
'/////////////////////////////////////////////////////////

%>

<html>
<head>
<title>Select a Room</title>

  <SCRIPT language="JavaScript">

function LogonReq() 
{
	var jumpToHere;
	var winOptions;
	var popUpWindow;
   	
	jumpToHere = "LogonReq.asp";
 	winOptions = "top=100, left=100, width=450, height=350,scrollbars=yes";
 	popUpWindow = open(jumpToHere, "MyWindow", winOptions);
 }
</script>
</head>
<BODY BGCOLOR="ffffec" link="<%=PgLink%>" vlink="<%=Pgvlink%>" alink="<%=Pgalink%>" topmargin=0 leftmargin=0>


<!-- #include file="header.asp" -->
<table>
<tr><td>    <HTML>
<HEAD>
<TITLE>button3</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">

</HEAD>
<%if session("aff_userid")="" then%>
<BODY BGCOLOR=#FFFFFF >
<map name="FPMap0">
<area href="../editmprofile.asp" shape="rect" coords="6, 16, 112, 35">
<area href="../mchangepass.asp" shape="rect" coords="7, 53, 153, 73">
<area href="../forum/default.asp" shape="rect" coords="9, 95, 133, 113">
<area href="../news/default.asp" shape="rect" coords="10, 137, 113, 158">
<area href="../chatroom/rooms.asp" shape="rect" coords="11, 177, 114, 197">
<area href="../umc/default.asp" shape="rect" coords="12, 219, 98, 237">
<area href="../photogallery/default.asp" shape="rect" coords="10, 262, 145, 281">
<area href="../pfinder/default.asp" shape="rect" coords="12, 302, 128, 324">
<area href="../FeaturedURLs.asp" shape="rect" coords="9, 341, 150, 363">
<area href="../logout.asp" shape="rect" coords="11, 464, 93, 482">
<area coords="14, 385, 66, 402" shape="rect" href="../browse.asp">
<area href="../pfinder/onlinesearch1.asp" shape="rect" coords="13, 425, 97, 441">
</map>
<img src="../img/forumsidebar.jpg" usemap="#FPMap0" border="0" width="163" height="500"> </img>
</BODY>
<%else%><HTML>
<HEAD>
<TITLE>button3</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">

</HEAD>
<BODY BGCOLOR=#FFFFFF >
<map name="FPMap0">
<area href="../editmprofile.asp" shape="rect" coords="5, 15, 111, 34">
<area href="../mchangepass.asp" shape="rect" coords="8, 54, 154, 74">
<area href="../news/default.asp" shape="rect" coords="9, 95, 112, 116">
<area href="../FeaturedURLs.asp" shape="rect" coords="7, 133, 148, 155">
<area href="../logout.asp" shape="rect" coords="15, 172, 97, 190">
</map>
<img src="../img/affbar.gif" usemap="#FPMap0" border="0" width="163" height="500"> </img>
</BODY>
</HTML><%end if%>
</HTML> </td>
<td>
<p align="center"><font color="#FFFFFF">
<FONT face="<%=FF%>" color="<%=PgFntClr%>"><B><font size="4">Log On to Room</font></B></FONT><b><font size="4">
<script language="javascript">
function info()
{
if(document.frm.Room.value=="")
{
alert("Select Room")
document.frm.Room.focus()
return false
}
}
</script>
</font></b></font></p>
<FORM name="frm" Action="LogonReq.asp" Method="post" onSubmit="return info()">
<table width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td width="446" >
<img border="0" src="../img/loversmoon.jpg"></td>
<td width="559" ><input type = "hidden" Name="User" Value="<%=gName%>">
	 <input type = "hidden" Name="PWD" Value="<%=MyPWD%>">
	 <input type = "hidden" Name="Email" Value="<%=Request.form("Email")%>">
    <div align="center">
      <center>
    <table width="50%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
    <tr>
  	   <td><center>
       <p><FONT face="<%=FF%>" color="<%=FntClr%>">Join a Room<br>
&nbsp;</font></p>
       </center></td>
	 </tr>
	 <tr>
		<td><center>
		<%
			  Response.write "<Select Name=""Room"">" & vbcrlf
			  Response.write "<Option Selected value="""">Select" & vbcrlf
			  for i = 0 to UBound(Application("Chat_Rooms"))
			  Response.write "<Option value='" & Application("Chat_Rooms")(i,0) & "-" & Application("Chat_Rooms")(i,2) & "'>" & Application("Chat_Rooms")(i,0) & " (Guests " 
			  If Trim(Application("Chat_Rooms")(i,3))="" Then
			  	Response.write "(0)"
			  Else
			  	Response.write "(" & Application("Chat_Rooms")(i,3) & "))"
			  End If
		     Next
 			  Response.write "</Select>"
		%>
				</center>
			</td>
		</tr>
		<tr>
			<td colspan=2>&nbsp;</td>
		</tr>
		<tr>
			<td colspan=2><center>
			<input type = "submit" value="Go">
			<input type="button" value="Back" OnClick="javascript:history.back(1)">
			</center></td>
		</tr>
	</table>
      </center>
</div>
</td>
</tr>
</table>
</form>
</td></tr></table>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ASHITOSH INTERNATIONAL</title>
</head>

<body topmargin="0" leftmargin="0" bgcolor="#000000">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%">
    <p align="center">
            <font size="2">
            <span style="font-family: Verdana; color: #FFFFFF; font-weight: 700">
            <a href="../info/articles.asp"><font color="#FFFFFF">ARTICLES</font></a> </span><font color="#FFCC66">
            <span style="font-family: Verdana; font-weight: 700">| </span>
            </font>
            <span style="font-family: Verdana; color: #FFFFFF; font-weight: 700">&nbsp;<a href="../faq.asp"><font color="#FFFFFF">FAQ</font></a>
            </span><font color="#FFCC66">
            <span style="font-family: Verdana; font-weight: 700">|</span></font><span style="font-family: Verdana; color: #FFFFFF; font-weight: 700"> 
            <a href="../heal.asp"><font color="#FFFFFF">HEAL</font></a>
            </span><font color="#FFCC66">
            <span style="font-family: Verdana; font-weight: 700">|</span></font><span style="font-family: Verdana; color: #FFFFFF; font-weight: 700">
            <a href="../Guestbook/default1.asp"><font color="#FFFFFF">TESTIMONIALS</font></a>
            </span><font color="#FFCC66">
            <span style="font-family: Verdana; font-weight: 700">|</span></font><span style="font-family: Verdana; color: #FFFFFF; font-weight: 700">
            <a href="../success_stories.asp"><font color="#FFFFFF">SUCCESS STORIES</font></a>
            <br>
            <br>
&nbsp;<a href="../vision.asp"><font color="#FFFFFF">VISION</font></a></span><font color="#FFCC66"><span style="font-family: Verdana; font-weight: 700"> |</span></font><span style="font-family: Verdana; color: #FFFFFF; font-weight: 700">
            <a href="../ReferToFriend.asp"><font color="#FFFFFF">TELL YOUR 
            FRIENDS</font></a></span><font color="#FFCC66"><span style="font-family: Verdana; font-weight: 700"> |
            <a href="../review1.asp"><font color="#FFFFFF">RATE US</font></a></span></font><span style="font-family: Verdana; color: #FFFFFF; font-weight: 700"><br>
&nbsp;</span></font></td>
  </tr>
  <tr>
    <td width="100%">
    <p align="center"><b><font size="1" color="#FFFFFF" face="Verdana">
    ŠCopyright 2003 TantraConnection.com</font></b></td>
  </tr>
  <tr>
    <td width="100%">
    <p align="center"><b><font face="Verdana" size="1" color="#FFFFFF">Best 
    viewed at 1024 x 800 pixels.<br>
    <a href="mailto:ratneshku@yahoo.com?cc=planetsexy@aol.com">
    <font color="#FFCC66">Contact Webmaster</font></a></font></b></td>
  </tr>
</table>

</body>

</html>
</body>
</html>