<% Option Explicit Dim sql,username,rsUser,rsMessages,newcount 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 %> <% 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 if not rsMessages.EOF then rsMessages.Movefirst do until rsMessages.EOF if rsMessages("messageread") = False then newcount = newcount + 1 end if rsMessages.Movenext loop rsMessages.Movefirst end if end if %> Homepage


Área de Membros

<%'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 %>
Somente Pessoas Cadastradas
Usuário :
Senha :
Lembrar senha:

Bem vindo de volta!
.gif" width=50 height=50 align="right"> Bem vindo <%=username%>.

Minha caixa de mensagens (<%=newcount%> novas)

Ver/editar perfil

Sair da área de membros