Thriller Powerboat Tours - A high speed thriller boat ride on a real racing catamaran in the Bahamas

<%@LANGUAGE="VBSCRIPT"%> <% Dim RsProducts__MMColParam RsProducts__MMColParam = "1" If (Request.QueryString("ProductId") <> "") Then RsProducts__MMColParam = Request.QueryString("ProductId") End If %> <% Dim RsProducts Dim RsProducts_numRows Set RsProducts = Server.CreateObject("ADODB.Recordset") RsProducts.ActiveConnection = MM_connThriller_STRING RsProducts.Source = "SELECT * FROM Products WHERE ProductId = " + Replace(RsProducts__MMColParam, "'", "''") + "" RsProducts.CursorType = 0 RsProducts.CursorLocation = 2 RsProducts.LockType = 1 RsProducts.Open() RsProducts_numRows = 0 %> Thriller Powerboat Tours - A high speed thriller boat ride on a real racing catamaran in the Bahamas

border=1">	<%=(RsProducts.Fields.Item("Product").Value)%>
	<%=(RsProducts.Fields.Item("Description").Value)%>

<%=(RsProducts.Fields.Item("Size").Value)%>
<%=(RsProducts.Fields.Item("Color").Value)%>
<%=(RsProducts.Fields.Item("Price").Value)%>

<% Dim CurrentURL CurrentURL = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") %>

Translate this page:

<% RsProducts.Close() Set RsProducts = Nothing %>