Dim cn
Dim rst
Dim cmd
Set cn=Server.CreateObject("ADODB.Connection")
Set rst=Server.CreateObject("ADODB.Recordset")
Set cmd=Server.CreateObject("ADODB.Command")
cn.open "uid=user1;pwd=123;
    driver={SQL Server};
    server=its;database=basa_user1"
Set cmd.ActiveConnection=cn
Dim prm1, prm2
' создание параметров 
prm1=Server.CreateObject("ADODB.Parameter")
prm2=Server.CreateObject("ADODB.Parameter")
' определение динамического запроса
cmd.CommandText="update товар set цена=? 
    where название=?"
cmd.CommandType=adCmdText
cmd.Prepared=True
' определение параметра, соответствующего 
' первому знаку ? в SQL-запросе
Set prm1=сmd.CreateParameter("par1", 
    adInteger, adParamInput, , 160)
' определение параметра, соответствующего 
' второму знаку ? в SQL-запросе
Set prm2=сmd.CreateParameter("par2", adChar,
    adParamInput,20 , "Трюфели" )
' добавление параметров в коллекцию параметров
cmd.Parameters.Append prm1
cmd.Parameters.Append prm2
' выполнение SQL-запроса
cmd.Execute