Copy link to clipboard
Copied
quote:
<%
Dim RSsepcsubdetail
Dim RSsepcsubdetail_cmd
Dim RSsepcsubdetail_numRows
Set RSsepcsubdetail_cmd = Server.CreateObject ("ADODB.Command")
RSsepcsubdetail_cmd.ActiveConnection = MM_conn_vb_pureinfo_STRING
RSsepcsubdetail_cmd.CommandText = "SELECT * FROM specs_detail WHERE prod_code = ?"
RSsepcsubdetail_cmd.Prepared = true
RSsepcsubdetail_cmd.Parameters.Append RSsepcsubdetail_cmd.CreateParameter("param1", 200, 1, 255, RSsepcsubdetail__MMColParam2) ' adVarChar
Set RSsepcsubdetail = RSsepcsubdetail_cmd.Execute
RSsepcsubdetail_numRows = 0
%>
Copy link to clipboard
Copied
Copy link to clipboard
Copied
Copy link to clipboard
Copied
Find more inspiration, events, and resources on the new Adobe Community
Explore Now