Feeback Mail

<%response.buffer=true Func = Request("Func") if isempty(Func) then Func = 1 end if %> <% Select case Func case 1 %>

Home About us Service Offering Career @ Verge Latest updates Contact Verge U.S.A.

Search :

Career Mapping @ Verge Consulting (Online Application Form)

Fields marked with an asterisk (*) are required.

Applied for position


First Name*	:		Last Name*	:

Gender*	:	Male Female	Marital Status*	:

Country*	:		State*	:

City*	:		Telephone Number*	:

Mobile Number*	:

Qualification & Job Profile Details

Qualification*

Language known*

Enter Comma for separated Value

Current Job Title*

Total Experience*

	Upload Cv*		:

<% case 2 On Error Resume Next Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = False Dim serverpath serverpath = server.MapPath("Uploaded_files") Count = Upload.Save(serverpath) If Count > 0 Then Set File = Upload.Files(1) serverpath = serverpath & "\" & File.FileName End If Dim sendMessage sendMessage = "" sendMessage=sendMessage & "" sendMessage=sendMessage & "Feeback Mail" sendMessage = sendMessage & "" & "
" For Each Item in Upload.Form sendMessage =sendMessage & Item.Name & ":" & Item.Value & "
" 'MsgBody = MsgBody & Response.Form Item.Name & ":" & Item.Value Next sendMessage=sendMessage & "" sendMessage = sendMessage & "" sendMessage = sendMessage & "" ' CDO mail object sch = "http://schemas.microsoft.com/cdo/configuration/" Set objCDOMail = Server.CreateObject("CDO.Configuration") objCDOMail.Fields.Item(sch & "sendusing") = 2 objCDOMail.Fields.Item(sch & "smtpserver") = "localhost" objCDOMail.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = objCDOMail ' CDO mail setttings with cdoMessage '.TextBody = sendMessage .HtmlBody = sendMessage .Subject = "Online Application" .From = "career@vergeconsulting.org" .To = "indra@vergeconsulting.org" .Cc = "contact_us@vergeconsulting.org" '.MailFormat = 0 .AddAttachment serverpath '.MailFormat = 0 '.BodyFormat = 0 .Send end with ' destroy object, free memory Set cdoMessage = Nothing Set objCDOMail = Nothing if Err.Number <> 0 Then Response.Write "An error occured getting the description: " & Err.Description & " --- Ibrahim.... "& "
" Response.End end if 'Response.Write ("Description: Else........... Ibrahim") 'Response.End Response.Redirect "http://www.vergeconsulting.org/thanku.htm" end select %>

<% Response.write Name%>

Website Designed by Puratech