<% FUNCTION fixQuotes( theString ) fixQuotes = REPLACE( theString, "'", "''" ) END FUNCTION dim x dim body if Request.Form("submit") <> "" then Name = Trim(Request.Form("Name")) Email = Trim(Request.Form("email")) Phone = Trim(Request.Form("Phone")) Comments = Trim(Request.Form("Comments")) Body = "-------------- Contact Form ----------------" & vbCrLf Body = Body & "Name:" & fixQuotes(Name) & vbCrLf Body = Body & "Email:" & fixQuotes(Email) & vbCrLf Body = Body & "Phone:" & fixQuotes(Phone) & vbCrLf Body = Body & "Comments:" & fixQuotes(Comments) & vbCrLf set x = Server.CreateObject("CDONTS.NewMail") x.From = "peggyt@q.com" x.Subject = "Contact Form" x.To = "peggyt@q.com" x.cc = "" x.Body = Body x.Send set x = nothing Response.redirect "contact.asp" end if %>
Home Gallery Client List Contact Peggy
Please feel free to contact me at:

I have a large variety of images and collections available for licensing.
Name:
 Email:
 Phone:

Questions/Comments:


Special Thanks to...
- cypher13 design studio, Boulder, CO
- Fran and Stan Breeen, Naples FL
- Rolf Reiser, Photographer
Copyright © Peggy Turchettte 2008     All Rights Reserved