<%@Language = VBScript%>
<% 'Option Explicit %>
<%
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
If request("f")="m" then
cn.open strConn
'decodifica codice biblioteca
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 ="SELECT * FROM biblioteche WHERE id_biblioteca=" & request("VarB6")
rs2.Open sql2, cn, 1, 3, adCmdText
nome_b=Rs2("nome_esteso")
email_b=Rs2("email")
rs2.Close
Set rs2 = Nothing
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
set iMsg = Server.CreateObject("CDO.Message")
set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'27/10/2004 r0xing more and more..
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 'cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")= "c:\Inetpub\mailroot\pickup"
.Update
End With
'ex sartoris ^_^
'With Flds
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "150.145.48.8"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
' .Update
'End With
Scegli=request.Form("Scegli")
With iMsg
Set .Configuration = iConf
'.To = "guerrino.dimassa@eco.unipmn.it"
.To = "DocumentDelivery@bess-piemonte.it, " & email_b
.From = "DocumentDelivery@bess-piemonte.it"
.Subject = "Document Delivery by www.bess-piemonte.it"
html=html & "Document Delivery by www.bess-piemonte.it
"
html=html & "e-mail generato automaticamente dal sito www.bess-piemonte.it
"
html=html & "Data e Ora Richiesta: " & Now() & "
"
if(instr(Scegli,"Altre")) then
html=html & "Ente/Biblioteca: " & request("Var11") & " " & request("Var12") & "
"
html=html & "Responsabile: " & request("Var13") & "
"
html=html & "Cittā, Cap " & request("Var15") & " " & request("Var16") & " " & "
"
html=html & "Telefono: " & request("Var17") & "
"
html=html & "Fax: " & request("Var18") & "
"
html=html & "Email: " & request("Var19") & "
"
else
html=html & "Nome e Cognome: " & request("Var1") & " " & request("Var2") & "
"
html=html & "Indirizzo: " & request("Var3") & "
"
html=html & "Cittā, Cap, PV: " & request("Var4") & " " & request("Var5") & " " & request("Var6") & "
"
html=html & "Telefono: " & request("Var7") & "
"
html=html & "Email: " & request("Var8") & "
"
html=html & "Professione: " & request("Var9") & "
"
html=html & "Biblioteca Appartenenza: " & request("Var10") & "
"
end if
html=html & "Autore: " & request("VarB1") & "
"
html=html & "Titolo Articolo: " & request("VarB2") & "
"
html=html & "Titolo Rivista: " & request("VarB3") & "
"
html=html & "Fascicolo: " & request("VarB4") & "
"
html=html & "Pagine: " & request("VarB5") & "
"
html=html & "Biblioteca: " & nome_b & "
"
.htmlBody = html
'and now let's rock&roll
on error resume next
.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "La tua richiesta non č andata a buon fine per il seguente errore: " & Err.Description & ""
response.write Err_Msg
End if
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Var1=replace(request("Var1"),"'","''")
Var2=replace(request("Var2"),"'","''")
Var3=replace(request("Var3"),"'","''")
Var4=replace(request("Var4"),"'","''")
Var5=replace(request("Var5"),"'","''")
Var6=replace(request("Var6"),"'","''")
Var7=replace(request("Var7"),"'","''")
Var8=replace(request("Var8"),"'","''")
Var9=replace(request("Var9"),"'","''")
Var10=replace(request("Var10"),"'","''")
Var11=replace(request("Var11"),"'","''")
Var12=replace(request("Var12"),"'","''")
Var13=replace(request("Var13"),"'","''")
Var14=replace(request("Var14"),"'","''")
Var15=replace(request("Var15"),"'","''")
Var16=replace(request("Var16"),"'","''")
Var17=replace(request("Var17"),"'","''")
Var18=replace(request("Var18"),"'","''")
Var19=replace(request("Var19"),"'","''")
VarB1=replace(request("VarB1"),"'","''")
VarB2=replace(request("VarB2"),"'","''")
VarB3=replace(request("VarB3"),"'","''")
VarB4=replace(request("VarB4"),"'","''")
VarB5=replace(request("VarB5"),"'","''")
VarB6=replace(nome_b,"'","''")
Set rs = Server.CreateObject("ADODB.Recordset")
if(instr(Scegli,"Altre")) then
sql = "INSERT INTO docdelivery ([ente-altri], [biblioteca-altri], [responsabile-altri], [indirizzo-altri] , [cittā-altri], [cap-altri] , [telefono-altri], [fax-altri], [email-altri], autore, articolo, rivista, fascicolo, pagine, biblioteca_riv, data) VALUES ('" & Var11 & "', '" & Var12 & "', '" & Var13 & "', '" & Var14 & "', '" & Var15 & "', '" & Var16 & "', '" & Var17 & "', '" & Var18 & "', '" & Var19 & "', '" & VarB1 & "', '" & VarB2 & "', '" & VarB3 & "', '" & VarB4 & "', '" & VarB5 & "', '" & VarB6 & "', '" & Now() & "')"
else
sql = "INSERT INTO docdelivery (nome, cognome, indirizzo, cittā, cap, provincia, telefono, email, professione, biblioteca, autore, articolo, rivista, fascicolo, pagine, biblioteca_riv, data) VALUES ('" & Var1 & "', '" & Var2 & "', '" & Var3 & "', '" & Var4 & "', '" & Var5 & "', '" & Var6 & "', '" & Var7 & "', '" & Var8 & "', '" & Var9 & "', '" & Var10 & "', '" & VarB1 & "', '" & VarB2 & "', '" & VarB3 & "', '" & VarB4 & "', '" & VarB5 & "', '" & VarB6 & "', '" & Now() & "')"
end if
'response.write sql
rs.Open sql, cn, 3, 3
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
.:Bess:. Invio Document Delivery
La vostra richiesta č stata inoltrata correttamente.
Grazie.
<%
response.end
End If
cn.open strConn
%>
.:Bess:. Modulo di richiesta di Document Delivery
ATTENZIONE:
I campi contrassegnati da asterisco sono obbligatori (Le richieste senza i dati obbligatori non verranno considerate).
IL SOTTOSCRITTO:
1) DICHIARA CHE IL MATERIALE VERRA' UTILIZZATO ESCLUSIVAMENTE A SCOPO DI STUDIO;
2) AUTORIZZA IL TRATTAMENTO DEI PROPRI DATI PERSONALI PER GLI SCOPI CONNESSI ALLO SVOLGIMENTO DEI SERVIZI RICHIESTI, AI SENSI DELLA LEGGE 675/1996.
