<% option explicit const dsn = "prestocd" const url = "prestocd.com" dim atsignpos, periodpos, emaillen dim connobj, sql, recordset, primarykey dim action, message, error dim mailobj, sbody dim name, company, address, citystatezip, phone, email, fax, sendfax, sendemail, sendmail, websiteurl, wheredidyouhear, timing, comments, specialuse, whatcontent, replication, budget, contentproduction, orderqty, servicebusiness set connobj = server.createobject("adodb.connection") connobj.open dsn error = true action = request.form("action") select case action case "Submit this Form" name = request.form("name") company = request.form("company") address = request.form("address") citystatezip = request.form("citystatezip") phone = request.form("phone") email = request.form("email") fax = request.form("fax") sendfax = request.form("sendfax") if sendfax = "1" then sendfax = 1 else sendfax = 0 end if sendemail = request.form("sendemail") if sendemail = "1" then sendemail = 1 else sendemail = 0 end if sendmail = request.form("sendmail") if sendmail = "1" then sendmail = 1 else sendmail = 0 end if websiteurl = request.form("websiteurl") wheredidyouhear = request.form("wheredidyouhear") timing = request.form("timing") comments = request.form("comments") specialuse = request.form("specialuse") whatcontent = request.form("whatcontent") replication = request.form("replication") if replication = "1" then replication = 1 else replication = 0 end if budget = request.form("budget") contentproduction = request.form("contentproduction") if contentproduction = "1" then contentproduction = 1 else contentproduction = 0 end if orderqty = request.form("orderqty") servicebusiness = request.form("servicebusiness") if name = "" or company = "" or address = "" or citystatezip = "" or phone = "" or email = "" or fax = "" or (sendmail = 0 and sendfax = 0 and sendemail = 0) then message = "Sorry, but you have left blank fields. Fields marked with an asterik (*) are required. Please fill out these fields and try again." elseif not checkemail(email) then message = "Sorry, but you've entered an invalid email format. Email addresses should look like yourname@prestocd.com. Please examine your email and try again." else error = false sql = "INSERT INTO priceforms (timedate, name, company, address, citystatezip, phone, email, fax, sendfax, sendemail, sendmail, websiteurl, wheredidyouhear, timing, comments, specialuse, whatcontent, replication, budget, contentproduction, orderqty, servicebusiness, active) VALUES (" sql = sql & "'" & now & "', " sql = sql & "'" & replace(name,"'","''") & "', " sql = sql & "'" & replace(company,"'","''") & "', " sql = sql & "'" & replace(address,"'","''") & "', " sql = sql & "'" & replace(citystatezip,"'","''") & "', " sql = sql & "'" & replace(phone,"'","''") & "', " sql = sql & "'" & replace(email,"'","''") & "', " sql = sql & "'" & replace(fax,"'","''") & "', " sql = sql & sendfax & ", " sql = sql & sendemail & ", " sql = sql & sendmail & ", " if websiteurl = "" then sql = sql & "null," else sql = sql & "'" & replace(websiteurl,"'","''") & "', " end if sql = sql & "'" & replace(wheredidyouhear,"'","''") & "', " sql = sql & "'" & replace(timing,"'","''") & "', " if comments = "" then sql = sql & "null," else sql = sql & "'" & replace(comments,"'","''") & "', " end if if specialuse = "" then sql = sql & "null," else sql = sql & "'" & replace(specialuse,"'","''") & "', " end if if whatcontent = "" then sql = sql & "null," else sql = sql & "'" & replace(whatcontent,"'","''") & "', " end if sql = sql & replication & ", " if budget = "" then sql = sql & "null," elseif not isnumeric(budget) then sql = sql & "0," else sql = sql & "'" & budget & "', " end if sql = sql & contentproduction & ", " if orderqty = "" then sql = sql & "null," elseif not isnumeric(orderqty) then sql = sql & "0," else sql = sql & orderqty & ", " end if if servicebusiness = "" then sql = sql & "null," else sql = sql & "'" & replace(servicebusiness,"'","''") & "', " end if sql = sql & "1)" connobj.execute sql,,1 sbody = "PrestoCD" sbody = sbody & "" sbody = sbody & "" sbody = sbody & "Below are the results from the Presto CD Pricing Form.
" sbody = sbody & "It was placed on " & now & " Pacific Standard Time.
" sbody = sbody & "PrestoCD Pricing Form Information
" sbody = sbody & "

" set mailobj = server.createobject("cdonts.newmail") mailobj.Body = sbody mailobj.To = "d@mediaannex.com" mailobj.Bcc = "robert@choiceinternet.com" mailobj.Subject = "Presto CD Pricing Form" mailobj.From = email mailobj.BodyFormat = 0 mailobj.MailFormat = 0 mailobj.Importance = 1 mailobj.send set mailobj = nothing message = "Your email was received at " & now & " and has successfully been entered into our database. We will get back to you ASAP if you asked a question or had a comment. Thank you for stopping by at PrestoCD.com!" end if case else message = "PrestoCD are available for as low as 89 cents each which includes a four-color screen and a clear plastic case. We are committed to providing consistently competitive pricing along with a broad menu of packaging and distribution options to maximize your results." end select %> PrestoCD - Pricing Request Form




Call 888-485-4888 for Immediate Information
<%= message %><% if error = true then %>

PrestoCD are available for as low as .89 cents each which includes a four-color screen and a clear plastic case. We are committed to providing consistently competitive pricing along with a broad menu of packaging and distribution options to maximize your results.
Our prices include:*

  • PrestoCD replication and a four-color screen on the PrestoCD face.
  • Clear plastic case for each PrestoCD.
    • * price does not include content production

For complete pricing, provide your company information below. You will receive an updated price list via e-mail or fax, whichever you prefer.

We look forward to providing you this information.
*All information is required in order to receive additional information.

INFORMATION REQUEST FORM

*Contact Name

*Company Name

*Mailing Address

*City, State, Zip

*Phone

*E-mail

*Fax

*How would you like this valuable information sent?

Fax:>  Email:>  Mail:>
http:// Company website address
How did you here about us?
*What is your timing?

Please enter any questions or requests:
<%= comments %>

The questions below are optional, but will help us provide
you specific ideas in using CD-ROM and PrestoCD in your business.
 What use do you have in mind? (promotion, retail product, trade show premium, etc.)<%= specialuse %>

 What is your content or describe what you would like for content.
(business presentation, video, photos, etc.)
<%= whatcontent %>

Is your content ready for replication? YES>  NO>

If not, what is your production budget?

Would you like information on our content production packages? YES>  NO>

Estimated order quantity(ies):

What product or service do you provide? What does your business do?
<%= servicebusiness %>


<% else %>Thank you for filling out the contact form. Please feel free to browse the rest of our site.

<% end if %>
A division of Media Annex Inc.
Home | Pricing | Details | Packaging | Get Quote | Contact Us | Online Store | CD-R | CD-ROM | Shapes | TicketCD | Templates Copyright © 1999 Media Annex Inc. All rights reserved