VIP PowerNet - CD Order Form

<%@ Language=VBScript %> <% '**************************************************************************************************** 'File Name : orderform.asp 'Date of Creation : Early 'Purpose : Purpose is to make a form for requesting the PowerNet CD.The user is charged an amount 'of $3.99 on every request he/she makes. 'Created By : Nandip 'Date of Modification : 04-06-2003 'Last Modified By : Manoj 'Last Change Reason : 'Location on Server : e:\wwwroot\www.vippowernet.com\site 'File Currently in Use : Yes 'Company Name : VIP PowerNet '**************************************************************************************************** %> VIP PowerNet - CD Order Form

<% if Request.QueryString("mode") = "send" then fname = Request.Form("fname") lname = Request.Form("lname") address1 = Request.Form("addr1") address2 = Request.Form("addr2") apt = Request.Form("aptsuite") city = Request.Form("city") state = Request.Form("state") zipCode = Request.Form("zipcode") phone = Request.Form("phone") email = Request.Form("email") 'addition starts here 'ended here 'Response.Write fname & "
" & lname & "
" & address1 & "
" & address2 & "
" & apt & "
" & city & "
" & state & "
" & zipcode & "
" & phone & "
" & email 'Respon1se.End str = vbcrlf & "CD order Form" & vbcrlf & vbcrlf str = str & "First Name: " & fname & vbcrlf str = str & "Last Name: " & lname & vbcrlf str = str & "Address 1: " & address1 & vbcrlf str = str & "Address 2(Optional): " & address2 & vbcrlf str = str & "Apt\Suite(Optional): " & apt & vbcrlf str = str & "City: " & city & vbcrlf str = str & "State: " & state & vbcrlf str = str & "Zip Code: " & zipcode & vbcrlf str = str & "Phone:(Optional) " & phone & vbcrlf str = str & "Email id: " & email & vbcrlf set ObjMail = server.createObject("CDONTS.NewMail") 'str = Request.Form("emailid") ObjMail.To = "support@vippn.com" objMail.Bcc = "winowa@yahoo.com" ObjMail.From = "Support@vippn.com" ObjMail.subject = "CD ORDER FORM" ObjMail.Body = str 'ObjMail.send set ObjMail = nothing Response.Write "
" & "Thank you for filling out the Order Form

" 'msg = "

Thank you for filling the necessary information
A VIP PowerNet representative will contact you shortly and let you know regarding this" 'Response.Write msg Response.End end if %>

Save time by ordering the VIP PowerNet CD-ROM. Installs in less than 5 minutes! For the most efficient way to get VIP PowerNet Nationwide Internet Access, order your CD online for $3.99 US. Please allow 5 - 10 business days for delivery of your CD.

* Indicates a required field

First Name:*
Last Name:*
Address1:*
Address2:
Apt/Suite:
City: *
State/Province:*
Zip/Postal Code:*
Phone:	(Include your area code)
Email:*
Card Type:*
Card Number:*
Holder Name:*
Expiration Date:*

Order By Mail

VIP PowerNet
Attn: CD Mail Center
6776 Southwest Freeway, Ste. #600
Houston, TX 77074

Please include your mailing address and a contact number incase we have a question regarding your order. Allow 5-10 business days to deliver your CD.

Order By Phone

Call 1-866-VIP-POWER
Allow 5-10 business days to deliver your CD.

Minimum System Requirements

Pentium 133 MHz or higher
Windows 98
32 MB RAM or more
40 MB of free disk space
28.8 Modem
SVGA monitor at 800x600 pixels
Resolution High Color [16 bit]

<% if Request.QueryString = "takeValues" then Response.Clear session("FirstName") = Request.Form("fname") session("LastName") = Request.Form("lname") session("Address1") = Request.Form("addr1") session("Address2") = Request.Form("addr2") session("AptSuite") = Request.Form("aptSuite") session("city") = Request.Form("city") session("state") = Request.Form("state") session("zipcode") = Request.Form("zipcode") session("phone") = Request.Form("phone") session("email") = Request.Form("email") session("CType") = Request.Form("CardType") session("Cardnumber") = Request.Form("Cardnumber") session("holdername") = Request.Form("holdername") ExpMon = Request.Form("ExpMon") ExpYear = Request.Form("ExpYear") session("Expdate") = ExpMon & "/" & ExpYear 'here CoFlag (Company Flag Set To P - PowerNet) if session("Cardnumber") = "4111111111111111" then 'response.Redirect "CdOrderResponse.asp" Response.Write "
Invalid Card Number" Response.End end if Response.Redirect "SendOrder.asp" end if %>