ผมจะสร้าง ListBox/Menu เพื่อใช้ผู้ใช้สามารถเลือกว่าให้ข้อมูลเรียงตามชื่อหรือวันที่

<%
ID=POS_ID
sql = "SELECT     *     FROM   BKK_PICTURE     WHERE     (sub_id = '"&request("id")&"')  ORDER BY pic_name"
rs.close
rs.open sql,conn,3,1
for i=1 to rs.recordcount 
<!-- Thumbnail=C1.FindPathFile("D:\FAD\fad_bkk\Photo\ARC\"&rs("PIC_NAME")&"","..\Photo\ARC\",Thumbnail) -->
%>

<%
ID=POS_ID
sql = "SELECT     *     FROM   BKK_PICTURE     WHERE     (sub_id = '"&request("id")&"')  ORDER BY pic_date"
rs.close
rs.open sql,conn,3,1
for i=1 to rs.recordcount 
<!-- Thumbnail=C1.FindPathFile("D:\FAD\fad_bkk\Photo\ARC\"&rs("PIC_NAME")&"","..\Photo\ARC\",Thumbnail) -->
%>