Abex Custom Trade Show Display Exhibit and Booth

<% Dim bodystring bodystring = bodystring + " " + vbCrLf bodystring = bodystring + "Name: " + Request.Form ("name") + vbCrLf bodystring = bodystring + "Company: " + Request.Form ("company") + vbCrLf bodystring = bodystring + "Email: " + Request.Form ("email") + vbCrLf bodystring = bodystring + "Web Site: " + Request.Form ("website") + vbCrLf bodystring = bodystring + "Telephone: " + Request.Form ("phone") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "-----------------------------" bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Project Number: " + Request.Form ("project") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "-----------------------------" bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Event Date: " + Request.Form ("event_month") + Request.Form ("event_day") + Request.Form ("event_year") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "-----------------------------" bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Decision Date: " + Request.Form ("decision") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "-----------------------------" bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " Additional comments/information: " + Request.Form ("comments") + vbCrLf bodystring = bodystring + "-----------------------------" bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) ' Set objMail = CreateObject("CDONTS.NewMail") ' objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" ' objMail.From = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" ' objMail.To = "marketing@abex.com" ' objMail.cc = "dlee@abex.com" ' objMail.bcc = "asawyer@abex.com" If (Request.Form("name") <> "") Then 'Set objMail = Server.CreateObject("Dundas.Mailer") 'objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" 'objMail.FromAddress = "virtual_sender@abex.com" 'objMail.TOs.Add("design@abex.com") 'objMail.TOs.Add("kpfeifer@abex.com") 'objMail.Subject = "Feedback from Abex -Request Quote- Page" 'objMail.Body = bodystring 'mailres = objMail.SendMail() 'Set objMail = CreateObject("CDONTS.NewMail") 'objMail.From = "virtual_sender@abex.com" 'objMail.TO = "design@abex.com;kpfeifer@abex.com" 'objMail.Subject = "Feedback from Abex -Request Quote- Page" 'objMail.Body = bodystring 'mailres = objMail.Send 'set objMail = nothing' 'Creative Chaos 'Use SMTP dim myMail Set myMail=CreateObject("CDO.Message") myMail.Subject="Feedback from Abex -Request Quote- Page" myMail.From="virtual_sender@abex.com" myMail.To="marketing@abex.com"'design@abex.com;kpfeifer@abex.com" myMail.TextBody=bodystring myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="dedrelay.secureserver.net" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing End If %> Abex Custom Trade Show Display Exhibit and Booth

*Thank you.* Your information has been received. A representative from Abex will contact you shortly.
©2005 Abex Display Systems • All Rights Reserved • webmaster@abex.com

Exhibiting Tips

Upcoming Shows