%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_masters_STRING MM_masters_STRING = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("/access_db/DB1.mdb") %> <% Dim ptype Dim ptype_numRows Set ptype = Server.CreateObject("ADODB.Recordset") ptype.ActiveConnection = MM_masters_STRING ptype.Source = "SELECT Product FROM Quote" ptype.CursorType = 0 ptype.CursorLocation = 2 ptype.LockType = 1 ptype.Open() ptype_numRows = 0 %>
![]() |
||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||