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