<% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields0(0) Dim arFormDBFields0(0) FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "1" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields1(0) Dim arFormDBFields1(0) FP_SaveFormFields fp_rs, arFormFields1, arFormDBFields1 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "2" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields2(0) Dim arFormDBFields2(0) FP_SaveFormFields fp_rs, arFormFields2, arFormDBFields2 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "3" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields3(0) Dim arFormDBFields3(0) FP_SaveFormFields fp_rs, arFormFields3, arFormDBFields3 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "4" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields4(0) Dim arFormDBFields4(0) FP_SaveFormFields fp_rs, arFormFields4, arFormDBFields4 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "5" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields5(0) Dim arFormDBFields5(0) FP_SaveFormFields fp_rs, arFormFields5, arFormDBFields5 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "6" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields6(0) Dim arFormDBFields6(0) FP_SaveFormFields fp_rs, arFormFields6, arFormDBFields6 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "7" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields7(0) Dim arFormDBFields7(0) FP_SaveFormFields fp_rs, arFormFields7, arFormDBFields7 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "8" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields8(0) Dim arFormDBFields8(0) FP_SaveFormFields fp_rs, arFormFields8, arFormDBFields8 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "9" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields9(0) Dim arFormDBFields9(0) FP_SaveFormFields fp_rs, arFormFields9, arFormDBFields9 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "10" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields10(0) Dim arFormDBFields10(0) FP_SaveFormFields fp_rs, arFormFields10, arFormDBFields10 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "11" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields11(0) Dim arFormDBFields11(0) FP_SaveFormFields fp_rs, arFormFields11, arFormDBFields11 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "12" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields12(0) Dim arFormDBFields12(0) FP_SaveFormFields fp_rs, arFormFields12, arFormDBFields12 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "13" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields13(0) Dim arFormDBFields13(0) FP_SaveFormFields fp_rs, arFormFields13, arFormDBFields13 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "14" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields14(0) Dim arFormDBFields14(0) FP_SaveFormFields fp_rs, arFormFields14, arFormDBFields14 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "15" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields15(0) Dim arFormDBFields15(0) FP_SaveFormFields fp_rs, arFormFields15, arFormDBFields15 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "16" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields16(0) Dim arFormDBFields16(0) FP_SaveFormFields fp_rs, arFormFields16, arFormDBFields16 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "17" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields17(0) Dim arFormDBFields17(0) FP_SaveFormFields fp_rs, arFormFields17, arFormDBFields17 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "18" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields18(0) Dim arFormDBFields18(0) FP_SaveFormFields fp_rs, arFormFields18, arFormDBFields18 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "19" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields19(0) Dim arFormDBFields19(0) FP_SaveFormFields fp_rs, arFormFields19, arFormDBFields19 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "20" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields20(0) Dim arFormDBFields20(0) FP_SaveFormFields fp_rs, arFormFields20, arFormDBFields20 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "21" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields21(0) Dim arFormDBFields21(0) FP_SaveFormFields fp_rs, arFormFields21, arFormDBFields21 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "22" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields22(0) Dim arFormDBFields22(0) FP_SaveFormFields fp_rs, arFormFields22, arFormDBFields22 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "23" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields23(0) Dim arFormDBFields23(0) FP_SaveFormFields fp_rs, arFormFields23, arFormDBFields23 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "24" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields24(0) Dim arFormDBFields24(0) FP_SaveFormFields fp_rs, arFormFields24, arFormDBFields24 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "25" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields25(0) Dim arFormDBFields25(0) FP_SaveFormFields fp_rs, arFormFields25, arFormDBFields25 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "26" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields26(0) Dim arFormDBFields26(0) FP_SaveFormFields fp_rs, arFormFields26, arFormDBFields26 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> <% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "27" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields27(0) Dim arFormDBFields27(0) FP_SaveFormFields fp_rs, arFormFields27, arFormDBFields27 fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "aromatherapy.htm",_ "Torna al modulo" End If End If %> aromatherapy

AROMATHERAPY
Aromaterapia

 

 

 

Fresh Handmade Cosmeticsback

SITE MAP PRODUCTS HOW TO ORDER

CONTACTS

Mappa del Sito Prodotti Condizioni di Vendita

Contatti


 

CITRUSES

GLI  AGRUMI

 

 

ORANGE

ARANCIO

 

BERGAMOT

BERGAMOTTO

 

CHAMOMILE

CAMOMILLA

 

CINNAMON

CANNELLA

 

CEDAR WOOD

CEDRO ATLANTICO

NO PICTURE AVAILABLE

 

LAVENDER

LAVANDA

 

WOODS

I LEGNI

 

ROSEWOOD

LEGNO DI ROSA

NO PICTURE AVAILABLE

 

ROSEMARY

ROSMARINO

 

SAGE

SALVIA

 

VANILLA

VANIGLIA

 

MANDARIN

MANDARINO

NO PICTURE AVAILABLE

 

YLANG YLANG


Fresh Handmade Cosmeticsback