<% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from news WHERE pend=1 ORDER BY newsid DESC LIMIT 3" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF newsid = rstQuery.Fields("newsid") headline = rstQuery.Fields("headline") newsshorttext = rstQuery.Fields("newsshorttext") newstext = rstQuery.Fields("newstext") newsphoto = rstQuery.Fields("newsphoto") newsthumb = rstQuery.Fields("newsthumb") newscaption = rstQuery.Fields("newscaption") newsdate = rstQuery.Fields("newsdate") newsurl = rstQuery.Fields("newsurl") newsurlname = rstQuery.Fields("newsurlname") cluburl = rstQuery.Fields("cluburl") cluburlname = rstQuery.Fields("cluburlname") %>
<%= headline %>
<%= newsshorttext %>
Click to Read Full Story
<% rstQuery.MoveNext Loop Else Response.Write("") End If cnn1.close %>