<%
Dim V_Conta, V_Cod, V_Nome, V_Descrizione, V_Prezzo, V_Foto, V_Nome_Lista, V_Classe, V_Dispo, V_Prenotato, V_email
V_Conta = 0
V_Cod = "A000000001"
V_Dispo = "Y"
'V_Prenotato =" "
' creo le variabili per aggiungere un nuovo record in ADMINS con password e PIN
' creo le variabili per aggiungere un nuovo record in MARCA (Nome della lista)
SQL = "SELECT * from [Foglio1$]"
'strProvider="DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath ("/Public/Upload/Lista.xls")
strProvider="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\inetpub\webs\martinucci-regalicom\public\upload\Lista.xls;Extended Properties=Excel 8.0;"
'strProvider="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\inetpub\webs\martinucci-regalicom\public\upload\Lista.xls;Extended Properties=Excel 12.0;HDR=Yes;IMEX=2\;"
Set rs1 = Server.CreateObject("ADODB.recordset")
rs1.Open SQL,strProvider
response.write ("INIZIO Passaggio DATI") & "
"
Do while not rs1.eof
V_conta = V_conta+1
response.write V_Cod & "
"
response.write rs1("Nome") & "
"
V_Nome = LTrim(rs1("Nome"))
response.write rs1("Descrizione") & "
"
V_Descrizione = LTrim(rs1("Descrizione"))
response.write rs1("Prezzo") & "
"
V_Prezzo = LTrim(rs1("Prezzo"))
response.write rs1("Foto") & "
"
V_Foto = LTrim(rs1("Foto"))
response.write rs1("Marca") & "
"
V_Nome_Lista = LTrim(rs1("Marca"))
response.write rs1("Dispo")& "
"
V_Dispo = LTrim(rs1("Dispo"))
response.write rs1("prenotato")& "
"
V_Prenotato = LTrim(rs1("prenotato"))
response.write rs1("email") & "
"
V_email = LTrim(rs1("Email"))
'##################################################################
' APRO mdb E-commerce.mdb archivio Prodotti e aggiungo nuovo record
'#################################################################
set conn = server.createobject("adodb.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/E-commerce.mdb")
set rs = server.createobject("adodb.recordset")
rs.open "Prodotti", conn, 2, 2
rs.addnew
'########################################
' Aggiungo il contenuto delle variabili
'########################################
rs("Cod") = LTrim(V_Cod)
rs("Nome") = LTrim(V_Nome)
rs("Descrizione") = LTrim(V_Descrizione)
rs("Prezzo") = LTrim(V_prezzo)
rs("Foto") = LTrim(V_Foto)
rs("Marca") = LTrim(V_Nome_Lista)
rs("Classe") = LTrim(V_Classe)
rs("Dispo") = LTrim(V_Dispo)
rs("Prenotato") = LTrim(V_Prenotato)
rs("Email") = LTrim(V_Email)
rs.update
rs.movelast
rs.close
set rs= nothing
set conn = nothing
'Dim ConnDown
'Set ConnDown=Server.CreateObject("ADODB.Connection")
'ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database/e-commerce.mdb")
'Dim SQL1, RECDown
'SQL1 = "INSERT INTO prodotti (Cod, Nome, Descrizione, Prezzo, Foto, Marca, email) VALUES (' "& LTrim(V_cod) &" ',' "& LTrim(rs("Nome")) &" ',' "& LTrim(rs("Descrizione")) &" ',' "& LTrim(rs("Prezzo")) &" ',' "& LTrim(rs("Foto")) &" ',' "& LTrim(rs("Marca")) &" ',' "& LTrim(rs("email")) &" ' )"
'set RECdown = connDown.execute(sql1)
'response.write (SQL1)
rs1.movenext
Loop
rs1.close
set rs1=nothing
'ConnDown.Close
'set ConnDown=nothing
' Inserire creazione lista come crea-nuova-lista2.asp
' dimensionando le variabili
%>
<%
'########################################################################
' APRO mdb E-commerce.mdb archivio MARCA e Creo la Nuova LISTA DI NASCITA
'########################################################################
set conn = server.createobject("adodb.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/E-commerce.mdb")
set rs = server.createobject("adodb.recordset")
rs.open "marca", conn, 2, 2
rs.addnew
'########################################
' Aggiungo il nome della lista di nascita
'########################################
rs("nomeM") = V_nome_lista
rs.update
rs.movelast
rs.close
set rs= nothing
set conn = nothing
%>
<%
dim V_nascita, V_accesso, V_password, V_pin, V_numero, caratteri
V_nascita = "nascita"
V_accesso = "utente"
'V_password = UCase(Left(strNome_P,3)+ Left(strNome_M,3))
V_password = "ASSEGNARE"
'##########################################################
' Creazione automatica PIN
'###########################################################
caratteri = "0123456789"
Randomize ' inizializza il generatore di numeri casuale
Do Until len(V_pin) = 4 ' qui imposti la lunghezza del PIN
V_numero = Int((37 * Rnd) + 1) ' Genera un valore casuale compreso tra 1 e 9.
V_pin = V_pin + mid(caratteri,V_numero,1)
Loop
'##################################################################
' APRO mdb E-commerce.mdb archivio ADMINS e aggiungo nuovo record
'#################################################################
set conn = server.createobject("adodb.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/E-commerce.mdb")
set rs = server.createobject("adodb.recordset")
rs.open "admins", conn, 2, 2
rs.addnew
'########################################
' Aggiungo il contenuto delle variabili
'########################################
rs("Username") = V_nascita
rs("Password") = V_password
rs("accesso") = V_accesso
rs("lista") = V_Nome_Lista
rs("pin") = V_pin
rs.update
rs.movelast
rs.close
set rs= nothing
set conn = nothing
%>
<%
Response.Write (" Sono stati passati N. " & V_conta & " Record")
%>
