Inserire in automatico Timestamp prima di scrivere nel DB

[fortitudo]

Salve,

ho questo codice per recuperare i dati e poi scriverli in un db:

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("../../fpdb/esterno.mdb")

Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
sSQL="select * from tizio order by ID DESC"
objRS.Open sSQL, objConn, 3, 3
%>

<%
' Recuperiamo i dati dal form
dim strNome
strNome = request.form("Nome")

' Connessione al DB
myDB = "../../fpdb/esterno.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)

' Lavoriamo sul Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "tizio", conn, 3, 3
rs.addnew
rs("Nome") = strNome

rs.update

' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

%>


Funziona tutto ok.
Avrei bisogno però che quando scrive nel db, mi scriva in automatico anche la data e l'ora di inserimento. Che andrà a finire nel camp Timestamp.

Che codice devo utlizzare? Come posso fare?

Grazie

[agenti]

rs.addnew
rs("Nome") = strNome
rs("timeStamp") = now()
rs.update

[Santino83_02]

Originariamente inviato da agenti
rs.addnew
rs("Nome") = strNome
rs("timeStamp") = now()
rs.update

now non è timestamp...

function TimeStampDate()
	
	data = now()
	hTime = time()
	
	dim gg, mm, yyyy, hh,nn,ss
	gg = datepart("d",data)
	mm = datepart("m",data)
	yyyy = datepart("yyyy",data)
	hh = datepart("h", hTime)
	nn = datepart("n",hTime)
	ss = datepart("s",hTime)
	
	TimeStampDate = yyyy & "-" & mm & "-" & gg & " " & hh & ":" & nn & ":" & ss

end function

rs("timeStamp") = TimeStampDate()

[agenti]

scusasse....