%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Highlights Dim Highlights_numRows Set Highlights = Server.CreateObject("ADODB.Recordset") Highlights.ActiveConnection = MM_RAMhighlights_STRING Highlights.Source = "SELECT * FROM highlights" Highlights.CursorType = 0 Highlights.CursorLocation = 2 Highlights.LockType = 1 Highlights.Open() Highlights_numRows = 0 %>
|
|||||||||||
|
||||||||||
|
||||||||
|
||||||||
|
|||||||||||||||||||||||||
<% Highlights.Close() Set Highlights = Nothing %>