ASP - FormatDateTime: Necesito añadir 3 horas !!!!

Estoy mostrando la fecha d eun archivo con FormatDateTime

Uso esto:
<%
Function Modified()
Dim objFSO
Dim objFile
Dim dateModified
Dim FileName
FileName = Request.ServerVariables("Script_Name")
' Creates the object and assigns it to our variable.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get access to the file
Set objFile = objFSO.GetFile(server.mappath("22556db\%$dfr(3.mdb"))
' Get last modified property
dateModified = objFile.DateLastModified
' You can format it as you like using the FormatDateTime command
Modified = FormatDateTime(dateModified, 1) & " a las " & FormatDateTime(dateModified, 4)
' Kill our objects
Set objFile = Nothing
Set objFSO = Nothing
End Function
%>

El problema es que la hora del servidor hace que la hora del archivo se muestre como 3 horas menos de la hora que se subió al mismo.

¿ Alguien puede decirme que debo añadir a ese codigo para que me muestre la hora conforme a la que realmente se subio al servidor y no la que toma el archivo en el server ?

Gracias

Puedes utilizar la funcion DateAdd que tiene el siguiente formato:

NuevaFecha = DateAdd(Intervalo, Numero, Fecha)

Intervalo puede tomar los siguientes valores:

yyyy - Año
q - Cuatrimestre
m - Month
d - Dia
h - hora
n - minuto
s - segundo

Es decir, deberias hacer lo siguiente:

FechaCorrecta = DateAdd("h", 3, dateModified )

Espero que te sirva de ayuda. Saludos desde Euskal Herria.

Mikel