%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim expirecoupon Dim expirecoupon_numRows Set expirecoupon = Server.CreateObject("ADODB.Recordset") expirecoupon.ActiveConnection = MM_couponfcars_STRING expirecoupon.Source = "SELECT * FROM expire" expirecoupon.CursorType = 0 expirecoupon.CursorLocation = 2 expirecoupon.LockType = 1 expirecoupon.Open() expirecoupon_numRows = 0 %>
|
|---|