<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver=Microsoft Access Driver (*.mdb); DBQ=" & server.mappath("apheit_data.mdb") sql_cmd1 = "SELECT * FROM university Order by university.name" Set Rs1 = Server.CreateObject("ADODB.RecordSet") Rs1.Open sql_cmd1, Conn, 0, 3 If Not Rs1.EOF Then %> <% show_siamu = "notyet" while not Rs1.EOF %> <% if show_siamu <> "notyet" then ' ต้องการให้ show ม.สยามขึ้นด้านขวา RS1.Movenext if not RS1.EOF then %> <% RS1.Movenext else%> <%end if else%> <% show_siamu = "yet" RS1.Movenext end if wend end if %>
This part is under construction. More instutions to come soon.
APHEIT Institution's Portal

APHEIT'S VISION
"><%=Rs1("name")%>
"><%=Rs1("name")%>
มหาวิทยาลัยสยาม
Copyright [c] 2001 By Siam University.
235 Petchkasem Road, Phasi-charoen, Bangkok 10160
Tel. (662) 457-0068 Fax. (662) 457-3982
e-mail : webmaster@siam.edu