Salve ragazze scusate so che è un'argomento arcitrattato ma non risco a risolvere il problema dell'inserimento delle date in Access.

Ho provato varie soluzioni trovate sul forum ma nn sono riuscito a risolvere il problema che è questo:
Se io dal form immetto la data 30/04/2009 Access la memorizza correttamente mentre se io inserisco 02/04/2009 me la memorizza con 04/02/2009.

Ho provato ad inserire "<% Session.LCID=1040 %>" in tutte l pagine ma non risolvo nulla perchè comunque la data (04/02/2009) memorizzata da Access comunque è una data corretta.

Questo è lo script per l'inserimento dei dati:

codice:
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_extra_STRING
    MM_editCmd.CommandText = "INSERT INTO news ([data], titolo, dettaglio, categoria) VALUES (?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("data"), Request.Form("data"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("titolo")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 203, 1, 1073741823, Request.Form("dettaglio")) ' adLongVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("categoria")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "extraLogin.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
	
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
Come posso inserire dentro access la data che effettivamente io scrivo nel form.

Il campo su access 2007 è un campo data formato generico.

Grazie a tutti in anticipo per l'aiuto.