<SCRIPT language=VBSCript>

	Const adVarChar = 200

	Dim Rs

	Set Rs = CreateObject("ADODB.Recordset")
	Rs.Fields.Append "ソートキー", adVarChar,255
	Rs.Fields.Append "ソートデータ", adVarChar,255
	Rs.Open

	Rs.AddNew
	Rs.Fields("ソートキー").value = "C"
	Rs.Fields("ソートデータ").value = "山田"
	Rs.Update

	Rs.AddNew
	Rs.Fields("ソートキー").value = "A"
	Rs.Fields("ソートデータ").value = "田中"
	Rs.Update

	Rs.AddNew
	Rs.Fields("ソートキー").value = "B"
	Rs.Fields("ソートデータ").value = "鈴木"
	Rs.Update

	Rs.Sort = "ソートキー"

	Rs.MoveFirst

	Do while not Rs.EOF

		document.write Rs.Fields("ソートキー").value & " : "
		document.write Rs.Fields("ソートデータ").value & "<BR>"

		Rs.MoveNext

	Loop

	Rs.Close

	Set Rs = Nothing

</SCRIPT>