<% ipp = 18 set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons2.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect Set DbRec=Server.CreateObject("ADODB.RecordSet") DbRec.CursorType = 1 DbRec.Open "SELECT NEWSKEY, CMSRELATIONNAME,SVC_DATE,MODIFYDATE,NEWSTITLE,ISWEBSERVICETYPE FROM newsinfo_quick3 where SVC_CODE = '030305' ORDER BY MODIFYDATE DESC fetch first 18 rows only",DbCon i = 1 Do until DbRec.EOF Or i>ipp Title = DbRec("NEWSTITLE") If Len(Title) > 26 Then Title = Left(Title, 26) & "..." End If If (i = 1 OR i = 7 OR i = 13) Then %>

• &ServiceDate=<%=DbRec("SVC_DATE")%>"><%=Title%>
<% ElseIf (i = 6 OR i = 12 OR i = 18) Then %>
• &ServiceDate=<%=DbRec("SVC_DATE")%>"><%=Title%>

<% Else %>
• &ServiceDate=<%=DbRec("SVC_DATE")%>"><%=Title%>
<% End If DbRec.movenext i = i + 1 loop Dbcon.Close set Dbcon = nothing %>