<%
Option Explicit
Dim conn
Dim RSProduct
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "twoje_haslo"
set RSProduct = conn.Execute("select * from Products where " _
  & "ProductID = " & Request.QueryString("ProductID"))
%>
