Datofomat år-måned-dag

Hej

Jeg har denne aspkode, hvor jeg gerne vil have "dateposted" til at stå i følge dato format yyyy-mm-dd, altså fx. 2003-07-01

Nogen som kan hjælpe?

_____________________________________


<%
Set GobjConnect = server.createobject("ADODB.Connection")
GobjConnect.open gsConnect

iadID = Request.QueryString("ID")

gsSQL = "Select ID, TopicID, adtitle, content, price, image, name, city, state, phone, email, dateposted, "
gsSQL = gsSQL & "link FROM adcontent WHERE ID = " & SQLVal(iadID)


Set rs = GobjConnect.Execute(gsSQL)
Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
Do While not rs.EOF

    Response.Write("<P>" & rs.Fields("adtitle") & "<P></CENTER>")
    Response.Write("<SMALL><SMALL>Indrykket " & rs.Fields("dateposted") & "</SMALL></SMALL></CENTER></TD></TR>" & "<br><br>")

    Response.Write("")
    Response.Write("<TABLE BORDER=0 WIDTH=550 CELLSPACING=1 CELLPADDING=6>")
    Response.Write("<TR bgcolor=" & chr(34) & tablecolor & chr(34) & "><TD COLSPAN=""2"">&nbsp;&nbsp;")
    Response.Write("<SMALL>" & rs.Fields("content") & "<br><br>" & "</SMALL></TD></TR>")
Response.Write("<TD WIDTH=" & chr(34) & "225" & chr(34) & " bgcolor=#FFFFFF" & chr(34) & detailcolor & chr(34) & "><CENTER></CENTER><SMALL>")
    Response.Write("<B>Kontakt: </B> <A HREF = " & chr(34) & "MAILTO:" & rs.fields("email") & chr(34) & ">" & rs.fields("name") & "</A><BR>")
    Response.Write("<B>Pris:</B> " & rs.fields("price"))
    Response.Write("</TD></TR>")
        'Check for image
            If rs.Fields("image") <> "" Then
                Response.Write("<TR><TD colspan=2><CENTER><IMG SRC=" & chr(34) & rs.Fields("image") & chr(34) & "></CENTER>")
            End If

        'Check for link   
            If rs.Fields("link") <> "" Then
                Response.Write("<BR><B>Link: </B><A HREF =" & chr(34) & rs.fields("link") & chr(34) & ">" & rs.fields("link") & "</A></CENTER></SMALL>")
            End If

    rs.movenext
Loop
   
    Response.Write("<TR bgcolor=" & chr(34) & tablecolor & chr(34) & "><TD COLSPAN=""2""><CENTER><SMALL><A HREF=""default.asp"">Tilbage til forsiden</A></SMALL></CENTER></TD></TR>")
    Response.Write("</TABLE>")


Call DoPageFooter   

rs.Close
Set rs = Nothing
Set GobjConnect = Nothing

%>