Continuano i problemi con le date e MySQL, ho letto la documentazione ho cercato sul forum ed ho questo codice:
L'errore è sulla riga rossa:codice:function formatDBDate(argDate,argDB) dim tmpdate,tmpdateoutput tmpdate = argDate select case argDB case "mdb" tmpdateoutput = "#yyyy-mm-dd h:m:s#" case "mysql" tmpdateoutput = "'yyyy-mm-dd'" end select tmpdateoutput = replace(tmpdateoutput,"dd",right("0" & day(tmpdate),2)) tmpdateoutput = replace(tmpdateoutput,"mm",right("0" & month(tmpdate),2)) tmpdateoutput = replace(tmpdateoutput,"yyyy",year(tmpdate)) tmpdateoutput = replace(tmpdateoutput,"yy",right(year(tmpdate),2)) tmpdateoutput = replace(tmpdateoutput,"h",right("0" & hour(tmpdate),2)) tmpdateoutput = replace(tmpdateoutput,"m",right("0" & minute(tmpdate),2)) tmpdateoutput = replace(tmpdateoutput,"s",right("0" & second(tmpdate),2)) formatDBDate = tmpdateoutput end function strDUEDATE = Request.Form("dal_giorno") strDUEDATE = formatDBDate(strDUEDATE,"mysql") strDUEDATE2 = Request.Form("al_giorno") strDUEDATE2 = formatDBDate(strDUEDATE2,"mysql") for i = cDate(strDUEDATE) to cDate(strDUEDATE2) response.write (i) & " " response.write (Weekday(i)) & " " response.write (WeekdayName(Weekday(i))) & " " Next
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'cDate'
Che devo fare?
Grazie

Rispondi quotando