<% if Request.Querystring("isSubmitted") = "yes" then if [some condition is true] thenDim fname, lname, email, message Dim objCDO fname = Request.Querystring("first_name") lname = Request.Querystring("last_name") EmailVar = Request.QueryString("email") tel = request.QueryString("tel") message = Request.QueryString("message") Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "EmailVar" objCDO.To = "webmaster@veterinaryventures.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "A message from" & fname objCDO.Body = "First name: " & fname & "Last name:" & lname "Email:" & email "Telephone #:" & tel "Message:" & message objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send ConfirmMsg = ("Thank you for submitting your message!") end if %> Contact Us
Please provide us with the following information. This information will not be shared with solicitors.

 

First name:

Last name:

Email adress:

Telephone number (optional, but a great idea if there are issues with email)

 

Your message:


Donate
|
Volunteer
|
Our Wish List
 | Contact Us