<%@ language = VBScript %>
<% Server.ScriptTimeout = 300 %>
<% 'Response.Write("Domanda20062007.asp") %>
<%
Session("InsMatricola") = Session("UTENTE") '26629900
Session("InsSede") = Session("sede") '720000
SQLQuery = "SELECT * from TSedi a"
SQLQuery = SqlQuery & " where a.codicesap = '" & Session("sede")& "'"
set rs = ConnVega.execute(SQLQuery)
''Campi di Session :
Session("InsDescSede") = rs("DESL SEDE") '720000
'---------------------------------------------------------------------------------------
'Inizializza all'inizio tutte le variabili come se fosse il dipendente ad acquisire
Session("DipMatricola") = Session("InsMatricola")
Session("DipSede") = Session("InsSede")
Session("DipDescSede") = Session("InsDescSede")
SQLQuery = "SELECT * from TPERSANAG"
SQLQuery = SqlQuery & " where MATRANAG = '" & Session("InsMatricola")& "'"
set rsTPERSANAG = ConnVega.execute(SQLQuery)
Session("InsCognome") = rsTPERSANAG("COGNOME")
Session("InsNome") = rsTPERSANAG("NOME")
Session("InsCF") = rsTPERSANAG("CODFIS")
Session("DipCognome") = rsTPERSANAG("COGNOME")
Session("DipNome") = rsTPERSANAG("NOME")
Session("DipCF") = rsTPERSANAG("CODFIS")
'---------------------------------------------------------------------------------------
select case Session("livello_abilitazione")
case "AG" Response.Redirect("DomandaAmministratori.asp") 'Amministratori
'case "NC"
case "NG" Response.Redirect("DomandaAmministratori.asp") 'Gestori Nazionali
'case "RC"
case "RG" Response.Redirect("DomandaSegreteria.asp")
'case "PC"
case "PG" Response.Redirect("DomandaSegreteria.asp")
'case "SC"
case "SG" Response.Redirect("DomandaSegreteria.asp")
case "SI" Response.Redirect("DomandaInizio.asp")
case else Response.Redirect("DomandaInizio.asp")
end select
%>