<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("cgi-bin/db/news.mdb") sql="Select * from news order by ID" Set rs = conn.Execute(sql) On error resume next RS.MoveFirst Do while not RS.EOF On error resume next %> <% rs.MoveNext loop rs.CLOSE conn.close %>
World Cup  News & Events
 
 

<%=RS("Title")%>
      <%=RS("Description")%>
       




 

 
110/3-4 Ekkachai Rd., Bangbon, Bangkok, 10150 Thailand.
E-mail: info@worldcup.co.th Tel: (66) 2899-6722 to 33 Fax: (66) 2899-6740

>