<% 'Create a variable named SearchText Dim NewsName 'Read the search form variable. We will use CStr 'to make sure we are getting a string. NewsName = request.querystring("newsid") 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 newsid='" & NewsName & "' " set rstQuery = cnn1.Execute(strRstQuery) newsid = rstQuery.Fields("newsid") headline = rstQuery.Fields("headline") newsshorttext = rstQuery.Fields("newsshorttext") newstext = rstQuery.Fields("newstext") newsphoto = rstQuery.Fields("newsphoto") newscaption = rstQuery.Fields("newscaption") newsdate = rstQuery.Fields("newsdate") newsurl = rstQuery.Fields("newsurl") newsurlname = rstQuery.Fields("newsurlname") cluburl = rstQuery.Fields("cluburl") cluburlname = rstQuery.Fields("cluburlname") cnn1.close %>
<%= headline %>
<%= newsdate %> - <%= newstext %>