<%if trim(Request.form("txt_Flg"))="" then call Show_Form(pname) elseif trim(Request.form("txt_Flg"))<> "" then call Send_Email end if %> <%public function Show_Form(pname)%>

Airline Ticket

<%end function%> <%public function Show_Message(MsgType,Msg) if MsgType=trim("success") then %>



Success! <%Response.write(Msg)%>
<%end if end function%> <%public function Send_Email On Error Resume Next Dim Subject, Body, SenderEmail, RecipientEmail, SMTPServer, SMTPusername, SMTPpassword, RecipientPhoneNO, VisitorEmail,TripType, VBody SenderEmail = "RBTour India" SMTPserver = "smtp.gmail.com" SMTPusername = "mailbox@asmitainfosys.com" SMTPpassword = "mailbox123" Subject="BOOKING REQUEST FOR AIRLINE TICKET : " & ucase (trim(request.form("txt_name")))& ", Date : " & Now() Body = "CONTACT PERSON NAME : " & ucase(trim(request.form("txt_name"))) & vbcrlf & _ "TOTAL NO. OF PASSENGER : " & trim(request.form("txt_noofperson")) & vbcrlf & _ "CONTACT EMAIL ADDRESS : " & trim(request.form("txt_email")) & vbcrlf & _ "COUNTRY : " & trim(request.form("txt_country")) & vbcrlf & _ "TRAVELLING DATE : " & trim(request.form("txt_trvldt")) & vbcrlf & _ "RETURNING DATE : " & trim(request.form("txt_retdt")) & vbcrlf & _ "MOBILE NUMBER : " & trim(request.form("txtmobno")) & vbcrlf & _ "ADDRESS : " & trim(request.form("txt_address")) & vbcrlf & _ "PLACES TO TRAVEL : " & trim(request.form("txt_comments")) & vbcrlf & _ "NOTES : " & trim(request.form("txt_Notes")) RecipientEmail= trim(Request.form("txt_email")) RecipientPhoneNO= trim(Request.form("txtmobno")) VBody=" Thank you for contacting RBTour India. The Information you have sent is below :" & vbcrlf & _ " " & vbcrlf & _ Body & vbcrlf & _ "Our Officials will shortly contacting you. Have a prosperous life.... - RBTour India" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "smtpauthenticate") = 1 .Item(sch & "smtpusessl") = True .Item(sch & "smtpserver") = SMTPserver .Item(sch & "sendusername") = SMTPusername .Item(sch & "sendpassword") = SMTPpassword .Item(sch & "smtpserverport") = 465 .Item(sch & "sendusing") = 2 .Item(sch & "connectiontimeout") = 100 .update End With Const cdoSendUsingPickup = "c:\inetpub\mailroot\pickup" Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig cdoMessage.From = SenderEmail cdoMessage.To = "rbtourrajasthan@gmail.com" cdoMessage.ReplyTo = Trim(RecipientEmail) cdoMessage.Subject = Subject cdoMessage.TextBody = VBody cdoMessage.Send If len(RecipientEmail) > 0 then cdoMessage.From = SenderEmail cdoMessage.To = RecipientEmail cdoMessage.ReplyTo = "rbtourrajasthan@gmail.com" cdoMessage.Subject = "Re -" & Subject cdoMessage.TextBody = VBody cdoMessage.Send end if End With Set cdoMessage = Nothing Set cdoConfig = Nothing If Err.Number <> 0 Then Response.Write (Err.Description& "

") else if Len(trim(RecipientPhoneNO))=10 then dim Msg, SndMsg Msg="Information successfully submitted to RBTour India, Officials will respond to you very shortly. Have a prosperous life ahead . RBTour India" 'a1="http://smsghar.com/api/v1/sms/single.json?token=b996073a-e98f-11e4-9c68-b55014f70b3d" 'a2="&msisdn="& Trim(RecipientPhoneNO) 'a3="&text="& Trim(Msg) 'a4="&sender_id=NATHOL&route=TRANS&unicode=true&flash=false" 'SndMsg=a1&a2&a3&a4 'rslt=PostTo("",SndMsg) end if 'Msg="Online Booking (Mobile version) request submitted to office@naturalholidays.in, By " & trim(request.form("txt_name")) & _ '", ( " & trim(request.form("txtmobno")) & " ) Please respond the request..." ' a1="http://smsghar.com/api/v1/sms/bulk.json?token=b996073a-e98f-11e4-9c68-b55014f70b3d" 'a2="&msisdn=9864511081,9864547675" 'a3="&text="& Trim(Msg) 'a4="&sender_id=NATHOL&route=TRANS&unicode=true&flash=false" 'SndMsg=a1&a2&a3&a4 'rslt=PostTo("",SndMsg) call Show_Message("success","Booking form submitted successfully, Officials from RBTour India will contact you shortly... Have a prosperous day., RBTour India.") end if end function %> <%public function PostTo(Data, URL) Dim objXMLHTTP, xml On Error Resume Next Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") xml.Open "POST", URL, False xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xml.Send Data If xml.readyState <> 4 then xml.waitForResponse 10 End If If Err.Number = 0 AND http.Status = 200 then PostTo = xml.responseText else PostTo = "Failed" End If Set xml = Nothing End Function %>