Centro Estero delle Camere di Commercio del Veneto
<%
Dim sQuery, sUtente, sPassw, codeUtente
Dim rsAzienda, sRedirect, objConn, objConnBDU
codeUtente=0
Session("TipoAccesso") = ""
Session("User") = ""
sUtente=ucase(trim(Request.Form("txtLogin")))
sPassw=ucase(trim(Request.Form("txtPassw")))
If Left(sUtente,3)="VEN" Then
If IsNumeric(mid(sUtente,4)) Then codeUtente = Clng(mid(sUtente,4))
End If
'Controllo validità Password
sQuery = "SELECT Codice, Autorizzato FROM Aziende WHERE Login='VEN" & right("00000" & trim(cstr(codeUtente)),5) & "' AND Password='" & sPassw & "'"
Set objConn=ApriConnessione()
Set objConnBDU=ApriConnessioneBDU()
Set rsAzienda = Server.CreateObject("ADODB.Recordset")
rsAzienda.Open sQuery, objConnBDU, adOpenStatic, adLockReadOnly
if rsAzienda.EOF then
rsAzienda.close
sQuery = "SELECT Codice, Autorizzato FROM Enti WHERE Login='VEN" & right("00000" & trim(cstr(codeUtente)),5) & "' AND Password='" & sPassw & "'"
rsAzienda.Open sQuery, objConnBDU, adOpenStatic, adLockReadOnly
end if
if rsAzienda.eof then
rsAzienda.close
sQuery = "SELECT Codice FROM Operatori WHERE Codice='" & sUtente & "' AND Password='" & sPassw & "'"
rsAzienda.Open sQuery, objConn, adOpenStatic, adLockReadOnly
if rsAzienda.eof then
sRedirect="RegistrazioneErr.asp?Errore=8"
else
Session("TipoAccesso") = "Admin"
sRedirect="frmMainAdmin.asp"
End If
else
if rsAzienda("Autorizzato")>0 then
Session("TipoAccesso") = "Standard"
Session("User") = rsAzienda("Codice")
else
sRedirect="RegistrazioneErr.asp?Errore=13"
end if
end if
on error resume next
rsAzienda.Close
set rsAzienda=nothing
ChiudiConnessione(objConn)
ChiudiConnessione(objConnBDU)
if sRedirect<>"" then Response.Redirect sRedirect
%>
Centro Estero CCIAA Veneto
Via delle Industrie, 19/D - Edificio Lybra
Vega - Parco Scientifico Tecnologico
I-30175 Venezia Marghera
tel. (+39) 041.2526211
fax (+39) 041.2526210 ceveneto@centroesteroveneto.com