<% Language=VBScript objFrom = Request.Form("CONTACT") & " AT " & Request.Form("COMPANY") objContact = Request.Form("CONTACT") objCompany = Request.Form("COMPANY") objAddress1 = Request.Form("ADDRESS1") objAddress2 = Request.Form("ADDRESS2") objCity = Request.Form("CITY") objState = Request.Form("STATE") objZip = Request.Form("ZIP") objEmail = Request.Form("EMAIL") objPhone = "(" & Request.Form("PhoneArea") & ") " & Request.Form("PhoneNo") objFax = "(" & Request.Form("FaxArea") & ") " & Request.Form("FaxNo") objC1 = Request.Form("C1") objC2 = Request.Form("C2") objC3 = Request.Form("C3") objC4 = Request.Form("C4") objC5 = Request.Form("C5") objC6 = Request.Form("C6") objC7 = Request.Form("C7") objC8 = Request.Form("C8") objC9 = Request.Form("C9") objC10 = Request.Form("C10") objTother = Request.Form("Tother") ObjComments = Request.Form("Comments") objFunction = Request.Form("function") objBody = objBody & "COMPANY = " & objCompany & vbcrlf objBody = objBody & "CONTACT = " & objContact & vbcrlf objBody = objBody & "EMAIL = " & objEmail & vbcrlf objBody = objBody & "ADDRESS = " & objAddress1 & vbcrlf objBody = objBody & " = " & objAddress2 & vbcrlf objBody = objBody & "CITY = " & objCity & vbcrlf objBody = objBody & "STATE = " & objState & vbcrlf objBody = objBody & "ZIP = " & objZip & vbcrlf objBody = objBody & "PHONE = " & objPhone & vbcrlf objBody = objBody & "FAX = " & objFax & vbcrlf & vbcrlf objBody = objBody & "TRADES: " & vbcrlf & " " If objC1 <> "" Then objBody = objBody & "Electric " End If If objC2 <> "" Then objBody = objBody & "HVAC " End If If objC3 <> "" Then objBody = objBody & "Sprinkler " End If If objC4 <> "" Then objBody = objBody & "Plumbing " End If If objC5 <> "" Then objBody = objBody & "Drywall & Metal Studs " End If If objC6 <> "" Then objBody = objBody & "Painting " End If If objC7 <> "" Then objBody = objBody & "Carpentry " End If If objC8 <> "" Then objBody = objBody & "Glazing " End If If objC9 <> "" Then objBody = objBody & "Flooring " End If If objC10 <> "" Then objBody = objBody & "Concrete " End If objBody = objBody & vbcrlf & vbcrlf & "OTHER TRADES: " & vbcrlf & objTother objBody = objBody & vbcrlf & vbcrlf & "COMMENTS: " & vbcrlf & objComments If objFunction = "send" AND objContact <> "" AND objBody <> "" Then objFrom = "www.midwestern-builders.com" objSubject = "RE: Website Request For Bid Form from " & objCompany Set Mail = CreateObject("CDONTS.Newmail") Mail.To = "projects@midwestern-builders.com" Mail.From = objFrom Mail.Subject = objSubject Mail.Body = objBody Mail.Send Set Mail = Nothing objBody = vbcrlf & objContact & "," & vbcrlf & vbcrlf & "Thank you for submiting a Request For Bid Form. A representative will be contacting you shortly." & vbcrlf & vbcrlf objBody = ObjBody & "www.midwestern-builders.com" Set Mail = CreateObject("CDONTS.Newmail") Mail.To = objEmail Mail.From = "projects@midwestern-builders.com" Mail.Subject = "Midwestern-Builders.com : Your Request For Bid Form." Mail.Body = objBody Mail.Send Set Mail = Nothing response.redirect "http://www.midwestern-builders.com/thankyou.html" Else response.redirect "http://www.midwestern-builders.com/bidform.asp" End If %>