<%@ Language=VBScript %> <% Dim conn, rs Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionTimeout = 20 conn.CommandTimeout = 30 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("fpdb/Invii.mdb") & ";" 'conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("invii.mdb") & ";" Set rs = conn.Execute("SELECT CODICE FROM AZIENDE ORDER BY CODICE;") IF Request.Form("password") <> "" THEN Session("Azienda") = Request.Form("ListBox") Session("CAAF") = Request.Form("chk") Set rs = Server.CreateObject("ADODB.Recordset") 'rs.CursorLocation = 3 ' adUseClient rs.Open "SELECT DESCRIZIONE FROM AZIENDE WHERE CODICE='" + Session("Azienda") + "' AND PASSWORD='" + Request.Form("password") + "'", conn,2,2 If rs.EOF Or rs.BOF then Response.Write "Accesso negato - Password errata!" Response.End Else Session("Descrizione")=rs("DESCRIZIONE") rs.Close Set rs = Nothing conn.close Set conn = Nothing Response.Redirect "CtrPas.asp" End If End If %> <% =Now %> Gestione scarichi

SCARICO DATI

Trasferimento file al CAAF