Et par dato problemer

Hey?!

Nu har jeg efterhånden trevlet alle spørgsmål vedr. datoformat igennem, og der er en del som omhandler mit problem, men jeg kan alligevel ikke løse det.

Spørgsmål 1
Jeg har flg. function:
function Ret_ID()
  RetID = Day(tbl("Dato")) & "-" & Month(tbl("Dato")) & "-" & Year(tbl("Dato"))
  Response.Write RetID
End function

Den udskriver således 1-1-2002
Hvordan får jeg flettet noget ind så den udskriver 01-01-2002?

Spørgsmål 2
Når jeg tilføjer en dato f.eks. 09-08-2002 bliver den lavet om til 08-09-2002
Koden ser således ud:

<%
session.LCID = 1030
%>

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("*.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * FROM artikler WHERE id=" & request.form("id")
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.form("delete") = "ON" then
      Rs.delete
Response.Redirect "ret.asp"
%><% end if %>

<% 
    rs.Update
rs("forfatter") = Request.form("forfatter")
rs("artikel") = Request.form("artikel")
rs("dato") = Request.form("dato")
rs("overskrift") = Request.form("overskrift")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect "ret.asp"
%>
<% end if %>

Jeg kan ikke løse problemet selvom det garanteret er temmelig enkelt.

Håber på et pædagogisk svar :-)

Sig blot til hvis der ikke er point nok.

Venlig hilsen
Michael Boysen