Rieccomi...
Ho un altro problema... sto cercando di inserire in una seconda tabella di mysql i dati che arrivano dal form.
I dati che arrivano sono i seguenti:
DataInizio = 04/09/2006
DataFine = 08/09/2006
Nella prima tabella i dati si inseriscono correttamente (tutte le date comprese tra il 4 e l'8/09), mentre nella seconda dove mi servono soltanto la DataInizio e la DataFine, si inseriscono:
DataInizio = 09/09/2006
DataFine = 08/09/2006
Ecco il codice d'inserimento per la seconda tabella:
codice:
'INIZIA NUOVO CODICE PER ESCLUSIONE LAVORI DAL FINE SETTIMANA
strDUEDATE = (Request.Form("dal_giorno"))
strDUEDATE2 = (Request.Form("al_giorno"))
j = Weekday(cDate(strDUEDATE))
x = WeekdayName(Weekday(cDate(strDUEDATE)))
for i = 0 to datediff("d",cDate(strDUEDATE),cDate(strDUEDATE2))
oggi = period(i+j-1,7)+1
strDUEDATE_1 = formatDBDate(strDUEDATE, "mysql")
strSql = "INSERT INTO prima_tbl "
strSQL = strSQL & "(DueDate, "
strSQL = strSQL & " DueDate2) "
strSQL = strSQL & " values "
strSQL = strSQL & " ("& strDUEDATE_1 &", "
strSQL = strSQL & " "& formatDBDate(strDUEDATE2,"mysql") &")"
cn.execute strSql
strDUEDATE = dateadd("d", cDate(strDUEDATE), 1)
Next
arrPer = Split(strPERSONALE,", ")
for i = LBound(arrPer) to UBound(arrPer)
arr = Split(arrPer(i),"-")
sql = "INSERT INTO seconda_tbl "
sql = sql & "(dal_giorno, "
sql = sql & " al_giorno) "
sql = sql & " VALUES "
sql = sql & " ("& formatDBDate(strDUEDATE,"mysql") &", "
sql = sql & " "& formatDBDate(strDUEDATE2,"mysql") &")"
cn.Execute(SQL)
next
Risultato delle query:
codice:
INSERT INTO prima_tbl (DueDate, DueDate2) values ('2006-09-04', '2006-09-08')
INSERT INTO prima_tbl (DueDate, DueDate2) values ('2006-09-05', '2006-09-08')
INSERT INTO prima_tbl (DueDate, DueDate2) values ('2006-09-06', '2006-09-08')
INSERT INTO prima_tbl (DueDate, DueDate2) values ('2006-09-07', '2006-09-08')
INSERT INTO prima_tbl (DueDate, DueDate2) values ('2006-09-08', '2006-09-08')
INSERT INTO seconda_tbl (dal_giorno, al_giorno) VALUES ('2006-09-09', '2006-09-08')