Update dato

Jeg vil gerne have opdateret den nuværende dato i feltet 'Opdateret' i formatet 'tirsdag den 22. oktober 2002' men noget går galt når jeg skriver rs("Opdateret") = datoStreng i bunden af dette script:

<%
Dim arrMonth, arrDay, datoStreng
arrMonth = Array("januar", "februar", "marts", "april", "maj", "juni", "juli", "august", "september", "oktober", "november", "december")
arrDay = Array("søndag", "mandag", "tirsdag", "onsdag", "torsdag", "fredag", "lørdag")
datoStreng = arrDay(WeekDay(now)-1) & "&nbsp;den&nbsp;" & day(now) & "." & " " & arrMonth(CInt(month(now()))-1) & " " & Year(now)


Dim rs, Query
Set rs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM liste WHERE Id=" & Request.QueryString("ID")
rs.Open Query, Connect, 1, 2
rs("Navn") = Request.QueryString("navn")
rs("Adresse") = Request.QueryString("adresse")
rs("Adresse2") = Request.QueryString("adresse2")
rs("Adresse3") = Request.QueryString("adresse3")
rs("Postnr") = Request.QueryString("postnr")
rs("By") = Request.QueryString("by")
rs("Url") = Request.QueryString("url")
rs("Email") = Request.QueryString("email")
rs("Mobiltlf") = Request.QueryString("mobiltlf")
rs("Fasttlf") = Request.QueryString("fasttlf")
rs("mand") = Request.QueryString("mand")
rs("Info") = Request.QueryString("info")
rs("Opdateret") = datoStreng
rs.Update
%>