<% response.expires = -100 dim curFunc, curUser, rsChat, UID, curLast, isInUser dim rsRooms, rsUsers, rsPost, curroom, rsCheck, rsSQL dim CreateRoomName, x, TmpRoomName curFunc = request("Func") if curFunc = "" then curFunc = "Login" CreateRoomName = request("CreateRoom") CreateRoomName = replace(CreateRoomName, "'", "`") curroom = request("Room") if curroom = "" or not IsNumeric(curroom) then curroom = 1 Call OpenDB DeleteArchiveDays( ArchiveDays ) rsSQL = "Select room, RoomType From Rooms where RoomType=1" set rsRooms = ChatDB.Execute(rsSQL) while not rsRooms.EOF rsSQL = "Select room, CurDateTime, ID from Chat where room=" & rsRooms("room") & " Order By ID Desc" set rsUsers = ChatDB.Execute(rsSQL) if rsUsers.EOF then rsSQL = "Select room from UserRoom where room=" & rsRooms("room") set rsCheck = ChatDB.Execute(rsSQL) if rsCheck.EOF then DeleteRoom( rsRooms("room") ) end if rsCheck.Close set rsCheck = Nothing else if DateDiff("n", rsUsers("CurDateTime"), Now()) > RoomLifeSpan then DeleteRoom( rsRooms("room") ) end if rsUsers.Close set rsUsers = Nothing end if rsRooms.MoveNext wend rsRooms.Close set rsRooms = Nothing call CloseDB sub WriteHeader %> <% if topframe=true then %> <%end if%> <% End sub Dim msgError select case curFunc case "Login" call WriteHeader if request("User") = "Null" then msgError = "Debes de introducir un nombre válido" & "

" elseif request("User") = "InUse" then msgError = "El nombre que has elegido ya está registrado. Inténtalo con otro." & "

" end if %>

Créate un nombre en clave para participar en el chat de la Nave Tupataleta y sigue las recomendaciones de Infranet. ¡Suerte, Tripulectores! Pon aquí el nombre escogido © Ediciones en Babia, 2003. Aviso Legal Derechos Reservados. ...dentro de la Nave Tupataleta, que está conectada al Gran Ordenador Central que registra la actividad en Infranet, sigue estos consejos: Si quieres participar, tienes que hacerlo como Tripulector, siendo tolerante y pacífico, respetando a los demás participantes y solucionando cualquier diferencia con palabras... ¡que se aprenden leyendo! En la Nave Tupataleta podrás comunicarte con otros Tripulectores, pero recuerda: Invéntate un nombre para identificarte en Infranet, ¡será más divertido! No des datos reales de tu vida en la Zona de la Realidad Real, ¡aquí no hacen falta! Ten dos direcciones de correo: una para todo y otra para cuando estás bien seguro de quién te escribe. Si no te gusta la conversación, desconéctate. ¡Puede tratarse de algún Triple con malas pulgas! Si decides quedar con otros Tripulectores, avisa en casa y no vayas solo. ¡Siempre es mejor! RECUERDA: ahora no estás en la Zona de la Realidad Real, ¡estás en Infranet! Atención.

<% case "CheckLogin" curUser = request("UserName") curUser = replace(curUser, "'", "`") if curUser = "" then response.redirect "index.asp?Func=Login&User=Null&Room=" & curroom & "&CreateRoom=" & Server.URLEncode(CreateRoomName) end if Call OpenDB rsSQL = "SELECT * FROM Users WHERE Username = '" & curUser & "'" set rsChat = ChatDB.Execute(rsSQL) If rsChat.EOF then UID = AddUser( RemoveJunk(curUser), "" ) Else UID = GetUserID( RemoveJunk(curUser) ) End If rsChat.Close set rsChat=Nothing rsSQL = "SELECT * FROM UserRoom WHERE UID=" & UID & " AND Room=" & curroom set rsChat = ChatDB.Execute(rsSQL) If rsChat.EOF then isInUser = false else isInUser = true End If rsChat.Close set rsChat=Nothing if isInUser AND curUser<>OperatorName then 'Call CloseDB rsSQL = "DELETE * From UserRoom where UID=" & UID & " AND room=" & curroom ChatDB.Execute(rsSQL) rsSQL = "SELECT UID from UserRoom where UID=" & UID Set rsChat = ChatDB.Execute(rsSQL) If( rsChat.EOF ) Then rsSQL = "DELETE * From Users where UID=" & UID ChatDB.Execute(rsSQL) End If 'Response.redirect "index.asp?Func=Login&User=InUse&Room=" & curroom & "&CreateRoom=" & Server.URLEncode(CreateRoomName) end if 'else CreateRoomName = Trim(CreateRoomName) TmpRoomName = CreateRoomName if CreateRoomName <> "" then set rsRooms = Server.CreateObject("ADODB.Recordset") rsRooms.Open "Rooms", ChatDB, adOpenForwardOnly, adLockOptimistic, adCmdTable rsRooms.Filter = "RoomName='" & TmpRoomName & "'" if not rsRooms.EOF then x = 1 do while not rsRooms.EOF x = x + 1 TmpRoomName = TmpRoomName & "_" & CStr(x) rsRooms.Filter = "RoomName='" & TmpRoomName & "'" loop CreateRoomName = CreateRoomName & "_" & CStr(x) end if rsRooms.AddNew rsRooms("RoomName") = CreateRoomName rsRooms("RoomType") = 1 rsRooms.Update curroom = rsRooms("room") rsRooms.Close Set rsRooms = Nothing End if rsSQL = "SELECT room FROM Rooms WHERE room=" & curroom Set rsRooms = ChatDB.Execute(rsSQL) If rsRooms.EOF then curroom=1 End if rsRooms.Close Set rsRooms = nothing If Not isInUser then AddUserToRoom UID, curroom End If InsertChat "[Evento " & now() & "] " & curUser & " acaba de entrar.", UID, "", 0, "", 4, GetDateTime(), curroom rsSQL = "SELECT Max(ID) as LastID, room FROM Chat GROUP BY room HAVING room=" & curroom Set rsChat = ChatDB.Execute(rsSQL) If not rsChat.EOF then curLast = rsChat("LastID") Else curLast = 1 End if rsChat.Close Set rsChat = Nothing ChatDB.Close Set ChatDB = Nothing response.redirect "entrar.asp?UID=" & UID & "&room=" & curroom & "&Last=" & curLast 'end if end select %><%' %>