Sorunu çözdüm.İlgilenen arkadaşlara teşekkür ediyorum.Nasıl çözüldü derseniz işte kodlar:
<%
vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("data/gurbuzeml.mdb")
set conn = Server.CreateObject("adodb.connection")
set rh15 = Server.CreateObject("adodb.recordset")
conn.open vt

id=Request.QueryString("id")
gunc_tarihi = Date()

Set rh15 = Conn.EXECUTE("SELECT * FROM ilanlar" )
IF NOT rh15.EOF THEN
While NOT rh15.EOF
Set Rsx = Server.CreateObject("AdoDB.RecordSet" )
Rsx.OPEN "SELECT * FROM ilanlar WHERE id="&rh15("id" )&"",conn,1,3
Rsx.Update
Rsx("gunc_tarihi" ) = gunc_tarihi
Rsx.UpDate


rh15.MoveNext:Wend
END IF
response.redirect "default.asp?part=ekle&islem=toplu"

%>

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 18:33:46 -->-> Daha önceki mesaj 18:31:55 --

Sorun çözülmüştür.İşte kodlar:

<%
vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("veritabani.mdb")
set conn = Server.CreateObject("adodb.connection")
set rh15 = Server.CreateObject("adodb.recordset")
conn.open vt

id=Request.QueryString("id")
gunc_tarihi = Date()

Set rh15 = Conn.EXECUTE("SELECT * FROM ilanlar" )
IF NOT rh15.EOF THEN
While NOT rh15.EOF
Set Rsx = Server.CreateObject("AdoDB.RecordSet" )
Rsx.OPEN "SELECT * FROM ilanlar WHERE id="&rh15("id" )&"",conn,1,3
Rsx.Update
Rsx("gunc_tarihi" ) = gunc_tarihi
Rsx.UpDate


rh15.MoveNext:Wend
END IF
response.redirect "default.asp?part=ekle&islem=toplu"

%>