Set sql = Server.CreateObject("ADODB.Command")
sql.ActiveConnection=Conn
sql.Prepared = true
sql.commandtext="SELECT col1, col2 from table where col3=?"
set rs1 = sql.execute
MyValue = request.querystring("Value")
Set sql = Server.CreateObject("ADODB.Command")
sql.ActiveConnection=Conn
sql.Prepared = true
sql.commandtext="SELECT col1, col2 from table where col3=?"
sql.Parameters.Append sql.CreateParameter("@col3", adInteger, adParamInput, , MyValue)
set rs1 = sql.execute