<% If Trim("" & Request.Form("mail")) <> "" And Trim("" & Request.Form("select")) <> "" Then cBody = "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "" cBody = Mid(cBody, 1) & "
Name:" & Trim("" & Request.Form("Name")) & "
E-mail:" & Trim("" & Request.Form("mail")) & "
Phone:" & Trim("" & Request.Form("phone")) &"
Message:" & Trim("" & Request.Form("message")) & "
" cBody = Mid(cBody, 1) & "" ON ERROR RESUME NEXT Set objNewMail = Server.CreateObject("CDO.Message") If Not Err.Number > 0 Then objNewMail.From = Trim("" & Request.Form("mail")) objNewMail.To = Trim("" & Request.Form("select")) objNewMail.Subject = "Dependent Information" objNewMail.HTMLBody = "" & cBody objNewMail.Send Set objNewMail = Nothing End If ON ERROR GOTO 0 Response.Redirect "ThankYou.asp" End If %> Nutrazon-Contact Us
 

 

Contact us

To:
Name:
E-Mail:
Phone:
Message: