%Option Explicit Response.Buffer = True Dim sDataPath Dim strPath Dim sMailPath Dim objRst Dim strSQL Dim x %> <% Sub NewsItem 'Setup SQL strSQL = ("Select * From News Order By dDate Desc") 'Open Recordset If DB_GetRS(objRst, strSQL) = 1 Then if not objRst.EOF then x = 1 do while not objRst.EOF Response.Write "
![]() |
![]() |
![]() |
||
|
|
![]() ![]()
|
||
|
||||