El servidor esta seis horas atrasado con respecto a la hora que yo quiero que me tom

[sqa212]

'El servidor esta seis horas atrasado con respecto a la hora
'que yo quiero que me tome,(servidor EEUU,web España).
'Asi añado seis horas al la HORA ACTUAL del servidor Para mostrarlo:
<%Response.Write(dateadd("h",6,formatdatetime(now, 3)))%>'Lo que no se es como hacer lo siguiente:
'El objetivo no es mostrar el valor de las variables sino un INSERT INTO.
'tomamos el instante de entrada en el servidor.
fecha = Date
hora = Time
'¿Como podria tener los valores seis horas adelantado, tanto para la hora, como para la fecha?

[sqa212]

Con esto he conseguido solucionar lo de la hora.
[COLOR=DarkOrange]Lo que no se solucionar ahora es lo de la fecha,
es decir, si son en el servidor mas de las 18 horas,
quiero que la variable fecha sea un dia mas del que hay en el servidor.[/COLOR]

Dim fecha
Dim hora
Dim minuto
'tomamos el instante de entrada.
hora = Hour(Now())
hora = hora + 6
If hora = 24 then
hora= 0
else
If hora > 24 then
hora= hora -24
else
end if
end if

minuto = Minute(Now())
fecha = Date



¿Como sigo?
fecha=.................

Gracias por adelantado

[sqa212]

¿Es imposible????

[Myakire]

No es que sea imposible, pero seguro a quienes hemos leido este post no creimos que no se te ocurriera sumar uno a Date(): DATE()+1.