<% %> <% If blnCAPTCHAcodeCorrect Then 'This is good Else ErrorMessage = ErrorMessage & "
  • Captcha value is incorrect." End If Name = Request.Form("Name") Phone= Request.Form("Phone") Email= Request.Form("Email") Subject= Request.Form("Subject") questions= Request.Form("questions") IsSubmitted = Request.Form("IsSubmitted") If Trim(Name) <> "" And Trim(Phone) <> "" And IsSubmitted="1" And blnCAPTCHAcodeCorrect = true Then Response.Write("Send email") HTMLbody = "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
    " &_ "Name    " &_ "" &_ ""& Name &"
    " &_ "Phone    " &_ "" &_ ""& Phone &"
    " &_ "Email   " &_ "" &_ ""& Email &"
    " &_ "Subject   " &_ "" &_ ""& Subject &"
    " &_ "Questions   " &_ "" &_ ""& Questions &"
    " strTo = "tlg@thelinerguys.com" 'Make sure the From field has no spaces. ' strTo = "nate@photopug.com" strFrom = "non-reply@thelinerguys.com" strSubject = "Website Message" strBody = htmlBody ' Create an instance of the NewMail object. Set objCDOMail = Server.CreateObject("CDO.Message") ' Set the properties of the object objCDOMail.To = strTo objCDOMail.From = strFrom objCDOMail.Subject = strSubject objCDOMail.HTMLBody = strBody 'objCDOMail.ContentType = "text/html" ' Some of the more useful ones I've included samples of here: 'objCDOMail.Cc = "mailto:sschofield@aspfree.com;steve@aspfree.com" Notice this sending to more than one person! 'objCDOMail.Bcc = "sschofield@aspfree.com;steve@aspfree.com" 'objCDOMail.Importance = 1 'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt" ' Send the message! objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method + it clears it out of the Server's Memory. Set objCDOMail = Nothing ' end 2003 server CDO 'parent.location.href = 'http://someurl.here'; response.redirect("contact_form_reply.html") %> <% Else 'We do Nothing End If %> contact form

    <%If Trim(Name) = "" And IsSubmitted="1" Then %>Required<%End if%>

    <%If Trim(Phone) = "" And IsSubmitted="1" Then %>Required<%End if%>

    *Security code: