<% Dim prod prod = Request.QueryString("prod") dim rstDoc set rstDoc = Server.CreateObject("ADODB.Recordset") rstDoc.open "Select * from infproduct", dbConnection set rstPro=rstDoc("pro") set rstName=rstDoc("namstr") set rstHeader=rstDoc("namedoc") dim i i=1 Do Until rstDoc.EOF If prod=rstPro Then %> <%=rstName%>

<% End If rstDoc.MoveNext i=i+1 Loop %>