<%
'#############################################################################################
'####
'#### Script : Mercatino V.1.0
'####
'#### Copyright (C) 2002 Roberto Gallo Marchiando
'####
'#### Authore: Roberto Gallo Marchiando
'#### E-mail: webmaster@freepuntonet.com
'#### Web: http:www.freepuntonet.com
'#### Date: 26/05/2002
'#### Linguaggio : ASP (vbscript)
'#### Licenza: Script di libero utilizzo e può essere distribuito liberamente.
'#### A patto che queste linee di testo restino intatte.
'####
'#############################################################################################
'####
'#### Informazione legale...
'####
'#### FreePuntoNet.com Declina ogni responsabilità in caso di danno di qualsiasi natura,
'#### a danni diretti, indiretti.
'#### Pertanto se lei decide di usare questo script sul suo sito web accetta automaticamente
'#### di assumersi le sue responsabilità.
'####
'#### Se lei non è d'accordo su quando è stato detto non usi il mio codice sul suo sito web.
'####
'#### Per problemi rigurdanti lo script contattare:
'#### webmaster@freepuntonet.com
'####
'##############################################################################################
Username= Request.Form("Username")
passw = Request.Form("passw")
function VerificaApostrofo(stringa)
VerificaApostrofo = Replace(stringa, "'","''")
end function
passw = VerificaApostrofo(passw)
Username= VerificaApostrofo(Username)
sql = "SELECT Username, passw FROM utenti WHERE Username = '" & Username & "' AND passw = '" & passw & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3
If (not rsUser.BOF) and (not rsUser.EOF) then
Response.Cookies("Username") = rsUser("Username")
Response.Cookies("Username").expires = Now()+1
rsUser.close
rsUser.open "Utenti WHERE username= '" & username & "'", conn, 3, 3
rsUser("UtenteAttivo") = True
rsUser.Update
rsUser.close
set rsUser= nothing
conn.close
set conn = nothing
Response.Redirect("pannello.asp")
end if
rsUser.close
set rsUser = nothing
%>
Verifica Login..
Navigazione
:Modulo
: Login
Utente
Messaggio
di errore
Attenzione:
Questa
area è riservata solo agli iscritti al nostro Mercatino
Iscriversi è gratuito,
e ti permette di avere accesso all’inserimento dei tuoi
Annunci
Questa
area è riservata solo agli iscritti al nostro Mercatino
Iscriversi è gratuito,