<%
Dim cn : Set cn = Server.CreateObject("ADODB.Connection")
Dim strConn : strConn = "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("bess.mdb")&";PWD=password"
Dim rs, rs2
Dim sql, pag, iCount, i, admin
cn.open strConn
session.timeout = 60
admin=0:id=0:nomeb=""
If request("f")="lgi" then
'VERIFICO BIBLIOTECA
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * FROM biblioteche WHERE user='" & request("user") & "' AND pass='" & request("pass") & "'"
rs.Open sql, cn, 1, 3, adCmdText
IF rs.EOF THEN
admin=0:id=0:nomeb=""
ELSE
admin=1:id=rs("id_biblioteca"):nomeb=rs("nome_esteso")
END IF
rs.close
Set rs = Nothing
'VERIFICO SUPERUSER
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * FROM config"
rs.Open sql, cn, 3, 3, adCmdText
IF request("user")=rs("user") AND request("pass")=rs("pass") THEN
admin=2:id=0:nomeb="Amministratore"
END IF
rs.close
Set rs = Nothing
session("admin") = admin
session("id") = id
session("biblio") = nomeb
End If
If request("f")="lgo" then
session("admin") = "0"
session("id") = "0"
session("biblio") = ""
'Response.Redirect "index.htm"
End If
If request("f")="imp" then
Const adOpenStatic = 3
Const adLockPessimistic = 2
Dim cnnExcel
Dim rstExcel
Dim iCols
Dim path_EXL
path_EXL="novara.xls"
If request("chk_del")="on" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="DELETE * FROM catalogo"
rs.Open sql, cn, 3, 3, adCmdText
Set rs = Nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="DELETE * FROM possessori"
rs.Open sql, cn, 3, 3, adCmdText
Set rs = Nothing
Else
End IF
Set cnnExcel = Server.CreateObject("ADODB.Connection")
cnnExcel.Open "DBQ=" & Server.MapPath(path_EXL) & ";" & "DRIVER={Microsoft Excel Driver (*.xls)};"
' Same as any other data source.
' FYI: TestData is my named range in the Excel file
Set rstExcel = Server.CreateObject("ADODB.Recordset")
rstExcel.Open "SELECT * FROM [Foglio1$]", cnnExcel
' Get a count of the fields and subtract one since we start
' counting from 0.
iCols = rstExcel.Fields.Count
rstExcel.MoveFirst
' Loop through the data rows showing data in an HTML table.
Do While Not rstExcel.EOF
'cerca codice issn -> se non presente aggiungi rivista
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 ="SELECT * FROM catalogo WHERE codice='" & trim(rstExcel.Fields.Item(0).Value) & "'"
rs2.Open sql2, cn, 1, 3, adCmdText
If rs2.EOF then
rs2.Addnew
rs2("codice")=trim(rstExcel.Fields.Item(0).Value)
rs2("rivista")=rstExcel.Fields.Item(1).Value
rs2("editore")=rstExcel.Fields.Item(2).Value
rs2("link")=rstExcel.Fields.Item(3).Value
Else
rs2("rivista")=rstExcel.Fields.Item(1).Value
rs2("editore")=rstExcel.Fields.Item(2).Value
rs2("link")=rstExcel.Fields.Item(3).Value
End If
rs2.Update
'verifica possesso, se non presente aggiungi
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql2 ="SELECT * FROM possessori WHERE id_biblioteca=" & trim(rstExcel.Fields.Item(4).Value) & " AND id_catalogo=" & rs2("id_catalogo")
rs3.Open sql2, cn, 1, 3, adCmdText
If rs3.EOF then
rs3.Addnew
rs3("id_biblioteca")=trim(rstExcel.Fields.Item(4).Value)
rs3("id_catalogo")=rs2("id_catalogo")
rs3("disp_da")=rstExcel.Fields.Item(5).Value
rs3("disp_a")=rstExcel.Fields.Item(6).Value
rs3("lacune")=rstExcel.Fields.Item(7).Value
rs3("nota")=rstExcel.Fields.Item(8).Value
Else
rs3("disp_da")=rstExcel.Fields.Item(5).Value
rs3("disp_a")=rstExcel.Fields.Item(6).Value
rs3("lacune")=rstExcel.Fields.Item(7).Value
rs3("nota")=rstExcel.Fields.Item(8).Value
End If
rs3.Update
rs3.Close
Set rs3 = Nothing
rs2.Close
Set rs2 = Nothing
'Response.Write "
" & vbCrLf
'For I = 0 To iCols - 1
' Response.Write "