<% Dim User, GUID Dim intContador User = trim(Request("userID")) Dim loged if IsEmpty(Session("UserId")) OR IsNull(Session("UserId")) Or Session("UserId") = 0 Or Session("LogJuegate") = "N" Then loged = False Else loged = True End If If Not loged AND User="" Then Response.Redirect "/login/RedirectLogin.asp?id=MAHJONG" End If IF Not loged Then If IsEmpty(User) OR isNull(User) OR User = "" OR CheckInvalidUser2( User) Then Call ErrorClear() Call ErrorBackPage(Request.ServerVariables("HTTP_REFERER")) Call ErrorTitle("ERROR AL INGRESAR EL NOMBRE DE USUARIO") Call ErrorAdd("Error en el nombre de Usuario ingresado.") Call ErrorAdd("Recuerda que tu nombre de Usuario no puede ser nulo ni tener menos de cuatro caracteres") Call ErrorAdd("o contener carateres especiales.") Call ResponseRedirectError() End If End If Dim i_user_id, c_login_name, c_server_name, oDataDic Dim i_ganadas, i_perdidas, i_empatadas, i_abandonadas c_server_name = Jgte_Get_Server() Set oDataDic = Server.CreateObject("Scripting.Dictionary") If loged Then i_user_id = Right("0000000000" & Session("UserId"),10) c_login_name = Left(Session("UserLoginName"),15) Call oDictionary_Put( oDataDic, "i_user_id", Session("UserId") ) Call oDictionary_Put( oDataDic, "i_juego_id", 10 ) Call Jgte_Get_Score( oDataDic ) i_ganadas = FormatLng( oDictionary_Get( oDataDic, "i_ganadas") ) i_perdidas = FormatLng( oDictionary_Get( oDataDic, "i_perdidas") ) i_empatadas = FormatLng( oDictionary_Get( oDataDic, "i_empatadas") ) i_abandonadas = FormatLng( oDictionary_Get( oDataDic, "i_abandonadas") ) Else Randomize GUID = User For intContador = 1 To 10 GUID = GUID & CStr(Int((90 - 65 + 1) * Rnd + 65)) Next GUID = Left(GUID, 10) i_user_id = GUID c_login_name = Left(User,14) & "*" i_ganadas = 0 i_perdidas = 0 i_empatadas = 0 i_abandonadas = 0 End If If CheckInvalidUser(i_user_id) Then Call ErrorClear() Call ErrorBackPage(Request.ServerVariables("HTTP_REFERER")) Call ErrorAdd("El nombre de usuario es inválido. Inténtalo con otro que no tenga caracteres especiales.") Call ResponseRedirectError() End If Call Site_Template3( "ASP" ) Sub Page_Contents() %>

•	Ayuda
•	Como jugar
•	Reglas
•	Ranking

Juega más rápido y gratis en Argentina por teléfono

Tel. 5199-9019
Usuario: Juegate - Clave: Juegate

<% End Sub %>