%@LANGUAGE="VBSCRIPT"%> <% Dim rsVP Dim rsVP_numRows Set rsVP = Server.CreateObject("ADODB.Recordset") rsVP.ActiveConnection = MM_vpDSN_STRING rsVP.Source = "SELECT * FROM tblCurrency" rsVP.CursorType = 0 rsVP.CursorLocation = 2 rsVP.LockType = 1 rsVP.Open() rsVP_numRows = 0 %>
|
||||||||||||||||||||||||||||||||||