Nutrazon-Contact Us

<% 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