<%
Dim Cmd,prm,rs
Set Cmd = Server.CreateObject("ADODB.Command")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Cmd.ActiveConnection = conn
Cmd.CommandText = "select * from Temp where Caption = ?"
Cmd.CommandType = AdCmdText
Cmd.Prepared = True
Set prm = Cmd.CreateParameter("Caption", adVarChar, adParamInput, 50)
Cmd.Parameters.Append prm
Cmd("Caption") = "a"

rs.open Cmd, ,AdOpenForwardOnly, AdLockReadOnly,adCmdText
if rs.RecordCount > 0 then
response.write "YES"
else
response.Write "NO"
end if
rs.close
conn.close
%>