<%@LANGUAGE="VBSCRIPT"%> <% call addCounter("newcampus") %> <% Dim rsNewSchool Dim rsNewSchool_numRows Set rsNewSchool = Server.CreateObject("ADODB.Recordset") rsNewSchool.ActiveConnection = MM_cnPmnews_STRING rsNewSchool.Source = "SELECT * FROM newschool ORDER BY id DESC" rsNewSchool.CursorType = 0 rsNewSchool.CursorLocation = 2 rsNewSchool.LockType = 1 rsNewSchool.Open() rsNewSchool_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsNewSchool_numRows = rsNewSchool_numRows + Repeat1__numRows %> 校舍介紹

 

快將推出

  <% While ((Repeat1__numRows <> 0) AND (NOT rsNewSchool.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNewSchool.MoveNext() Wend %>
<%=(rsNewSchool.Fields.Item("date").Value)%>
  " width="100" height="76" class="bodytext">   <%=(rsNewSchool.Fields.Item("title").Value)%>
<%=(rsNewSchool.Fields.Item("content").Value)%>
 

 
 


本網頁建議以IE 5.5或Netscape 6.0以上版本,800×600像素以上瀏覽最佳。
Best viewed with IE 5.5 / Netscape 6 or above in 800x600 resolution
<% rsNewSchool.Close() Set rsNewSchool = Nothing %>