%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%' Process form If Request("hidval") = "submit" Then Dim strName Dim Phone Dim Email Dim Comm Dim Msg strName = TRIM(Request("txtName")) Phone = TRIM(Request("txtPhone")) Email = TRIM(Request("txtEmail")) Comm = TRIM(Request("txtComm")) Msg = Msg & "Name: " & strName & vbcrlf Msg = Msg & "Phone: " & Phone & vbcrlf Msg = Msg & "Email: " & Email & vbcrlf Msg = Msg & "Question/Comment: " & Comm & vbcrlf Call SendMail("kbrown@prosourceit.com",Email,"Contact Page Submission from SalesSurge.com",Msg) 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 |