%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsVOKtails__MMColParam
rsVOKtails__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rsVOKtails__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rsVOKtails
Dim rsVOKtails_numRows
Set rsVOKtails = Server.CreateObject("ADODB.Recordset")
rsVOKtails.ActiveConnection = MM_vok_STRING
rsVOKtails.Source = "SELECT * FROM dbo.Products WHERE ID = " + Replace(rsVOKtails__MMColParam, "'", "''") + ""
rsVOKtails.CursorType = 2
rsVOKtails.CursorLocation = 2
rsVOKtails.LockType = 3
rsVOKtails.Open()
rsVOKtails_numRows = 0
%>
VOK Beverages