Contact Form

Please enter the relevant information as completely possible in the forms below to send us a message.

*Required Information

<% dim flname, email, phone, subject, message, validform flname = Request.Form("name") email = Request.Form("email") phone = Request.Form("phone") subject = Request.Form("subject") message = Request.Form("message") dim namerr, emailerr, messagerr validform = true if request.Form("submit") <> "" then if flname = "" then validform = false namerr = "

Please enter your name

" end if if InStr(1,email,"@",vbTextCompare) = 0 OR _ InStr(1,email,".",vbTextcompare) = 0 Then validform = false emailerr = "

Please enter a valid email address

" end if if message = "" then validform = false messagerr = "

Please enter a message to be sent

" end if if validform = false then Response.Write "

" & namerr & emailerr & messagerr & "
" End if if validform = true then set Mail=Server.CreateObject("CDONTS.NewMail") Mail.From = email Mail.To= "coyotecha@gmail.com;info@paradigmbusiness.com" Mail.Subject = subject Mail.Body = "

An email has been sent from Paradigm Business Solution Contact form by " & flname & "

Name: " & flname & "
Email Address: " & email & "
Phone Number: " & phone & "
Subject: " & subject & "


Message: " & message & "

" Mail.BodyFormat=0 Mail.MailFormat=0 Mail.Send set Mail=nothing Response.Write "

Your message has been sent successfully

" end if end if %>

Name:	*
Email:	*
Phone #:
Subject:
Message:	*
	Send  Clear