aiutate un ignorante...da CDONTS a CDOSYS

[poldone]

come modifico il codice qui sotto? grazie 1000 !!!



if component="CDONTS" then


Dim MyBody1
Dim MyCDONTSMail1

Set MyCDONTSMail1 = CreateObject("CDONTS.NewMail")
MyCDONTSMail1.From= rs_h("em")
MyCDONTSMail1.To= admin_email
'message subject
MyCDONTSMail1.Subject = "Mail from"& site_name
subj="You have a manual booking request "& VbCrLf
subj=subj&"Hotel Name :"&rs_h("hotel_name")& VbCrLf
subj=subj&"Booking No :"&rs("request_no")& VbCrLf
'message comments
MyCDONTSMail1.Body=subj
MyCDONTSMail1.Send
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
set MyCDONTSMail1=nothing


response.Redirect "confirm.asp?msg=1"
end if
%>

[optime]

ignorante te lo sei detto da solo pigro lo aggiungo io
http://forum.html.it/forum/showthrea...hreadid=682557

[poldone]

ho letto...quindi devo solo cambiare

Set MyCDONTSMail1 = CreateObject("CDONTS.NewMail")

in

Set MyCDONTSMail1 = Server.CreateObject("CDO.Message")

giusto?

grazei

[poldone]

fatto!! Pigrizia vinta!"

if component="CDONTS" then


Dim MyBody1
Dim MyCDONTSMail1

Set MyCDONTSMail1 = Server.CreateObject("CDO.Message")
MyCDONTSMail1.From= rs_h("em")
MyCDONTSMail1.To= admin_email
'message subject
MyCDONTSMail1.Subject = "Mail from"& site_name
subj="You have a manual booking request "& VbCrLf
subj=subj&"Hotel Name :"&rs_h("hotel_name")& VbCrLf
subj=subj&"Booking No :"&rs("request_no")& VbCrLf
'message comments
MyCDONTSMail1.HTMLBody=subj
MyCDONTSMail1.Send
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
set MyCDONTSMail1=nothing


response.Redirect "confirm.asp?msg=1"
end if
%>