I would like to know if this can be achieved! On the form I a drop down menu that's called ("Escalation_type") the values are eta, hdtv, and supervisors. I have some ideas but I am not sure if it will work or not. If the use chooses an eta as a value I would like it to be sent a mailbox for exam: [email protected]. If they choose hdtv as value I would like it to be sent to a different mailbox. Can this be achieve by using the case statement or the if statement?

Thank you

Hello,

  Yes, it is possible. But you have to have a condition to check the value selected. If so, you are not sure how many values may be there in the drop down box. If it is limited then OK.


set sndMail=server.createObject("CDONTS.NewMail")
If request("selEsc")="eta" then
  sndMail.To="[email protected]"
elseif request("selEsc")="hdtv" then
  sndMail.To="[email protected]"
end if

I am getting the following error when an email is sent.

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/forms/Confirmation.asp, line 88

Line 88 is objCdoSys.Send()


Dim objCdoSys, cdoConf, cdoFlds


If request.form("Escalation_Type")="Eta" then


objCdoSys.To = "[email protected]"

elseif request.form("Escalation_Type")="HDTV" then


objCdoSys.To = "[email protected]"


elseif request.form("Escalation_Type")="Supervisor" then

objCdoSys.To = "[email protected]"


end if


Set objCdoSys = Server.CreateObject("CDO.Message")
Set cdoConf = Server.CreateObject("CDO.Configuration")
set cdoFlds = cdoConf.Fields
With cdoFlds
.Item("http://schemas.microsoft.com/cdo/co...ation/sendusing") = 2 '1 is default and means server on local machine, 2 means remote server
.Item("http://schemas.microsoft.com/cdo/co...tion/smtpserver") ="my.domain.com" 'here is the remote server we want to send through
.Update
End With

Set objCdoSys.Configuration = cdoConf
objCdoSys.From ="[email protected]"
'objCdoSys.To = "[email protected]"

objCdoSys.Subject = "A form was just sent to you!"
objCdoSys.TextBody = "Please click here: [email protected] "
objCdoSys.Fields("urn:schemas:httpmail:importance" ).Value = 1
objCdoSys.Fields.Update()
objCdoSys.Send()

Set objCdoSys = Nothing

hi,

  Response.write objCdoSys.To

and see whether any email ID is assigned or not.

Calibus,

What is there on line number 88? Looks like TO is not specified at all, which means none of the Escalation_Type conditions were satisfied.

Check that out.

_________________________
- Vijay G
Strive for Perfection