<% Set conn = Server.CreateObject("ADODB.Connection") dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veritabani.mdb") conn.open dsn action = Request.Form("action") updateRecordsArray = Split(Request.Form("recordsArray[]"),",") If action = "updateRecordsListings" Then listingCounter = 1 Set RS=Server.CreateObject("ADODB.RecordSet") For i = 0 To Ubound(updateRecordsArray) id = Int(updateRecordsArray(i)) Sql = "Select * From records WHERE recordID = " & id RS.Open Sql, conn, 1, 3 RS("recordListingID") = listingCounter listingCounter = listingCounter + 1 RS.Update RS.Close Next End If Response.Write "Sıralama:
" For i = 0 To Ubound(updateRecordsArray) Response.Write updateRecordsArray(i) Next 'Response.Write action %>