<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt20.mdb")
%>
<%
id= Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sor = "Select * from dosyalar where id like '" & id & "'"
rs.Open sor,Baglanti,1,3
%>
<%
If rs.eof then
Response.Write "<center>İşlem Tamamdır.</center>"
Response.End
End If
%>
<%
idd=rs("id") ' "id" yazan yeri veritabanına göre değiştir "idd" yazan yeri elleme
idd=idd+1
%>
<meta http-equiv="refresh" content="1;url=qwq.asp?id=<%=idd%>" />
<font size="6">
<%=rs("adres") %></font>
<%=title%><%
adres=rs("adres")
adres="x"+adres
rs("adres")=adres
rs.Update
%>
bu kodları qwq.asp diye ve veritabanının olduğu klasöre kaydet ve qwq.asp?id=1 diye başlat
40.000 i böyle tek tek yaparsa uzun sürer o yüzden bu sayfalardan 39 tane aç.
firefox da sekme olarka açarsın her yeni sekmede qq.asp?id=1 qq.asp?id=1000 qq.asp?id=2000 qq.asp?id=3000 ..... diye devam etsin böylece 39 tane sayfa devaml ıkendini güncellesin 120.000 veri değiştirdim hiç sorun çıkmadı gerçi biraz uzun sürüyo ama napalım
edit: tablo adını dosyalar yerine tablolar yazmışım düzelttim.