<?xml version="1.0" encoding="UTF-8"?>
<%
Response.ContentType = "text/html" 
Response.Charset = "UTF-8" 
%>

<!--#include file ="../veriables.asp"-->
<%
Set conn = Server.CreateObject("ADODB.Connection")
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/"&datayol&".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 album WHERE kategoriid = " & id
		RS.Open Sql, conn, 1, 3
		RS("listtype") = listingCounter
		listingCounter = listingCounter + 1
		RS.Update
		RS.Close
	Next
End If
%>