<%
dim fname,lname,vbody,spc
dim mesej,mesej2
fname = request.form("fname")
lname = request.form("lname")
if request("submit") <> "" then
mesej = vbcrlf & "These are my message :" & vbcrlf & request.form("mesej") & vbcrlf
mesej2 = vbcrlf & "From : " & " " & fname & " " & lname & vbcrlf
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
dim namakau
namakau = request.form("yourname")
Const cdoSendUsingPickup = 1
set iMsg = Server.CreateObject("CDO.Message")
with iMsg.Configuration
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "webmail.flexi.com.my"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")="administrator@flexi.com.my"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")="flexi123"
.Fields.Update
end with
on error resume next
With iMsg
Set .Configuration = iConf
.To = "tat.kul@ta-travel.com"
' .Cc = "tat.kul@ta-travel.com"
.Bcc = "shirley.kuek@flexi.com.my"
.From = request.form("email")
' .To = "normaizura@flexi.com.my"
' .From = "nmaizura@hotmail.com"
' .Subject = "This is a test CDOSYS message (Pickup directory)"
'.HTMLBody = strHTML
.Subject = "TA WEB- Contact Us (Feedback Form)"
.textBody = "Please contact me" & mesej & vbcrlf & mesej2
.Send
End With
' cleanup of variables
Set iMsg = Nothing
' Set iConf = Nothing
Set Flds = Nothing
' if err.number <> 0 then
' response.write err.description
' end if
' response.Redirect "airticket.asp"
end if
%>
TA TRAVEL SDN BHD ::Your One Stop Travel Solutions
