<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set Mailer = Server.CreateObject("SciBit.ASPMailer") Mailer.SubType = "1" Mailer.Recipients = "calpuff_registration@exponent.com" Mailer.From = Request("EmailReplyTo") Mailer.ReplyTo = Request("EmailReplyTo") Mailer.SMTPHost = "mail.exponent.com" Mailer.Subject = "CALPUFF User List Registration" Mailer.BodyText = "Name: " Mailer.BodyTextAdd(Request("nameRespond")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "Organization: " Mailer.BodyTextAdd(Request("companyRespond")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "Address: " Mailer.BodyTextAdd(Request("address1Respond")) Mailer.BodyTextAdd(Request("address2Respond")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "City: " Mailer.BodyTextAdd(Request("cityRespond")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "State: " Mailer.BodyTextAdd(Request("stateRespond")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "Zip: " Mailer.BodyTextAdd(Request("zipRespond")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "Country: " Mailer.BodyTextAdd(Request("countryRespond")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "Phone: " Mailer.BodyTextAdd(Request("phoneRespond")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "Email: " Mailer.BodyTextAdd(Request("EmailReplyTo")) Mailer.BodyTextAdd(blank) Mailer.BodyText = Mailer.BodyText + "Additional Information: " Mailer.BodyTextAdd(Request("commentsRespond")) %> CALPUFF Registration

Register for Free Upgrades

Thank you for joining for the CALPUFF User List to receive notices of software upgrades, training courses, and new information on the CALPUFF Modeling System.

You will be forwarded to the download page in a moment or click here to go directly to the download page.

<% if Mailer.SendForm then Response.Write "

Your request to join the CALPUFF User List was sent successfully.

" else Response.Write "

There was a problem processing your request to joing the CALPUFF User List. Please go back and try again.

" end if Set MailErr = Mailer.Errors for counter = 0 to MailErr.Count - 1 Response.Write "Error Text: " & MailErr.Text(counter) & " " Response.Write "Error Number: " & MailErr.Number(counter) & "
" next %>