<% ' Declare variables 'Dim objConnection 'Dim objRecordset 'strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("price2000.mdb") & ";" 'set objConnection = server.createobject("ADODB.Connection") 'objConnection.Open strProvider ' Create objects Set objConnection = Server.CreateObject("ADODB.Connection") Set objRecordset = Server.CreateObject("ADODB.Recordset") ' Open connection and run query objConnection.Open "price2000" objRecordset.Open "SELECT * FROM Прайс WHERE Код =" & Request.QueryString("kod"), objConnection ' Build list. ' The description is shown in the list ' but the ItemID is returned in code ' so that you can search the database. %>

<%=objRecordset("Наименование")%>

<%=objRecordset("Фирма_Марка")%> <%=objRecordset("Марка")%>

<%=objRecordset("Цена")%> <%=objRecordset("Валюта")%> <%=objRecordset("Характеристика")%>  <%=objRecordset("Описание")%> <%=objRecordset("Описание2")%>

<% ' Close the connection objRecordset.Close ' objConnection.Close Set objRecordset = Nothing 'Set objConnection = Nothing %>