%@ LANGUAGE="VBSCRIPT" %> <% sAffID = "SPK0002" Dim cn, strStatus, strSelect, strSpeed, strGo Set cn = Server.CreateObject("ADODB.Connection") cn.Open "LegalSpan", "ASP", "JDPswdASP" On Error Resume Next Set cmdNews = Server.CreateObject("ADODB.Command") Set rsNews = Server.CreateObject("ADODB.Recordset") strSQLNews = "SELECT News.artID, News.artTitle, News.artDate, News.artPub, News.artActive, News.artSortDate, News.artUserPages FROM News " strSQLNews = strSQLNews & "WHERE News.artActive <> 0 " strSQLNews = strSQLNews & "AND News.artSubjectArea = '" & sAffID & "' ORDER BY artSortDate DESC" cmdNews.CommandText = strSQLNews Set cmdNews.ActiveConnection = cn rsNews.Open cmdNews %>
|
|
|
|
|
|
|||||||||||||||