<%Response.Buffer = true%> <%Source = Request.QueryString("Source") 'if Session("PlayerID") <> "" and Session("Name")<>"" and Session("Guest")<>""then Page = "Rooms.asp" 'Page ="Member.asp" 'else ' Page = "Member.asp" 'end if '---12/11/00--to add number of players in each game------ 'for tawla set recset = DBase.GetTablesInfo(48) TawlaPlayers = 0 if recset.RecordCount> 0 then recset.MoveFirst for i = 1 to recset.RecordCount HumanPlayers=0 'SeatsNo = 0 'PCPlayers=0 set URecset = DBase.GetUsersTablesInfo(CInt(RecSet.Fields("ID")),,,,1) HumanPlayers = Urecset.RecordCount URecset.close 'if Recset.fields("status") = 1 then ' HumanPlayers = HumanPlayers + 1 ' end if 'set URecset = DBase.GetUsersTablesInfo(CInt(RecSet.Fields("ID")),,,,2) 'PCPlayers = Urecset.RecordCount 'SeatsNo = recset.Fields("NumberOfSeats") 'if cint(IDleUsers) > SeatsNo then ' IDleUsers = SeatsNo 'end if 'KomiPlayers =abs( cint(KomiPlayers) + cint(SeatsNo) - cint(IDleUsers)- cint(PCPlayers)) TawlaPlayers =abs( cint(TawlaPlayers) + cint(HumanPlayers)) 'URecset.close recset.MoveNext next end if recset.close 'for tarneeb set recset = DBase.GetTablesInfo(8) TarneebPlayers = 0 if recset.RecordCount> 0 then recset.MoveFirst for i = 1 to recset.RecordCount HumanPlayers=0 'SeatsNo = 0 'PCPlayers=0 set URecset = DBase.GetUsersTablesInfo(CInt(RecSet.Fields("ID")),,,,1) HumanPlayers = Urecset.RecordCount URecset.close 'if Recset.fields("status") = 1 then ' HumanPlayers = HumanPlayers + 1 ' end if 'set URecset = DBase.GetUsersTablesInfo(CInt(RecSet.Fields("ID")),,,,2) 'PCPlayers = Urecset.RecordCount 'SeatsNo = recset.Fields("NumberOfSeats") 'if cint(IDleUsers) > SeatsNo then ' IDleUsers = SeatsNo 'end if 'KomiPlayers =abs( cint(KomiPlayers) + cint(SeatsNo) - cint(IDleUsers)- cint(PCPlayers)) TarneebPlayers =abs( cint(TarneebPlayers) + cint(HumanPlayers)) 'URecset.close recset.MoveNext next end if recset.close 'for Estimation set recset = DBase.GetTablesInfo(51) EstimationPlayers = 0 if recset.RecordCount> 0 then recset.MoveFirst for i = 1 to recset.RecordCount HumanPlayers=0 'SeatsNo = 0 'PCPlayers=0 set URecset = DBase.GetUsersTablesInfo(CInt(RecSet.Fields("ID")),,,,1) HumanPlayers = Urecset.RecordCount URecset.close 'if Recset.fields("status") = 1 then ' HumanPlayers = HumanPlayers + 1 ' end if 'set URecset = DBase.GetUsersTablesInfo(CInt(RecSet.Fields("ID")),,,,2) 'PCPlayers = Urecset.RecordCount 'SeatsNo = recset.Fields("NumberOfSeats") 'if cint(IDleUsers) > SeatsNo then ' IDleUsers = SeatsNo 'end if 'KomiPlayers =abs( cint(KomiPlayers) + cint(SeatsNo) - cint(IDleUsers)- cint(PCPlayers)) EstimationPlayers =abs( cint(EstimationPlayers) + cint(HumanPlayers)) 'URecset.close recset.MoveNext next end if recset.close 'for komi set recset = DBase.GetTablesInfo(54) KomiPlayers = 0 if recset.RecordCount> 0 then recset.MoveFirst for i = 1 to recset.RecordCount HumanPlayers=0 'SeatsNo = 0 'PCPlayers=0 set URecset = DBase.GetUsersTablesInfo(CInt(RecSet.Fields("ID")),,,,1) HumanPlayers = Urecset.RecordCount URecset.close 'if Recset.fields("status") = 1 then ' HumanPlayers = HumanPlayers + 1 ' end if 'set URecset = DBase.GetUsersTablesInfo(CInt(RecSet.Fields("ID")),,,,2) 'PCPlayers = Urecset.RecordCount 'SeatsNo = recset.Fields("NumberOfSeats") 'if cint(IDleUsers) > SeatsNo then ' IDleUsers = SeatsNo 'end if 'KomiPlayers =abs( cint(KomiPlayers) + cint(SeatsNo) - cint(IDleUsers)- cint(PCPlayers)) KomiPlayers =abs( cint(KomiPlayers) + cint(HumanPlayers)) 'URecset.close recset.MoveNext next end if recset.close set recset = nothing set URecset = nothing %> <% ' ***************** to Write UsersLog File **************************** ua = Request.ServerVariables("HTTP_USER_AGENT") os = Request.ServerVariables("HTTP_UA_OS") If Instr(ua, "MSIE") Then If Instr(ua, "MSIE 5.") Then Browser = "Microsoft Internet Explorer 5.x" Elseif Instr(ua, "MSIE 4.") Then Browser = "Microsoft Internet Explorer 4.x" Elseif Instr(ua, "MSIE 3.") Then Browser = "Microsoft Internet Explorer 3.x" If Instr(ua, "MSIE 3.02") Then Browser = "Microsoft Internet Explorer 3.02" End If Else Browser = "Microsoft Internet Explorer" End If ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then If Instr(ua, "Mozilla/4") Then Browser = "Netscape Navigator 4.x" Elseif Instr(ua, "Mozilla/3") Then Browser = "Netscape Navigator 3.x" Else Browser = "Netscape Navigator" End If End If If Instr(ua, "Windows 95") or Instr(ua, "Win95") Then System = "Windows 95" Elseif Instr(ua, "Windows 98") or Instr(ua, "Win98") Then System = "Windows 98" Elseif Instr(ua, "Windows 3.1") or Instr(os, "Win16") Then System = "Windows 3.x/Windows NT 3.x" Elseif Instr(ua, "NT") or Instr(oa, "NT") Then System = "Windows NT" Elseif Instr(ua, "Mac") Then System = "Mac" If Instr(ua, "PowerPC") or Instr(ua, "PPC") Then System = "Mac PPC" Elseif Instr(ua, "68000") or Instr(ua, "68K") Then System = "Mac 68K" End If Elseif Instr(ua, "X11") Then System = "UNIX" End If TheIP = Request.ServerVariables("Remote_addr") 'Browser 'System 'TheIP set logfilesys = createobject("Scripting.FileSystemObject") set logfile = logfilesys.OpenTextFile("c:\inetpub\el3abdemo\el3ablog\UsersLog.txt",8,true) logfile.Write("Date:, " & Date & ", Time:, " & Time & ", IP: ," & TheIP & ", Page:, Default, " & " ,System:, " & System & ", Browser:, " & Browser & vbCrLf) logfile.close ' ********************************************************************** %> El3ab Play Free traditional Middle Eastern Games on-line interact and chat with Arab players everywhere <%ReqPage = Request.ServerVariables("SCRIPT_NAME") Session("requestedpage")= ReqPage%>

<% dim AD_ID AD_ID = Display_AD() if AD_ID <> "-1" then Impressions_Update AD_ID %>



<%'if Session("Online")= 1 then if cint(Online) = 1 or cint(Online) = 2 then Session("Online") = 0 %>

User is online right now,Please try again <%'elseif Session("Online")= -1 then elseif cint(Online) = -1 then Session("Online") = 0 %>

Invalid User Name or Password,Please try again

<%end if%>
Forgot your password
First time here?
<%if Session ("Name")= "" or Source="logout" then%> <%else%> <%end if%> <%if Session ("Name")= "" or Source="logout" then%> <%else%> <%end if%> <%if Session ("Name")= "" or Source="logout" then%> <%else%> <%end if%> <%if Session ("Name")= "" or Source="logout" then%> <%else%> <%end if%>

Copyright © 2000 el3ab.com. All Rights Reserved.