<% Option Explicit Dim strSessione, bolAccesso, strSql, objRso, idUtente bolAccesso = False strSessione = Request.Cookies("user") %> <% If strSessione <> "" Then strSql = "SELECT id, bolAdmin " & _ "FROM tblUtenti " & _ "WHERE strSessione = '" & strSessione & "' And bolConferma = True And bolAttivato = True" Set objRso = Server.CreateObject("ADODB.Recordset") objRso.Open strSql, objCon, adOpenKeyset, adLockReadOnly, adCmdText If objRso.Recordcount = 1 Then idUtente = objRso("id") bolAccesso = True If objRso("bolAdmin") = True Then If objRso("id") = 1 Then Session("SuperAdmin") = True Session("admin") = True Session("user") = False Else Session("user") = True Session("admin") = False End If Session("id") = strSessione Response.Cookies("user").Expires = Date() + 60 End If objRso.Close Set objRso = Nothing End If If bolAccesso Then If idUtente <> 1 Then Call WriteStats(idUtente) End If Response.Redirect("index.asp") Else %> Il Gatto e la Volpe Band - Sito di midi, karaoke, software, ecc. - Errore

MENU'

- Home Page
- Photo Gallery
- Baraonda friends
- Samart friends
- Rassegna stampa
- Le nostre basi
- Software Audio
- Software Midi
- Software Vari
- Sezione Video
- Emulatori anni '80
- Faq
- Link


Contatti

- Informazioni
- Alex
- Antonio
- Luciano
- Marco

Guestbook

Lascia un messaggio
nel nostro

ERRORE INTERNO
Possibili cause:
  1. Non avete effettuato il Log-In.
  2. La vostra sessione è scaduta. Effettuate di nuovo il Log-In.
  3. Non siete utenti registrati. Effettuate la registrazione.
  4. Avete disabilitato i cookies.

Hai perso i dati?
Indirizzo E-mail fornito in fase di registrazione:

Posta Elettronica
WebMail
Nome account: 
Password: 

Statistiche
utenti connessi:<%=Application("users")%>

<% End If %>