<% If request.Form("Mail") = "Go" Then sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From=request.form("email") objMail.To="dean@deanscottshow.net" objMail.Subject="Email from Website" objMail.TextBody= vbCRLF & vbCRLF & "Name : " & request.form("fname") & " " & request.form("lname") & vbCRLF & "Address : " & request.form("street") & " " & request.form("street1") & vbCRLF & "City : " & request.form("city") & vbCRLF & "State : " & request.form("state") & vbCRLF & "Zip : " & request.form("zip") & vbCRLF & "Country : " & request.form("country") & vbCRLF & "Company : " & request.form("company") & vbCRLF & "Phone : " & request.form("wphone") & vbCRLF & "Fax : " & request.form("fax") & vbCRLF & "Email : " & request.form("email") & vbCRLF & "Comments : " & request.form("comments") objMail.Send 'dean@deanscottshow.net emailmessage = "Thank You For Your Submission!

" Else End If %>

Contact / Booking Form

Send Dean an email: dean@deanscottshow.net

    First Name

    Last Name

    Email Address  Required Field

    Address


    City

    State/Providence
    Zip/Mail Code
    		 Country
    Venue / Show Info
    Phone
    		Fax

    Comments:

    <%=emailmessage%> this form or for processing.