[absconder]

<%
function quickSORT(altNDX, ustNDX,sortTYP)
	I = altNDX
	J = ustNDX
	comPARE = myARR((altNDX + ustNDX) \ 2)
	Do
		If sortTYP Then
			While myARR(I) < comPARE
				I = I + 1
			Wend
			While comPARE < myARR(J)
				J = J - 1
			Wend
		Else
		While myARR(I) > comPARE
			I = I + 1
		Wend
		While comPARE > myARR(J)
			J = J - 1
		Wend
		End If
		If I <= J Then
			tmpDGR= myARR(I)
			myARR(I) = myARR(J)
			myARR(J) = tmpDGR
			I = I + 1
			J = J - 1
		End If
	Loop Until I > J
	If altNDX < J Then
		call quickSORT (altNDX, J, sortTYP)
	End If
	If I < ustNDX Then
		call quickSORT (I, ustNDX, sortTYP)
	End If
End function

randomize timer
dim myARR()
boyUT=10
'sıralanacak dizi
redim myARR(boyUT)
'sıralama tipi || true=küçükten büyüğe | false=büyükten küçüğe
sortTYP=true	
for i=1 to boyUT
	myARR(i)=int(rnd*1000)
	response.write myARR(i)&" "
next
'sıralama başlangıç indexi
altNDX=1
'sıralama bitiş indexi
ustNDX=10
call quickSORT(altNDX, ustNDX, sortTYP)
response.write "<br>"
for i=1 to boyUT
	response.write myARR(i)&" "
next
%>