Your resume has been uploaded successfully.

 

 

 

 

 

 

<% set o = new clsUpload if o.Exists("cmdSubmit") then 'get client file name without path sFileSplit = split(o.FileNameOf("txtFile"), "\") sFile = sFileSplit(Ubound(sFileSplit)) o.FileInputName = "txtFile" o.FileFullPath = Server.MapPath(".") & "\resumes\" & sFile o.save if o.Error = "" then response.write "Success. File saved to " & o.FileFullPath & ". Demo Input = " & o.ValueOf("Demo") 'Prepare contents txtName = o.ValueOf("txtName") txtEmail = o.ValueOf("txtEmail") txtPhone = o.ValueOf("txtContactNo") emailTo = "info@rc.ae,salman@epm.ae" emailFrom = "info@rc.ae" emailSubject = "New Resume Received from www.rc.ae " emailBody = "From : " + txtName & vbCrLf & _ "Email : " + txtEmail & vbCrLf & _ "Contact No. : " + txtPhone & vbCrLf & _ " Download Resume ." Response.write "
" + emailBody ' -- begin email send process -- ' -- set our email object variable as the required object type -- Set objMail = CreateObject("CDONTS.NewMail") objMail.To = emailTo objMail.From = emailFrom objMail.Subject = emailSubject objMail.BodyFormat = "0" ' -- HTML format objMail.Body = emailBody ' -- send the email -- objMail.Send ' -- clean up object Set objMail = Nothing 'response.redirect("feedback_ack.htm") else response.write "Failed due to the following error: " & o.Error end if end if set o = nothing %>

Home | Profile | The Royal Philosophy | Rate Inquiry | Feedback | Tools | Contact Us | Careers

2009 © Copyright Royal Cargo. All rights reserved.