Ciao a tutti, per inserire gli appuntamenti presi per ogni cliente uso un form con il quale inserisco un appuntamento per volta, tuttavia poichè può capitare di dover prendere più di un appuntamento per lo stesso cliente ho cercato di capire come fare ed ho trovato questa soluzione : nella pagina con il form ho il seguente
codice:
<form method="POST" action="Inserimento_App_ora.asp">
Cliente<select name="IDCliente"><option value="">seleziona</option></select>


Data<input type="text" name="Data">
</p>


Ora<input type="text" name="Ora">
</p>


Descrizione<input type="text" name="Descrizione" size="100">
</p>


Data<input type="text" name="Data2">
</p>


Ora<input type="text" name="Ora2">
</p>


Descrizione<input type="text" name="Descrizione2" size="100">
</p>


Data<input type="text" name="Data3">
</p>


Ora<input type="text" name="Ora3">
</p>


Descrizione<input type="text" name="Descrizione3" size="100">
</p>


<input type="submit" value="Invia" name="x"></p>
</form>
e nella pagina di inserimento nel database ho il seguente
codice:
IDCliente=request.form("IDCliente")
a=request.form("Data")
b=request.form("Ora")
c=request.form("Descrizione")

d=request.form("Data2")
e=request.form("Ora2")
f=request.form("Descrizione2")

g=request.form("Data3")
h=request.form("Ora3")
i=request.form("Descrizione3")

set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\...mdb")
a = replace(a,"'","''")
b = replace(b,"'","''")
c = replace(c,"'","''")

d = replace(d,"'","''")
e = replace(e,"'","''")
f = replace(f,"'","''")

g = replace(g,"'","''")
h = replace(h,"'","''")
i = replace(i,"'","''")
%>

<% If d="" And e="" And f="" And g="" And h="" And i="" then

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& a &"', '"& b &"','"& c &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

else

If g="" And h="" And i="" then

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& a &"', '"& b &"','"& c &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& d &"', '"& e &"','"& f &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

else

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& a &"', '"& b &"','"& c &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& d &"', '"& e &"','"& f &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& g &"', '"& h &"','"& i &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

End If
End If

OBJdbConnection.Close
set OBJdbConnection = nothing%>
Ora il dubbio è se questo modo sia l'unico oppure se ce n'è qualcun'altro migliore, in quanto chiaramente questo su indicato è veramente poco "malleabile".