<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsxlrg__MMColParamXlrg
rsxlrg__MMColParamXlrg = "999999"
If (request.querystring("id") <> "") Then
rsxlrg__MMColParamXlrg = request.querystring("id")
End If
%>
<%
Dim rsxlrg
Dim rsxlrg_numRows
Set rsxlrg = Server.CreateObject("ADODB.Recordset")
rsxlrg.ActiveConnection = MM_connprd_STRING
rsxlrg.Source = "SELECT * FROM tblProducts WHERE product_id = " + Replace(rsxlrg__MMColParamXlrg, "'", "''") + ""
rsxlrg.CursorType = 0
rsxlrg.CursorLocation = 2
rsxlrg.LockType = 1
rsxlrg.Open()
rsxlrg_numRows = 0
%>
Coldspring Mill
 .jpg"> |
<%
rsxlrg.Close()
Set rsxlrg = Nothing
%>