<% Option Explicit Dim sql,username,rsUser,rsMessages,newcount,totalcount,db,rs,usercount,se,cn username = Request.Cookies("username") 'If the username cookie is set, they must have logged in, so get their details from the database if username <> "" then %> <% se=request("se") if se="" then se=username end if %> <% sql = "SELECT icon FROM Users WHERE username = '" & username & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'" Set rsMessages = Server.CreateObject("ADODB.Recordset") rsMessages.Open sql, conn, 3, 3 newcount = 0 totalcount = 0 if not rsMessages.EOF then do until rsMessages.EOF totalcount = totalcount + 1 if rsMessages("messageread") = False then newcount = newcount + 1 end if rsMessages.Movenext loop rsMessages.Movefirst end if end if %> Firegamez Community v.3.0

 
Firegamez Community

Start<%if username <> "" then Response.Write("
Inbox") end if%>
Fire Forum
Chat
Egen sida <%if username <> "" then Response.Write("
Klotterplank") end if%>
<%if username <> "" then Response.Write("Logga ut") end if%>

Firegamez Community v.3.0 <%'If they're not logged in, then display a login box if username = "" then%> <%'If they are, show a mini profile box plus a sign out link else%> <%rsUser.close set rsUser = nothing rsMessages.close set rsMessages = nothing conn.close set conn = nothing end if%>
Logga in
Användarnamn :
Lösenord :          
Kom ihåg mig :

Jag har glömt mitt lösenord
-
Bli medlem
Välkommen
.gif" width=50 height=50 align="right"> Välkommen <%=username%>

Visa/ÄndraProfil
Mina inlägg
Dagbok
Gästbok
Visa medlems lista
Min Inbox (<%=newcount%> nya, <%=totalcount%> totala)
Logga ut

Nyheter

Välkommen till Firegamez Community! Det kommer att komma mer funktioner med tiden! Får se om jag får den att fungera. Den nyaste funktionen är ladda upp foto! Just nu jobbar vi med poäng och små saker!!

Om ni kryssar i "Kom ihåg mig", så kommer vi som sagt komma ihåg dig! Då är du in loggad varje gång du kommer till Firegamez! (Klicka bara i den om ni sitter vid din egna dator! Om du klickar i det t.ex på en skol dator, så kommer alla in på din profil!) Så hoppas ni får det bra här på Firegamez!

Denna sida fungerar bäst i 800x600

Kontakta Firegamez | Om Firegamez


 
  Powered by beta v3.0

© 2002 Firegamez