Begynder-ASP spm

Hej

Jeg vil gerne selv kunne tilføje en dato i datofeltet istedet for at det gøre automatisk
- Kan i hjælpe?

---------------------------------------------------

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
tempConn = "dsn=nyheder"


If Request.Form("Gem") <> "" Then
    strNavn = Trim(Request.Form("Overskrift"))
    strKommentar = Request.Form("Kommentar")
    strKommentar = Replace(strKommentar, vbCrLf, "<br>")
    strSelskab = Replace(Request.form("Selskab"), vbCrLf, "<br>")
   
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT  * FROM news WHERE (ID = 0)"
    rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
    If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs("Overskrift") = strNavn & vbCrLf
        rs("Kommentar") = strKommentar & vbCrLf
        rs("Selskab") = strSelskab & vbCrLf
        rs("omraade") = Request.Form("omraade")
        rs("Dato") = Date()
        rs("Tid") = Time()
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
    response.redirect("edit.asp")
End If
%>