Problemer med dato.

Jeg har et lille problem som mange sikkert er stødt på.
Jeg har prøvet alt muligt men kan ikke få det til at virke.
Scriptet som det ser ud nu kan ses nedenunder dette. Når jeg 'poster' bliver datoen i dag (02-07-2008) gemt som 07-02-2008.
Hvad gør jeg??

Session.LCID = 1030

function Op_Date
  dim d, m, y
  d=right("0" & day(now),2)
  m=right("0" & month(now),2)
  y=year(now)
  Op_Date = d & "-" & m & "-" & y
end function

' SQL sætning opbygges
strSQL = "Insert into Nyhed (Dato, Nyhed) values('" & Op_Date & "','" & Request.Form("Nyhed") & "')"