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"
%>
Yukarıda ki çorba gibi olmuş kod parçacığı ile aşağıdaki düzenli kod parçacığı aynı işi daha performanslı şekilde yapacaktır...
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("veritabani.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.OPEN "SELECT gunc_tarihi FROM ilanlar", Conn, 1, 3
Do While Not objRs.Eof
objRs("gunc_tarihi") = Date()
objRs.Update
objRs.MoveNext : Loop
objRs.Close : Set objRs = Nothing
Conn.Close : Set Conn = Nothing
%>