%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%'Process form If Request("hidval") = "submit" Then Dim Fname Dim Lname Dim Address Dim City Dim strState Dim Zip Dim Email Dim Phone Dim Country Dim Education Dim Position Dim Employer Dim Salary Dim txtMessage Fname = TRIM(Request("txtFname")) Lname = TRIM(Request("txtLname")) Address = TRIM(Request("txtAddress")) City = TRIM(Request("txtCity")) strState = TRIM(Request("txtState")) Zip = TRIM(Request("txtZip")) Email = TRIM(Request("txtEmail")) Phone = TRIM(Request("txtPhone")) Country = TRIM(Request("txtCountry")) Education = TRIM(Request("txtEducation")) Position = TRIM(Request("txtPosition")) Employer = TRIM(Request("txtEmployer")) Salary = TRIM(Request("txtSalary")) txtMessage = txtMessage & "Name: " & Fname & " " & Lname & vbcrlf txtMessage = txtMessage & "Adress: " & Address & vbcrlf txtMessage = txtMessage & "City: " & City & vbcrlf txtMessage = txtMessage & "State: " & strState & vbcrlf txtMessage = txtMessage & "Zip: " & Zip & vbcrlf txtMessage = txtMessage & "Email: " & Email & vbcrlf txtMessage = txtMessage & "Phone: " & Phone & vbcrlf txtMessage = txtMessage & "Country: " & Country & vbcrlf txtMessage = txtMessage & "Education: " & Education & vbcrlf txtMessage = txtMessage & "Position: " & Position & vbcrlf txtMessage = txtMessage & "Employer: " & Employer & vbcrlf txtMessage = txtMessage & "Salary: " & Salary & vbcrlf Call SendMail("kbrown@prosourceit.com",Email,"Career Page Submission from SalesSurge.com",txtMessage) Function SendMail(Recip,Sender,Subject,txtMessage) set objMessage = Server.CreateObject("CDO.MESSAGE") If Not (objMessage Is Nothing) Then objMessage.From = Sender objMessage.To = Recip ObjMessage.Subject = Subject ObjMessage.TextBody = txtMessage ObjMessage.Send Else 'Write to error log here End if set objMessage = nothing End Function Response.Redirect("thanks.asp") Else End If %>
|
|
|||||
![]() |
|||||
|
|||||
|
|||||
HOME | COMPANY | SERVICES | SOLUTIONS | CAREERS | CONTACT |
sales training jobs - career sales training - sales skill training