<%
SQL = "SELECT * from DIC_Products Where Product_name = '" & Request ("vproducts") & "'"
RS.Open SQL, CONN, 1, 1
IF f.eof and lys.bof?
Response.write (Request ("vproducts"))
Response.end
Else
PID = RS ("Product_ID")
END IF
Rs.close
%>