Set comm = Server.CreateObject("ADODB.Command")
Set comm.ActiveConnection = strConn

comm.commandtext = "Kirim_Mail"
comm.commandType = 4

Set param = comm.Parameters
param.Append comm.CreateParameter("noreply@yahoo.co.id",200,1, ,prmFrom)
param.Append comm.CreateParameter("_a_a_a@yahoo.co.id",200,1, ,prmTo)
param.Append comm.CreateParameter("test",200,1, ,prmSubject)
param.Append comm.CreateParameter("message",200,1, ,prmMessage)

comm.execute()