%@LANGUAGE="VBSCRIPT"%> <% set oRs = Server.CreateObject("ADODB.Recordset") %> <% oRs.Source = "SELECT * FROM policy ORDER BY Modder" oRs.CursorType = 0 oRs.CursorLocation = 2 oRs.LockType = 3 oRs.Open oRs_numRows = 0 %>
|
|
<% oRs.Movenext intCounter =intCounter + 1 if oRS.EOF then Exit DO End If loop %>
|
Site Design & Graphics by Jon MacLellan. |