<% Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby Dim objCDOMail 'The CDO object 'First we'll read in the values entered strTo = "wusean@home.com" 'These would read the message subject and body if we let you enter it 'strSubject = Request.Form("subject") 'strBody = Request.Form("body") ' Set Reture Key CH = Chr(13) & Chr(10) strSubject = "Qutoe Request" strBody = "Description of your project (Quantity, Number of Pages. Size-Flat & Folded)" & CH strBody = strBody & Request.Form("desc") & CH & CH strBody = strBody & "Will you provide disk or negatives" & CH strBody = strBody & Request.Form("provid") & CH & CH strBody = strBody & "Number of Colors (Each Side)" & CH strBody = strBody & Request.Form("colors") & CH & CH strBody = strBody & "Paper" & CH strBody = strBody & Request.Form("paper") & CH & CH strBody = strBody & "Finishing (Saddle Stitched, Fold - how?, Foil Stamp, Emboss)" & CH strBody = strBody & Request.Form("finish") & CH & CH strBody = strBody & "Special packaging" & CH strBody = strBody & Request.Form("packing") & CH & CH strBody = strBody & "Company Name" & CH strBody = strBody & Request.Form("co") & CH & CH strBody = strBody & "Your Name" & CH strBody = strBody & Request.Form("name") & CH & CH strBody = strBody & "E-mail" & CH strBody = strBody & Request.Form("mail") & CH & CH strBody = strBody & "Phone" & CH strBody = strBody & Request.Form("phone") & CH & CH ' A final carriage return for good measure! strBody = strBody & vbCrLf ' Create an instance of the NewMail object. Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("mail") objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody ' I've had several Requests for how to send HTML email. ' To do so simply set the body format to HTML and then ' compose your body using standard HTML tags. 'objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML ' Send the message! objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing Response.Write "Message sent to " & strTo & "!" ' End page logic %> <% ' Only functions and subs follow! ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %>