Conversione data in formato MySql

[camalkan]

Salve a tutti,

ho un problema con un sito in classic ASP e DB MySql. Devo inserire delle offerte, con la data di inserimento e la data di scadenza dell'offerta, ma il problema è che ho il sito ostato in USA, per cui prende la data del server che ha una differenza di 8 ore.

Prima inserivo la data di scadenza da un campo nascosto di un form in questo modo:

Dim d : d = Date() 
Dim t : t = Time() 
Dim dateMySql : dateMySql = Year(d) & "-" & Month(d) & "-" & Day(d) & "-" & Hour(t) & "-" & Minute(t) & "-" & Second(t)

e inserivo nel campo nascosto: <%=(dateIMySql)%>

E tutto funzionava alla perfezione.

Ora, con la funzione DateAdd ho risolto il problema, ma parzialmente, in quanto ora non mi riesce più di formattare la data ottenuta nel formato MySql, come facevo prima. La nuova data la ottengo così:

Adesso = FormatDateTime(Now,0)
Dim dn : dn = DateAdd("h",32,Adesso)

e qui mi fermo. ho provato in vari modi, ma la nuova data non mi riesce più di formattarla.

Qualcuno mi potrebbe dare una mano? Grazie in anticipo

Buona giornata a tutti

 

[Paolo69]

Prova a formattare la data/orario scomponendo i parametri con questo codice per poi ricomporlo a tuo piacimento:

       Adesso = Now()

			'Split the date of biith into the various parts
				If isDate(Adesso) Then
					DOBYear = Year(Adesso)
					DOBMonth = Month(Adesso)
					DOBDay = Day(Adesso)
				End If

Ovviamente aggiungi i campi che a te interessano e li ricomponi:

AdessoMySql = DOBYear&"-"&DOBMonth.... ecc ecc

Paolo