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