%@LANGUAGE="VBSCRIPT"%>
<%
Dim flowers__MMColParam
flowers__MMColParam = "1"
if (Request.QueryString("ProductID") <> "") then flowers__MMColParam = Request.QueryString("ProductID")
%>
<%
set flowers = Server.CreateObject("ADODB.Recordset")
flowers.ActiveConnection = MM_expressit_STRING
flowers.Source = "SELECT * FROM products WHERE ProductID = '" + Replace(flowers__MMColParam, "'", "''") + "'"
flowers.CursorType = 0
flowers.CursorLocation = 2
flowers.LockType = 3
flowers.Open()
flowers_numRows = 0
%>
Expressit Flowers by Sara
|
.jpg" alt="<%=(flowers.Fields.Item("ProductID").Value)%>"> |
|
<%=(flowers.Fields.Item("ProductID").Value)%>
- <%=(flowers.Fields.Item("Description").Value)%>
|
|
|
|
<%
flowers.Close()
%>