% DBConnString = "SELECT ID, Name, Body " & _ "FROM About " & _ "WHERE Disabled = 0 " & _ "ORDER BY Priority DESC, Name" Set DBCon = Server.CreateObject("ADODB.Connection") DBCon.Open Application("DB") Set DBRec = Server.CreateObject("ADODB.Recordset") DBRec.Open DBConnString, DBCon, 1, 1 If DBRec.EOF And DBRec.BOF Then AboutCount = -1 Else Abouts = DBRec.GetRows() AboutCount = UBound(Abouts,2) End If DBRec.Close Set DBRec = Nothing DBCon.Close Set DBCon = Nothing %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||
| Privacy Policy |
Designed by HyperTEK Corporation |
|||||||||||||||||||||||||||||||||||||||||||||||||