Modificare il file: \crea-nuova-lista2.asp

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" --> <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --> <% Language=VBScript %> <% ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 'Determino le dimensioni delle variabili Dim strDataBasePath 'Variabile Dim cString 'Variabile Dim adoCon 'Variabile Dim strSQL 'Variabile 'Setto la variabile per una connessione ADO Set adoCon = Server.CreateObject("ADODB.Connection") '---------------------------------------------------------------- 'Cambiare il path del database strDataBasePath = "/mdb-database/utenti.mdb" '---------------------------------------------------------------- 'Stringa per la connessione cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath) adoCon.Open cString 'Richiesta dei valori utente 'Setta the variable to the value in the users cookie str_userscode = Request.Cookies("Login")("userCode") 'Se l'user code non è vuota allora IF str_userscode <> "" THEN 'Creo un nuovo record set Set rsUserLog = Server.CreateObject("ADODB.RecordSet") 'Setta una nuova stringa sql StrSql="SELECT * FROM tbl_authors WHERE code='" & str_userscode & "';" 'Apro il recordset e eseguo il codice sql rsUserLog.open StrSql,cString 'Se non ci sono record che accertano l'identita dei dati dai cookies dell'utente 'setta la variabile vuota If rsUserLog.EOF Then Response.cookies("Login")("userCode") = "" 'Se non c'è nessun record allora Else ' Setta i valori del database con le variabili str_users_nome = rsUserLog("nome") str_users_cognome = rsUserLog("cognome") str_users_email = rsUserLog("email") str_users_tel = rsUserLog("Tel") End If 'Chiudo rsUserLog.Close set rsUserLog = Nothing 'Se l'user code è vuoto allora l'utente è guest Else Response.cookies("Login")("userCode") = "" End If '--------------------------------------------------------------------- 'Creo un nuovo record set set rsPageAttributes = Server.CreateObject("ADODB.RecordSet") 'Query sql pageSql = "SELECT * FROM tbl_admin" 'Apro il recordset e eseguo sql rsPageAttributes.open pageSql,cString adminEmail = rsPageAttributes("adminEmail") pageTitle = rsPageAttributes("TitoloSito") homePage = rsPageAttributes("homePage") mailServer = rsPageAttributes("mailHost") tipoMail = rsPageAttributes("tipoMail") conf_email = rsPageAttributes("conf_email") 'Chiusura rsPageAttributes.Close set rsPageAttributes = Nothing '-------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------- Function GetState(intState) Select Case intState Case 0 GetState = "adStateClosed" Case 1 GetState = "adStateOpen" End Select 'Sintassi: GetState(adoCon.state) End Function '-------------------------------------------------------------------------------------------- %> <% ' Dichiaro le variabili relative ai valori del campo modulo Dim T1, T2, T3, T4, T5, T6, T7, D_conta, nome_lista Dim strNome_P, strNome_M, strNome_B, strData_N, strE_mail Dim strControllo, strControllo3, strControllo4, strControllo5, strControllo6, strControllo7, strControllo8, strControllo9, strControllo10 Dim strControllo11, strControllo12, strControllo13, strControllo14, strControllo15, strControllo16, strControllo17, strControllo18, strControllo19, strControllo20, strControllo21, strControllo22 Dim strControllo23, strControllo24, strControllo25, strControllo26, strControllo27, strControllo28, strControllo29, strControllo30, strControllo31, strControllo32 Dim strControllo33, strControllo34, strControllo35, strControllo36, strControllo37, strControllo38, strControllo39, strControllo40, strControllo41 Dim strControllo42, strControllo43, strControllo44, strControllo45, strControllo46, strControllo47, strControllo48, strControllo49, strControllo50, strControllo51, strControllo52, strControllo53, strControllo54 Dim strControllo55, strControllo56, strControllo57, strControllo58, strControllo59, strControllo60, strControllo61, strControllo62, strControllo63, strControllo64 Dim strControllo65, strControllo66, strControllo67, strControllo68, strControllo69, strControllo70, strControllo71, strControllo72 ' Assegno il valore ai titoli T1 = "Dove lo facciamo dormire?" T2 = "Tenere Attenzioni" T3 = "Gnam, si mangia!" T4 = "Casa dolce casa" T5 = "Il suo primo viaggio" T6 = "Tutti in vacanza" T7 = "Crescerlo e' un gioco" D_conta = 0 'Mediante l'oggetto Request leggo i valori immessi 'strNome_P = Request.Form("Nome_P") 'strNome_M = Request.Form("Nome_M") 'strNome_B = Request.Form("Nome_B") 'strData_N = Request.Form("Data_N") 'strE_mail = Request.Form("E_mail") 'strTel = Request.Form("Tel") 'nome_lista = UCase(trim(strNome_P)+ " - "+ trim(strNome_M)) strNome_P = (str_users_nome +" "+ str_users_cognome) strE_mail = str_users_email strTel = str_users_tel nome_lista = UCase(trim(strNome_P)) ' Articoli scelti T1 strControllo = Request.Form("controllo") strControllo3 = Request.Form("controllo3") strControllo4 = Request.Form("controllo4") strControllo5 = Request.Form("controllo5") strControllo6 = Request.Form("controllo6") strControllo7 = Request.Form("controllo7") strControllo8 = Request.Form("controllo8") strControllo9 = Request.Form("controllo9") strControllo10 = Request.Form("controllo10") ' Articoli scelti T2 strControllo11 = Request.Form("controllo11") strControllo12 = Request.Form("controllo12") strControllo13 = Request.Form("controllo13") strControllo14 = Request.Form("controllo14") strControllo15 = Request.Form("controllo15") strControllo16 = Request.Form("controllo16") strControllo17 = Request.Form("controllo17") strControllo18 = Request.Form("controllo18") strControllo19 = Request.Form("controllo19") strControllo20 = Request.Form("controllo20") strControllo21 = Request.Form("controllo21") strControllo22 = Request.Form("controllo22") ' Articoli scelti T3 strControllo23 = Request.Form("controllo23") strControllo24 = Request.Form("controllo24") strControllo25 = Request.Form("controllo25") strControllo26 = Request.Form("controllo26") strControllo27 = Request.Form("controllo27") strControllo28 = Request.Form("controllo28") strControllo29 = Request.Form("controllo29") strControllo30 = Request.Form("controllo30") strControllo32 = Request.Form("controllo31") strControllo32 = Request.Form("controllo32") ' Articoli scelti T4 strControllo33 = Request.Form("controllo33") strControllo34 = Request.Form("controllo34") strControllo35 = Request.Form("controllo35") strControllo36 = Request.Form("controllo36") strControllo37 = Request.Form("controllo37") strControllo38 = Request.Form("controllo38") strControllo39 = Request.Form("controllo39") strControllo40 = Request.Form("controllo40") strControllo41 = Request.Form("controllo41") ' Articoli scelti T5 strControllo42 = Request.Form("controllo42") strControllo43 = Request.Form("controllo43") strControllo44 = Request.Form("controllo44") strControllo45 = Request.Form("controllo45") strControllo46 = Request.Form("controllo46") strControllo47 = Request.Form("controllo47") strControllo48 = Request.Form("controllo48") strControllo49 = Request.Form("controllo49") strControllo50 = Request.Form("controllo50") strControllo51 = Request.Form("controllo51") strControllo52 = Request.Form("controllo52") strControllo53 = Request.Form("controllo53") strControllo54 = Request.Form("controllo54") strControllo55 = Request.Form("controllo55") ' Articoli scelti T6 strControllo56 = Request.Form("controllo56") strControllo57 = Request.Form("controllo57") strControllo58 = Request.Form("controllo58") strControllo59 = Request.Form("controllo59") strControllo60 = Request.Form("controllo60") strControllo61 = Request.Form("controllo61") strControllo62 = Request.Form("controllo62") strControllo63 = Request.Form("controllo63") strControllo64 = Request.Form("controllo64") ' Articoli scelti T7 strControllo65 = Request.Form("controllo65") strControllo66 = Request.Form("controllo66") strControllo67 = Request.Form("controllo67") strControllo68 = Request.Form("controllo68") strControllo69 = Request.Form("controllo69") strControllo70 = Request.Form("controllo70") strControllo71 = Request.Form("controllo71") strControllo72 = Request.Form("controllo72") %> <Html> <style type="text/css"> .elenco { font-family: Verdana, Geneva, sans-serif; font-size: medium; } .elenco li table tr td strong { color: #00C; text-align: left; } .elenco li table tr td { text-align: left; } .elenco li table tr td p { text-align: justify; } body { background-color: #3CF; font-size: 12px; } .allinea { text-align: justify; } .elenco li table { text-align: center; } centra { } .pass { font-weight: bold; color: #F00; } .pin { font-weight: bold; color: #F00; } .elenco { font-size: large; } .elenco .elenco { font-size: medium; } grazie { color: #00F; } .elenco li p .allinea { color: #00F; } .elenco li p .allinea { font-weight: bold; } </style> <Body class="elenco"> <span class="elenco"><strong> <%=nome_lista%><br> </strong><br> Nome del Genitore : <strong><%=strNome_P%></strong><br> E-Mail: <strong><%=strE_mail%></strong><br> Tel./Cell.: <strong><%=strTel%></strong><br> </span> <p><span class="elenco"> Gli articoli che hai scelto per la tua lista sono: </span><br><br> <% dim V_nascita, V_accesso, V_password, V_pin, V_numero, V_dispo, V_strcontrollo, V_descrizione V_nascita = "nascita" V_accesso = "utente" 'V_password = UCase(Left(strNome_P,3)+ Left(strNome_M,3)) V_password = "ASSEGNARE" V_dispo = "Y" V_descrizione = "-" '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ' VARIABILE CHE CONTIENE GLI ARTICOLI SELEZIONATI (Incrementale) '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ V_strcontrollo = "" '########################################################## ' 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") = nome_lista rs("pin") = V_pin rs.update rs.movelast rs.close set rs= nothing set conn = nothing %> <% '######################################################################## ' 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") = nome_lista 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing %> <% ' Articoli gruppo T1 'response.write "Dove lo facciamo dormire?" %><li><strong><%=T1%></strong><br> <% select case strcontrollo case "Coperta" response.write(strcontrollo & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo3 case "Cuscino antisoffoco" response.write(strcontrollo3 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo3 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo3 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo4 case "Lettino" response.write(strcontrollo4 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo4 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo4 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo5 case "Materasso antisoffoco" response.write(strcontrollo5 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo5 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo5 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo6 case "Paracolpi" response.write(strcontrollo6 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo6 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo6 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo7 case "Parure Lettino (Lenzuolini)" response.write(strcontrollo7 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo7 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo7 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo8 case "Trapunta/piumino (Set letto, piumone, paracolpi, federa)" response.write(strcontrollo8 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo8 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo8 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT%> <% select case strcontrollo9 case "Zanzariera" response.write(strcontrollo9 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo9 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo9 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT%> <% select case strcontrollo10 case "Salvamaterasso" response.write(strcontrollo10 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo10 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo10 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT%> <% ' Articoli gruppo T2 %><br><strong><li><%=T2%></strong><br> <% select case strcontrollo11 case "Bilancia" response.write(strcontrollo11 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo11 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo11 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo12 case "Materassino fasciatoio" response.write(strcontrollo12 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo12 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo12 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo13 case "Set igiene" response.write(strcontrollo13 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo13 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo13 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo14 case "Pannolini" response.write(strcontrollo14 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo14 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo14 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo15 case "Termometro" response.write(strcontrollo15 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo15 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo15 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo16 case "Aerosol" response.write(strcontrollo16 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo16 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo16 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo17 case "Copri materasso fasciatoio" response.write(strcontrollo17 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo17 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo17 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo18 case "Fasciatoio" response.write(strcontrollo18 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo18 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo18 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo ' 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo19 case "Olio/Latte detergente (Set Creme)" response.write(strcontrollo19 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo19 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo19 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo20 case "Termometro bagno" response.write(strcontrollo20 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo20 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo20 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo21 case "Umidificatore" response.write(strcontrollo21 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo21 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo21 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo22 case "Vaschetta" response.write(strcontrollo22 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo22 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo22 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% ' Articoli gruppo T3 'response.write "Gnam, si mangia!" %><br><strong><li><%=T3%></strong><br> <% select case strcontrollo23 case "Biberon" response.write(strcontrollo23 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo23 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo23 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo24 case "Ciucci" response.write(strcontrollo24 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo24 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo24 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo25 case "Pompa tiralatte" response.write(strcontrollo25 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo25 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo25 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo26 case "Seggiolone" response.write(strcontrollo26 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo26 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo26 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo27 case "Set pappa" response.write(strcontrollo27 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo27 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo27 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo28 case "Sterilizzatore" response.write(strcontrollo28 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo28 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo28 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo29 case "Cuscino allattamento" response.write(strcontrollo29 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo29 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo29 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo30 case "Scaldabiberon/scaldapappa" response.write(strcontrollo30 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo30 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo30 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo31 case "Thermos" response.write(strcontrollo31 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo31 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo31 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo32 case "Omogenizzatore" response.write(strcontrollo32 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo32 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo32 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% ' Articoli gruppo T4 'response.write "Casa dolce casa" %><br><strong><li><%=T4%></strong><br> <% select case strcontrollo33 case "Sdraietta" response.write(strcontrollo33 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo33 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo33 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo34 case "Baby monitor" response.write(strcontrollo34 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo34 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo34 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo35 case "Altalena" response.write(strcontrollo35 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo35 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo35 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo36 case "Box" response.write(strcontrollo36 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo36 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo36 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo37 case "Cassettiera" response.write(strcontrollo37 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo37 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo37 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo38 case "Girello" response.write(strcontrollo38 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo38 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## ''rs("Nome") = StrControllo38 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo39 case "Cancelletto" response.write(strcontrollo39 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo39 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo39 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo40 case "Luce notte" response.write(strcontrollo40 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo40 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo40 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo41 case "Spondina per letto" response.write(strcontrollo41 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo41 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo41 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% ' Articoli gruppo T5 'response.write "Il suo primo viaggio" %><br><strong><li><%=T5%></strong><br> <% select case strcontrollo43 case "Sistema modulare Trio" response.write(strcontrollo43 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo43 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo43 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo44 case "Base seggiolino Isofix" response.write(strcontrollo44 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo44 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo44 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo45 case "Base seggiolino con cinture" response.write(strcontrollo45 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo45 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo45 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo46 case "Borsa passeggio" response.write(strcontrollo46 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo46 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo46 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo47 case "Copertura seggiolino auto" response.write(strcontrollo47 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo47 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo47 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo48 case "Fasciatoio pieghevole" response.write(strcontrollo48 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo48 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo48 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo49 case "Marsupio" response.write(strcontrollo49 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo49 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo49 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo50 case "Ombrellino" response.write(strcontrollo50 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo50 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo50 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo51 case "Sacco passeggio" response.write(strcontrollo51 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo51 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo51 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo52 case "Passeggino leggero" response.write(strcontrollo52 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo52 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo52 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo53 case "Seggiolino gruppo 0+" response.write(strcontrollo53 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo53 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo53 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo54 case "Seggiolino gruppo 1 o 1-2-3" response.write(strcontrollo54 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo54 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo54 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo55 case "Tendine parasole" response.write(strcontrollo55 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo55 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo55 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% ' Articoli gruppo T6 'response.write "Tutti in vacanza" %><br><strong><li><%=T6%></strong><br> <% select case strcontrollo56 case "Letto da viaggio/campeggio" response.write(strcontrollo56 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo56 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo56 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo57 case "Vaschetta pieghevole/gonfiabile" response.write(strcontrollo57 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo57 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo57 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo58 case "Seggiolino da tavolo o rialza sedia" response.write(strcontrollo58 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo58 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo58 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo59 case "Borsa viaggio" response.write(strcontrollo59 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo59 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo59 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo60 case "Materassino per lettino da viaggio" response.write(strcontrollo60 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo60 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo60 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo61 case "Sacca trasporto passeggino" response.write(strcontrollo61 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo61 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo61 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo62 case "Scalda biberon da auto" response.write(strcontrollo62 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo62 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo62 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo63 case "Tendine auto" response.write(strcontrollo63 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo63 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo63 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo64 case "Zaino" response.write(strcontrollo64 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo64 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo64 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% ' Articoli gruppo T7 'response.write "Crescerlo è un gioco" %><br><strong><li><%=T7%></strong><br> <% select case strcontrollo65 case "Carillon" response.write(strcontrollo65 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo65 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo65 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo66 case "Sonaglini" response.write(strcontrollo66 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo66 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo66 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo67 case "Giochi musicali" response.write(strcontrollo67 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo67 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo67 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo68 case "Cavalcabili" response.write(strcontrollo68 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo68 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo68 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo69 case "Giostrine" response.write(strcontrollo69 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo69 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo69 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo70 case "Palestrina" response.write(strcontrollo70 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo70 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo70 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo71 case "Tappeto gioco" response.write(strcontrollo71 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo71 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo71 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <% select case strcontrollo72 case "Tavolo attivita' gioco" response.write(strcontrollo72 & "<br />") V_strcontrollo = V_strcontrollo & " - " & strcontrollo72 '########################################################################## ' APRO mdb E-commerce.mdb archivio Prodotti e Creo nuovo articolo in lista '########################################################################## '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 l'articolo scelto nella lista '######################################## 'rs("Nome") = StrControllo72 'rs("Marca") = Nome_Lista 'rs("email") = StrE_mail 'rs("Descrizione") = V_descrizione 'rs("Dispo") = V_dispo 'rs.update 'rs.movelast 'rs.close 'set rs= nothing 'set conn = nothing END SELECT %> <table width="800" border="0"> <tr> <td><p>&nbsp;</p> <p><strong>Pubblicazione della Lista in internet</strong></p></td> </tr> <tr> <td><p>Il personale del Negozio si occupera' di pubblicare la Lista sul sito solo dopo aver contattato i genitori entro 2 giorni lavorativi. E' sempre possibile modificare l'elenco degli articoli scelti e non ancora acquistati, rivolgendosi personalmente o via e-mail o telefonicamente al Negozio.</p> <p><br> </p></td> </tr> <tr> <td><strong>Comunicazione a parenti ed amici</strong></td> </tr> <tr> <td class="allinea">Entro 2 giorni lavorativi, verra' inviata all'indirizzo di posta elettronica dei genitori una mail che conterra' un codice PIN e una password per accedere alla lista on line. I genitori riceveranno inoltre una password per parenti e amici: i genitori dovranno personalmente inviare tali informazioni ai parenti ed amici che vorranno informare.</td> </tr> <tr> <td class="allinea"><p>&nbsp;</p> <!-- <p>La vostra <span class="pass">password</span> per prenotare/acquistare un articolo e': <strong><%'=V_password%></strong></p></td> </tr> <tr> <td class="allinea"><p>&nbsp;</p> <p>Il codice <span class="pin">pin</span> di accesso dei genitori per seguire l'evolversi della Lista di Nascita e': <strong><%'=V_pin%></strong></p></td> </tr> </table> --> <% '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ' INVIO MAIL '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ %> <% Dim N_Lista, conferma N_Lista = nome_lista conferma = "Si" %> <% ogg="no" 'scrivere smart fra le virgolette per usare l'oggetto AspSmartMail, altrimenti no %> <% '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ' seleziona le variabili per l'invio '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ %> <% i=Session("Contatore") 'bod="E' stata creata la lista :" & N_Lista &vbCrLf&vbCrLf&"Elenco articoli da voi selezionati nella lista : "&vbCrLf&vbCrLf bod="E' stata creata la Nuova lista :" & N_Lista &vbCrLf&vbCrLf&"Elenco articoli selezionati nella lista : "&vbCrLf&vbCrLf bod=bod& V_strControllo ' bod2="E' stata creata la lista :" & N_Lista &vbCrLf&vbCrLf&"Elenco articoli da voi selezionati nella lista : "&vbCrLf&vbCrLf ' bod2=bod2 & V_strControllo DIM invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, pre '****************************************************************** '****************************************************************** '****************************************************************** '****************************************************************** '****************************************************************** 'invioA = proprio indirizzo di posta invioA = "martinucci@martinucci-regali.com" '****************************************************************** '****************************************************************** '****************************************************************** '****************************************************************** '****************************************************************** invioDa = "martinucci@martinucci-regali.com"'proprio indirizzo di posta (facoltativo) DIM iMsg, Flds, iConf if ogg<>"smart" then Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.martinucci-regali.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Update End With With iMsg Set .Configuration = iConf .To = invioA .From = invioA .Sender = invioDa ' ********************************************** .Subject = "Nuova Lista Nascita: " & N_Lista '*********************************************** .TextBody ="Lista: "&N_Lista &vbCrLf & " E-mail:" & strE_mail & vbCrLf & "Tel./Cell.:" &StrTel & vbCrLf & vbCrLf & bod &"" .Send End With end if '============================================ ' E' stata richiesta la conferma dell'invio '============================================ if Conferma = "Si" then DIM invioA2, invioDa2, nomeDominio2, indirizzoIp2, modulo2, browserSistemaOperativo2, pre2 invioA2 = StrE_mail invioDa2 = invioDa FOR numeroCampi2 = 1 TO (Request.Form.Count() - 1) IF NOT Request.Form(numeroCampi2) = "" THEN corpoMessaggio2 = corpoMessaggio2 & vbCrLf & Request.Form.Key(numeroCampi2) & ":" &vbCrLf& Trim(Request.Form(numeroCampi2)) & vbCrLf END IF NEXT if ogg<>"smart" then DIM iMsg2, Flds2, iConf2 Set iMsg2 = CreateObject("CDO.Message") Set iConf2 = CreateObject("CDO.Configuration") Set Flds2 = iConf2.Fields With Flds2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.martinucci-regali.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Update End With With iMsg2 Set .Configuration = iConf2 .To = invioA2 .From = invioDa .Sender = invioDa2 ' ********************************************** .Subject = "Nuova Lista Nascita: " & N_Lista '*********************************************** .TextBody ="Lista: "&N_Lista &vbCrLf & vbCrLf & bod &"" .TextBody = "Lista: "&N_Lista & vbCrLf & vbCrLf & "Gentili :" & N_Lista &"," & vbCrLf & "grazie per aver effettuato la Lista di Nascita presso di noi, di seguito i dettagli della Lista: " & vbCrLf &"" & bod .Send End With end if end if %> <p>&nbsp;</p> <p align="center"><font size="3" face="Verdana" class="allinea">Grazie per aver utilizzato la Lista di Nascita ON-LINE. Vi e' stata inviata una mail di conferma con gli articoli selezionati presso la vostra casella mail</font>.</p> <table width="800" border="0"> <tr> <td colspan="2"><p>&nbsp;</p> <p>&nbsp;</p></td> </tr> <tr> <td width="461" class="allinea"><div align="center"><img src="Inkjet-Printer-icon.png" width="256" height="256"></div></td> <td width="329">&nbsp;</td> </tr> <tr> <td class="allinea"><div align="center"> <input name="button" type=button onClick="window.print();" value="Stampa la tua lista"> </div></td> <td><div align="center"><a href="index.asp" target="_self"><img src="chiudi.jpg" width="103" height="49" alt="Esci"></a></div></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> <p>&nbsp;</p> </body> </Html>

[Íàçàä]