home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / ie401gb / IEAK4.CAB / signup.asp < prev    next >
Text File  |  1997-10-08  |  43KB  |  1,046 lines
  1.  
  2. <%
  3. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  4. '% FILE:    SIGNUP.ASP                  
  5. '% DATE:    03/18/97
  6. '% AUTHOR:     Aaron Barth (MS)
  7. '% MODIFIED:     9/15/97
  8. '% MODIFIED BY: Thad Schwebke (MS)
  9. '% DESCRIPTION: Customizable ASP script to perform the
  10. '%              Signup Process for IEAK      
  11. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
  12. %>
  13.  
  14. <%
  15. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  16. '% CheckString Function to add single quotes to string value
  17. '% or Double quote single quotes
  18. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  19. FUNCTION CheckString (s, endchar)
  20.     pos = InStr(s, "'")
  21.     While pos > 0
  22.         s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1)
  23.         pos = InStr(pos + 2, s, "'")
  24.     Wend
  25.    CheckString="'" & s & "'" & endchar
  26. END FUNCTION        
  27.  
  28.  
  29. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  30. '% Grab all Requested Form Values and set the 
  31. '% Session Variables
  32. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  33.  
  34. If Request("fname") <> "" then
  35.     Session("fname") = Request("fname")
  36.     fname = Request("fname")
  37. else
  38.     fname = Session("fname")
  39. end if
  40.  
  41. If Request("lname") <> "" then
  42.     Session("lname") = Request("lname")
  43.     lname = Request("lname")
  44. else
  45.     lname = Session("lname")
  46. end if
  47.  
  48. If Request("addr1") <> "" then
  49.     Session("addr1") = Request("addr1")
  50.     addr1 = Request("addr1")
  51. else
  52.     addr1 = Session("addr1")
  53. end if
  54.  
  55. If Request("addr2") <> "" then
  56.     Session("addr2") = Request("addr2")
  57.     addr2 = Request("addr2")
  58. else
  59.     addr2 = Session("addr2")
  60. end if
  61.  
  62. If Request("city") <> "" then
  63.     Session("city") = Request("city")
  64.     city = Request("city")
  65. else
  66.     city = Session("city")
  67. end if
  68.  
  69.  
  70. If Request("state") <> "" then
  71.     Session("state") = Request("state")
  72.     state = Request("state")
  73. else
  74.     state = Session("state")
  75. end if
  76.  
  77. If Request("zip") <> "" then
  78.     Session("zip") = Request("zip")
  79.     zip = Request("zip")
  80. else
  81.     zip = Session("zip")
  82. end if
  83.  
  84. If Request("areac") <> "" then
  85.     Session("areac") = Request("areac")
  86.     areac = Request("areac")
  87. else
  88.     areac = Session("areac")
  89. end if
  90.  
  91. If Request("exch") <> "" then
  92.     Session("exch") = Request("exch")
  93.     exch = Request("exch")
  94. else
  95.     exch = Session("exch")
  96. end if
  97.  
  98. If Request("last4") <> "" then
  99.     Session("last4") = Request("last4")
  100.     last4 = Request("last4")
  101. else
  102.     last4 = Session("last4")
  103. end if
  104.  
  105. If Request("ccard") <> "" then
  106.     Session("ccard") = Request("ccard")
  107.     ccard = Request("ccard")
  108. else
  109.     ccard = Session("ccard")
  110. end if
  111.  
  112. If Request("cardnum") <> "" then
  113.     Session("cardnum") = Request("cardnum")
  114.     cardnum = Request("cardnum")
  115. else
  116.     cardnum = Session("cardnum")
  117. end if
  118.  
  119. If Request("cardexp") <> "" then
  120.     Session("cardexp") = Request("cardexp")
  121.     cardexp = Request("cardexp")
  122. else
  123.     cardexp = Session("cardexp")
  124. end if
  125.  
  126. If Request("cardname") <> "" then
  127.     Session("cardname") = Request("cardname")
  128.     cardname = Request("cardname")
  129. else
  130.     cardname = Session("cardname")
  131. end if
  132.  
  133.  
  134.  
  135. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  136. '% Request the Action variable and find out
  137. '% whether to set the Page variable to the Next or 
  138. '% Prev variable
  139. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  140.  
  141. if Request("Action") = "   Next   " then
  142.     Page = Request("Next")
  143. elseif Request("Action") = "   Back   " then
  144.     Page = Request("Prev")
  145. elseif Request("Action") = "   Name and address   " then
  146.     Page = Request("Next")
  147. elseif Request("Action") = "   Phone number   " then
  148.     Page = Request("Next")
  149. elseif Request("Action") = "   Payment method   " then
  150.     Page = Request("Next")
  151. elseif Request("Action") = "Submit" then
  152.     Page = Request("Next")
  153. else 
  154.     Page = "Page1"
  155. end if
  156.  
  157.  
  158. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  159. '% Use Case statement to determine what "Page"
  160. '% to Display.  If "Page" = Finish then add the 
  161. '% information to the database and send the .INS
  162. '% file to the user
  163. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  164. Select Case Page
  165.   
  166. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  167. '% BEGIN PAGE 1
  168. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  169.    Case "Page1"
  170. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  171. %>
  172.     <html>
  173. <head>
  174. <title>OverviewScreen</title>
  175. </head>
  176. <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor=white>
  177.  
  178. <font face=arial font color=black>
  179.  
  180. <table cellpadding=8 cellspacing=0 border=0 width=100% height=100%>
  181.  
  182. <tr height=60>
  183. <td width=200 bgcolor=white>
  184.         <img src="/images/logohere.gif" height=60 width=100>
  185.     </td>
  186. <td bgcolor=336699> 
  187.         <font face=times font color=white font size=7>
  188.         <i>Internet Sign-Up </i>
  189.     </td>
  190. <TH></TH>
  191. </tr>
  192. <tr valign=top >
  193.     <td height=90% width=200 bgcolor=black>
  194.     <font size=2 color=99cc66>
  195.     <b> Welcome... </b></font><P>
  196. <font size=2 color=white>
  197.     to the Internet Sign-up page.</font><P>
  198.     <font size=2 color=white>
  199.     Use this page to sign up for an Internet account with [provider name goes here].
  200.     </font>
  201.     </td>
  202.  
  203.     <td HEIGHT=90% width=70% bgcolor=cccccc>
  204.     <font size=2>
  205. <center><table width=95%>
  206. <tr><td>
  207.     <font size=2>
  208.     In the next series of screens you will be asked to type the following 
  209.     information so your account can be set up:<P> 
  210.     <OL>
  211.     <LI>Your name and address <br>
  212.     <LI>Your phone number <br>
  213.     <LI>Your method of payment <p>
  214. </OL>
  215.     
  216.     After you have filled in all the necessary information, you can 
  217.     review the information you just typed. To complete the 
  218.     sign-up process, click the Submit button on the last page.
  219.     <p>
  220.     <!--a href="Name.htm><B> Continue with Sign-up...</B></a--> 
  221.  
  222.     
  223.     <form action="signup.asp" method="POST">
  224.     <input type="hidden" name="Next" value="Page2">
  225.     <input type="submit" name="Action"     value="   Next   ">
  226.     <input type="reset" name="Reset"     value="  Cancel  ">
  227.     </form>
  228.     </td></tr>
  229. </table></center>
  230.  
  231.     </td>
  232. <TH></TH></tr>
  233. </TABLE>
  234.  
  235. </body>
  236. </html>
  237. <%
  238.  
  239. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  240. '% END PAGE 1
  241. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  242.  
  243.  
  244. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  245. '% BEGIN PAGE 2
  246. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  247.    Case "Page2"
  248. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  249. %>
  250. <html>
  251. <head>
  252. <title>Name and Address</title>
  253. </head>
  254.  
  255. <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor=white>
  256.  
  257. <font face=arial color=black>
  258.  
  259. <table cellpadding=8 cellspacing=0 border=0 >
  260.  
  261. <tr>
  262.     <td width=200 height=60 bgcolor=white>
  263.         <img src="/images/logohere.gif">
  264.     </td>
  265.     <td height=60 bgcolor=336699>
  266.         <font face=times font color=white font size=7>
  267.     <i>Name and Address</i></font>
  268.     </td>
  269. </tr>
  270.  
  271. <tr valign=top >
  272.     
  273.     <td height=1024 width=200 bgcolor=black>
  274.         <font size=2 color=99cc66>
  275.         <b> User Identification </b></Font><P>
  276.         <font size=2 color=white>
  277. Please type your name and address in the space provided.<P>
  278. This information is necessary for processing your sign-up information and will be kept confidential.
  279.         </font>
  280.         </td>
  281.  
  282.     <td width=1024 bgcolor=cccccc>
  283. <form action="signup.asp" method="POST">
  284. <TABLE>
  285.  
  286. <tr><td>
  287.     <font face=arial font size=2>
  288.     <B>First Name</b><br>
  289.     <input type="text" name="fname" size=40,1 value="<% = fname %>"></font> <br></td>
  290. <td>
  291.     <font face=arial font size=2>
  292.     <B>Last Name</b><BR>
  293.     <input type="text" name="lname" size=30,1 value="<% = lname %>"></font> <br></td></tr>
  294.  
  295. <tr><td colspan=2>
  296.     <font face=arial font size=2>
  297.     <B>Address</b><br>
  298.     <input type="text" name="addr1" size=70,1 value="<% = addr1 %>"> <br>
  299.     <input type="text" name="addr2" size=70,1 value="<% = addr2 %>"> <br></font></td></tr>
  300.  
  301. <tr><td>
  302.     <font face=arial font size=2>
  303.     <B>City</b> <br>
  304.     <input type="text" name="city" size=40,1 value="<% = city %>"></font> </td>
  305. <td>
  306.     <font face=arial font size=2>
  307.     <B>State / Province <br>
  308.     <input type="text" name="state" size=20,1 value="<% = state %>"> <br></font></td></tr>
  309.  
  310. <tr><td colspan=2>    
  311.     <font face=arial font size=2>
  312.     <B>Zip / Postal Code</b><br>
  313.     <input type="text" name="zip" size=30,1 value="<% = zip %>"></font> <br></TD>
  314.     </tr>
  315.  
  316.     <tr><td colspan=2>
  317.     <HR>
  318.  
  319.  
  320.     <input type="hidden" name="Prev" value="Page1">
  321.     <input type="submit" name="Action" value="  Back  ">
  322.     <input type="hidden" name="Next" value="Page3">
  323.     <input type="submit" name="Action" value="   Next   ">
  324.     </form>
  325.  
  326.     <form action="signup.asp" method="POST">
  327.     <input type="submit" name="Action" value="   Cancel   ">
  328.     </form><p>
  329.  
  330.  
  331. </td></tr>
  332. </TABLE>
  333.     </td>
  334. </tr>
  335. </table>
  336. </body>
  337.  
  338.  
  339. <%
  340. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  341. '% END PAGE 2
  342. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  343.  
  344.  
  345. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  346. '% BEGIN PAGE 3
  347. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  348.    Case "Page3"
  349. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  350. %>
  351. <html>
  352. <head>
  353. <title>Dialing Access</title>
  354. </head>
  355.  
  356. <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor=white>
  357.  
  358. <font face=arial color=black>
  359.  
  360.  
  361. <table cellpadding=8 cellspacing=0 border=0
  362.  
  363. <tr>
  364. <td width=200 height=60 bgcolor=white>
  365.     <img src="/images/logohere.gif">
  366. </td>
  367.  
  368. <td height=60 bgcolor=#336699> 
  369.     <font face=times color=white size=7><i>
  370.     Phone Number
  371.     </I></Font>
  372. </td>
  373. </tr>
  374.  
  375. <tr valign=top>
  376. <td height=1024 width=200 bgcolor=black>
  377.     <font size=2 color=99cc66>
  378.     <b>Phone Number </b></font><P>
  379.     <font color=white size=2>
  380. Please type the phone number of the line you will be using to dial the Internet.<P>
  381. This information is needed to verify your account, and will be kept confidential.
  382.  
  383.     </font>
  384. </td>
  385.  
  386. <td width=1024 bgcolor=cccccc>
  387. <center><table width=95%>
  388. <tr><td>
  389.     
  390.     <form action="signup.asp" method="POST">
  391.  
  392.     <font face=arial font size=2>
  393.     <b>Phone Number</b><br>
  394.     <input type="text" name="areac" value="<% = areac %>" size=4,1>
  395.     <input type="text" name="exch" value="<% = exch %>" size=4,1> -
  396.     <input type="text" name="last4" value="<% = last4 %>" size=5,1><br>
  397.     <p>
  398.     Is this a home or business phone number?<br><p>
  399.     <input type="radio" name="homebiz" value="home"         > <b>Home</b> <br>
  400.     <input type="radio" name="homebiz" value="business" > <b>Business</b>
  401.     
  402.     <hr>
  403.     <input type="hidden" name="Prev" value="Page2">
  404.     <input type="submit" name="Action" value="   Back   ">
  405.     <input type="hidden" name="Next" value="Page4">
  406.     <input type="submit" name="Action" value="   Next   ">
  407.     </form>
  408.  
  409.     <form action="signup.asp" method="POST">
  410.     <input type="submit" name="Action" value="   Cancel   ">
  411.     </form><p>
  412.  
  413. </FONT>
  414. </td></tr>
  415. </table></center>
  416. </td>
  417. </tr>
  418. </TABLE>
  419.  
  420. </body>
  421. <%
  422. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  423. '% END PAGE 3
  424. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  425.  
  426.  
  427. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  428. '% BEGIN PAGE 4
  429. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  430.    Case "Page4"
  431. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  432. %>
  433. <html>
  434. <head>
  435. <title>Payment Information</title>
  436. </head>
  437. <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor=white>
  438. <font face=arial font color=black>
  439. <table cellpadding=8 cellspacing=0 border=0 >
  440.  
  441. <tr>
  442.     <td width=200 height=60 bgcolor=white>
  443.         <img src="/images/logohere.gif">
  444.     </td>
  445.     <td width=1024 bgcolor=336699> 
  446.         <font color=white font size=2>
  447.         <font face=times font color=white font size=7><i>
  448.     Payment </i>
  449.     </td>
  450. </tr>
  451. <tr valign=top >
  452.     <td height=1024 width=200 bgcolor=black>
  453.     <font color=99cc66>
  454.     <b> Billing Information </b></font><P>
  455.     <font size=2 color=white>
  456. Information about billing and/or special offers goes here.</font>
  457.  
  458.  
  459.     </font>
  460.     </td>
  461.  
  462. <td width=1024 bgcolor=cccccc>
  463. <table width=75%>
  464. <tr><td>
  465. <center><table width=95%>
  466. <tr><td>    
  467.  
  468.     <form action="signup.asp" method="POST">
  469.     <font face=arial font size=2>
  470.     <b>Type of credit card</b> <br>
  471.         <select name="ccard" size=1 value="">
  472.         <option selected>  <% = ccard %>      
  473.         <option> American Express
  474.         <option> MasterCard
  475.         <option> Visa
  476.     </select>
  477.     <p>
  478.     <b>Card number</b><br>
  479.     <input type="text" name="cardnum" size=64,1 value="<% = cardnum %>"> <p>
  480.     <b>Expiration Date</b> <br>
  481.     <input type="text" name="cardexp" size=17 value="<% = cardexp %>"> <p>
  482.     <b>Name on card</b> <br>
  483.     <input type="text" name="cardname" size=64 value="<% = cardname %>"> <br><P>
  484.  
  485.     Note: By submitting this information, you agree to pay all 
  486.     charges applied by [provider name] in connection with your use of 
  487.     [provider name] Service to the credit card identified above in accordance 
  488.     with the card issuer agreement.
  489.  
  490.     <hr>
  491.  
  492.     <input type="hidden" name="Prev" value="Page3">
  493.     <input type="submit" name="Action" value="   Back   ">
  494.     <input type="hidden" name="Next" value="Page5">
  495.     <input type="submit" name="Action" value="   Next   ">
  496.     </form>
  497.  
  498.     <form action="signup.asp" method="POST">
  499.     <input type="submit" name="Action" value="   Cancel   ">
  500.     </form><p>
  501. </td></tr>
  502. </table></center>
  503.     </td></tr>
  504. </table>    
  505.  
  506. </td>
  507. </tr>
  508.  
  509. </body>
  510. <%
  511. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  512. '% END PAGE 4
  513. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  514.  
  515.  
  516.  
  517. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  518. '% BEGIN PAGE 5
  519. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  520.    Case "Page5"
  521. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  522. %>
  523. <html>
  524. <head>
  525. <title>Internet Account Summary</title>
  526. </head>
  527. <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor=white>
  528. <font face=arial font color=black>
  529. <table cellpadding=8 cellspacing=0 border=0 >
  530.  
  531. <tr>
  532.     <td width=200 height=60 bgcolor=white>
  533.     <img src="/images/logohere.gif">
  534.     <td width=1024 bgcolor=336699>
  535.     <font face=times font color=white font size=7><i>
  536.     Summary
  537.     </td></I>
  538. </tr>
  539. <tr valign=top >
  540.     <td height=1024 width=200 bgcolor=black>
  541.     <font size=2 color=99cc66 >
  542.     <b> Review your account information </b><P>
  543.     <font color=white >
  544.     Please take a minute to review your account information, to make sure
  545.      everything is correct. <P><font color=white >
  546.     To make changes, click the button for the section you want to modify
  547.     <P><font color=white >
  548.     Click Submit to send your account information to [provider name] and
  549.     complete the sign-up process.  <P>
  550.  
  551.  
  552.     </font>
  553.     </td>
  554.  
  555.     <td width=1024 bgcolor=cccccc>
  556. <center><table width=95%>
  557. <tr><td><font size=2>
  558.         <form action="signup.asp" method="POST">
  559.         <input type="hidden" name="Next"   value="Page2">
  560.         <input type="submit" name="Action"     value="   Name and address   "><br>
  561.         </form><br>
  562.         <B>  <% = fname %> <% = lname %><br>
  563.          <% = addr1 %><br>
  564.          <% = addr2 %><br>
  565.         <% = city %>, <% = state %>  <br>
  566.          <% = zip %></B><br>
  567.         <hr>
  568.  
  569.         <form action="signup.asp" method="POST">
  570.         <input type="hidden" name="Next"   value="Page3">
  571.         <input type="submit" name="Action"     value="   Phone number   "><br>
  572.         </form><br>
  573.         <b>(<% = areac %>) <% = exch %>-<% = last4%>
  574.         <hr>
  575.  
  576.         <form action="signup.asp" method="POST">
  577.         <input type="hidden" name="Next"   value="Page4">
  578.         <input type="submit" name="Action"     value="   Payment method   "><br>
  579.         </form><br>
  580.         <b><% = ccard %><br>
  581.          <% = cardnum %><br>
  582.          <% = cardexp %><br>
  583.         <% = cardname %></b> <br>
  584.  
  585.     <HR>
  586.     <form action="signup.asp" method="GET">
  587.     <input type="hidden" name="Next" value="Finish">
  588.     <input type="submit" name="Action"   value="Submit">
  589.     <input type="reset" name="Cancel"   value="   Cancel the Signup   ">
  590.     </form>
  591. </td></tr>
  592. </table></center>
  593.  
  594.     </td>
  595. </tr>
  596. </table>
  597. </body>
  598.  
  599. <%
  600. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  601. '% END PAGE 5
  602. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  603.  
  604.  
  605.  
  606. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  607. '% BEGIN Finish
  608. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  609.    Case "Finish"
  610. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  611.  
  612. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  613. '% Perform Data Vaildation
  614. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  615. if     fname = "" or _
  616.     lname = "" or _
  617.     addr1 = "" or _
  618.     city = "" or _
  619.     state = "" or _
  620.     zip = "" or _
  621.     areac = "" or _
  622.     exch = "" or _
  623.     last4 = "" or _
  624.     ccard = "" or _
  625.     cardnum = "" or _
  626.     cardexp = "" or _
  627.     cardname = "" _
  628.     then
  629.         Response.Write "Please Fill in All Requested Fields"
  630.         
  631. else
  632. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  633. '% Insert the Information into the Database
  634. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  635.     Set insert_conn = Server.CreateObject("ADODB.Connection")
  636.     insert_conn.Open "signup"
  637.  
  638.     insert_sql = "INSERT INTO Signup "
  639.     insert_sql = insert_sql & "(status, "
  640.     insert_sql = insert_sql & "fname, "
  641.     insert_sql = insert_sql & "lname, " 
  642.     insert_sql = insert_sql & "addr1,"
  643.     insert_sql = insert_sql & "addr2, "
  644.     insert_sql = insert_sql & "city, "
  645.     insert_sql = insert_sql & "state, "
  646.     insert_sql = insert_sql & "zip, "
  647.     insert_sql = insert_sql & "areac, "
  648.     insert_sql = insert_sql & "exch, "
  649.     insert_sql = insert_sql & "last4, "
  650.     insert_sql = insert_sql & "ccard, "
  651.     insert_sql = insert_sql & "cardnum, "
  652.     'insert_sql = insert_sql & "cardexp, "
  653.     insert_sql = insert_sql & "cardname "
  654.     insert_sql = insert_sql & ") "
  655.     insert_sql = insert_sql & "VALUES('"
  656.     insert_sql = insert_sql & "Accepted', "
  657.     insert_sql = insert_sql & CheckString(fname,",")        
  658.     insert_sql = insert_sql & CheckString(lname,",")
  659.     insert_sql = insert_sql & CheckString(addr1,",")
  660.     insert_sql = insert_sql & CheckString(addr2,",")
  661.     insert_sql = insert_sql & CheckString(city,",")
  662.     insert_sql = insert_sql & CheckString(state,",")
  663.     insert_sql = insert_sql & CheckString(zip,",")
  664.     insert_sql = insert_sql & CheckString(areac,",")
  665.     insert_sql = insert_sql & CheckString(exch,",")
  666.     insert_sql = insert_sql & CheckString(last4,",")
  667.     insert_sql = insert_sql & CheckString(ccard,",")
  668.     insert_sql = insert_sql & CheckString(cardnum,",")
  669.     'insert_sql = insert_sql & CheckString(cardexp,",")
  670.     insert_sql = insert_sql & CheckString(cardname,"")
  671.     insert_sql = insert_sql & ")"
  672.     'Response.write insert_sql
  673.     Set insert_RS = insert_conn.Execute(insert_sql)
  674.  
  675. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  676. '% Write information out to a text file
  677. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  678.     Set fs = CreateObject("Scripting.FileSystemObject")
  679.     filepath = server.mappath("instal.ins")
  680.     Set a = fs.CreateTextFile(filepath, True)
  681.  
  682.     '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  683.     '% START install.ins Customization
  684.     '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  685.  
  686.     a.WriteLine("[Branding]")
  687.     a.WriteLine("Type=2")
  688.     a.WriteLine("WizardVersion=4.71.1120.0")
  689.     a.WriteLine("CompanyName=Wow")
  690.     a.WriteLine("Custom_Key=IETOOLS")
  691.     a.WriteLine("Version=1,0,0,4")
  692.     a.WriteLine("Configuration ID=")
  693.     a.WriteLine("Add on Url=http://wallops/ieaktest/addon.htm")
  694.     a.WriteLine("Window_Title_CN=Seattleware")
  695.     a.WriteLine("Window_Title=Microsoft Internet Explorer provided by Seattleware")
  696.     a.WriteLine("Toolbar Bitmap=G:\TestBmps\toolbar\Seaside.bmp")
  697.     a.WriteLine("EncodeFavs=1")
  698.     a.WriteLine("IE4 Welcome Msg=0")
  699.     a.WriteLine("User Agent=Mozilla/4.0(compatible;MSIE 4.0b1;WindowsNT);YourCustomString ")
  700.     a.WriteLine("Global=1")
  701.     a.WriteLine("DesktopGuid=")
  702.     a.WriteLine("CMBitmapPath=")
  703.     a.WriteLine("CMBitmapName=")
  704.     a.WriteLine("CMProfilePath=")
  705.     a.WriteLine("CMProfileName=")
  706.     a.WriteLine("CMUseCustom=0")
  707.     a.WriteLine("Serverless=0")
  708.     a.WriteLine("NoDial=0")
  709.     a.WriteLine("SignupCustomDir=G:\Signup\IEAK4.x\server\CGI\client")
  710.     a.WriteLine("[Custom Branding]")
  711.     a.WriteLine("Cab Name=sample.cab")
  712.     a.WriteLine("[ActiveSetupSites]")
  713.     a.WriteLine("TestCertsOK=1")
  714.     a.WriteLine("SiteUrl0=http://157.55.104.216/bld1708/ie4site")
  715.     a.WriteLine("SiteName0=Challenger")
  716.     a.WriteLine("SiteRegion0=North America")
  717.     a.WriteLine("SiteUrl1=/ie4site")
  718.     a.WriteLine("SiteName1=")
  719.     a.WriteLine("SiteRegion1=")
  720.     a.WriteLine("SiteUrl2=/ie4site")
  721.     a.WriteLine("SiteName2=")
  722.     a.WriteLine("SiteRegion2=")
  723.     a.WriteLine("SiteUrl3=/ie4site")
  724.     a.WriteLine("SiteName3=")
  725.     a.WriteLine("SiteRegion3=")
  726.     a.WriteLine("SiteUrl4=/ie4site")
  727.     a.WriteLine("SiteName4=")
  728.     a.WriteLine("SiteRegion4=")
  729.     a.WriteLine("SiteUrl5=/ie4site")
  730.     a.WriteLine("SiteName5=")
  731.     a.WriteLine("SiteRegion5=")
  732.     a.WriteLine("SiteUrl6=/ie4site")
  733.     a.WriteLine("SiteName6=")
  734.     a.WriteLine("SiteRegion6=")
  735.     a.WriteLine("SiteUrl7=/ie4site")
  736.     a.WriteLine("SiteName7=")
  737.     a.WriteLine("SiteRegion7=")
  738.     a.WriteLine("SiteUrl8=/ie4site")
  739.     a.WriteLine("SiteName8=")
  740.     a.WriteLine("SiteRegion8=")
  741.     a.WriteLine("SiteUrl9=/ie4site")
  742.     a.WriteLine("SiteName9=")
  743.     a.WriteLine("SiteRegion9=")
  744.     a.WriteLine("[Internet_Mail]")
  745.     a.WriteLine("Window_Title=Outlook Express provided by Seattleware")
  746.     a.WriteLine("Install_Mail_16=0")
  747.     a.WriteLine("SMTP_Server=Red-26-MSG")
  748.     a.WriteLine("POP_Server=Red-26-MSG")
  749.     a.WriteLine("Domain=")
  750.     a.WriteLine("Default_Client=Yes")
  751.     a.WriteLine("Logon_Using_SPA=Yes")
  752.     a.WriteLine("Infopane=http://www.yahoo.com")
  753.     a.WriteLine("Infopane_Bitmap=L")
  754.     a.WriteLine("Welcome_Message=G:\CustOut.htm")
  755.     a.WriteLine("Welcome_Name=Michael Baas")
  756.     a.WriteLine("Welcome_Address=a-mbaas@microsoft.com")
  757.     a.WriteLine("[URL]")
  758.     a.WriteLine("Home_Page=http://www.dilbert.com")
  759.     a.WriteLine("Search_Page=http://www.lycos.com")
  760.     a.WriteLine("Help_Page=http://www.helpme.com")
  761.     a.WriteLine("Quick_Link_1_Name=Best of the Web")
  762.     a.WriteLine("Quick_Link_1=http://home.microsoft.com/best/best.asp")
  763.     a.WriteLine("Quick_Link_2_Name=Today's Links")
  764.     a.WriteLine("Quick_Link_2=http://home.microsoft.com/links/links.asp")
  765.     a.WriteLine("Quick_Link_3_Name=Web Gallery")
  766.     a.WriteLine("Quick_Link_3=http://www.microsoft.com/isapi/redir.dll?prd=ie&plcid=0x0409&pver=3.0&ar=gallery")
  767.     a.WriteLine("Quick_Link_4_Name=Product News")
  768.     a.WriteLine("Quick_Link_4=http://www.microsoft.com/ie")
  769.     a.WriteLine("Quick_Link_5_Name=Microsoft")
  770.     a.WriteLine("Quick_Link_5=http://www.microsoft.com")
  771.     a.WriteLine("NoWelcome=1")
  772.     a.WriteLine("FirstHomePage=http://www.yahoo.com")
  773.     a.WriteLine("Signup=SIGNUP.HTM")
  774.     a.WriteLine("[Favorites]")
  775.     a.WriteLine("Apple II & GS Download Area.url=http://www.ccn.cs.dal.ca/Services/PDA/appleII.html")
  776.     a.WriteLine("Apple %)%( Forever.url=http://www.globaldialog.com/~pliethen/apple2/index.html")
  777.     a.WriteLine("Applied Engineering.url=http://mars.nettrek.net.au/appleserv/")
  778.     a.WriteLine("Current Microsoft Stock Price 149.url=http://hol-www/perl/msft.pl?")
  779.     a.WriteLine("Investors Edge At-a-Glance Summary.url=http://server1.irnet.com/scripts/secsvrfm.exe?WWW+p_IEStockInfo")
  780.     a.WriteLine("Microsoft Site Builder Workshop.url=http://157.56.97.109/activex/gallery/")
  781.     a.WriteLine("MIDI Composers' Exchange.url=http://www.mindspring.com/~s-allen/picks.html")
  782.     a.WriteLine("moview.url=http://www.iicnet.com/PugetSound/Local/Showing.htm#cross")
  783.     a.WriteLine("new6.url=http://www.")
  784.     a.WriteLine("Office97.url=http://trioweb/office97/")
  785.     a.WriteLine("Seattle Traffic Map - System.url=http://www.wsdot.wa.gov/regions/northwest/NWFLOW/")
  786.     a.WriteLine("SHAREWARE.url=http://www.")
  787.     a.WriteLine("The Byte Works.url=http://www.hypermall.com/byteworks/index.html")
  788.     a.WriteLine("Vector Development.url=http://www.vecdev.com/")
  789.     a.WriteLine("Zona Report- Internet and Intranet 1996 Table of Contents.url=http://mslibrary/research/dd/internet/zona96/httoc.htm")
  790.     a.WriteLine("1 CNET Today\CNET Today.url=http://www.cnet.com/?ie.favorites")
  791.     a.WriteLine("2 Tech News\1 Front Page.url=http://www.news.com/?ie.favorites")
  792.     a.WriteLine("2 Tech News\2 The Net.url=http://www.news.com/Categories/Index/0,3,1,00.html/?ie.favorites")
  793.     a.WriteLine("2 Tech News\3 Computing.url=http://www.news.com/Categories/Index/0,3,2,00.html/?ie.favorites")
  794.     a.WriteLine("2 Tech News\4 Intranets.url=http://www.news.com/Categories/Index/0,3,3,00.html/?ie.favorites")
  795.     a.WriteLine("2 Tech News\5 Business.url=http://www.news.com/Categories/Index/0,3,4,00.html/?ie.favorites")
  796.     a.WriteLine("2 Tech News\6 CNET Radio.url=http://www.news.com/Radio/index.html/?ie.favorites")
  797.     a.WriteLine("2 Tech News\7 Perspectives.url=http://www.news.com/Perspectives/perspectives.html/?ie.favorites")
  798.     a.WriteLine("2 Tech News\8 Newsmakers.url=http://www.news.com/Newsmakers/index.html/?ie.favorites")
  799.     a.WriteLine("2 Tech News\9 Rumor mill.url=http://www.news.com/Rumors/Entry/0,26,,00.html/?ie.favorites")
  800.     a.WriteLine("3 Hardware and Software Reviews\1 Overview.url=http://www.cnet.com/Content/Reviews/?ie.favorites")
  801.     a.WriteLine("3 Hardware and Software Reviews\2 CNET's Hot List.url=http://www.cnet.com/Content/Reviews/Hot/?ie.favorites")
  802.     a.WriteLine("3 Hardware and Software Reviews\3 Just In.url=http://www.cnet.com/Content/Reviews/Hands/?ie.favorites")
  803.     a.WriteLine("3 Hardware and Software Reviews\4 Product Comparisons.url=http://www.cnet.com/Content/Reviews/Compare/?ie.favorites")
  804.     a.WriteLine("3 Hardware and Software Reviews\5 CD-ROMs.url=http://www.cnet.com/Content/Reviews/Cdcentral/?ie.favorites")
  805.     a.WriteLine("3 Hardware and Software Reviews\6 Web Sites.url=http://www.cnet.com/Content/Reviews/Bestofweb/?ie.favorites")
  806.     a.WriteLine("4 Gaming\1 Overview.url=http://www.gamecenter.com/?ie.favorites")
  807.     a.WriteLine("4 Gaming\2 Game News.url=http://www.gamecenter.com/News/Index/0,2,,00.html/?ie.favorites")
  808.     a.WriteLine("4 Gaming\3 Exclusives.url=http://www.gamecenter.com/Features/?ie.favorites")
  809.     a.WriteLine("4 Gaming\4 Consoles.url=http://www.gamecenter.com/Consoles/?ie.favorites")
  810.     a.WriteLine("4 Gaming\5 Reviews.url=http://www.gamecenter.com/Reviews/?ie.favorites")
  811.     a.WriteLine("5 CNET TV\1 TV.COM.url=http://www.cnet.com/Content/Tv/Tvcom/?ie.favorites")
  812.     a.WriteLine("5 CNET TV\2 CNET Central.url=http://www.cnet.com/Content/Tv/CNETCentral/?ie.favorites")
  813.     a.WriteLine("5 CNET TV\3 The Web.url=http://www.cnet.com/Content/Tv/Web/?ie.favorites")
  814.     a.WriteLine("5 CNET TV\4 The New Edge.url=http://www.cnet.com/Content/Tv/Newedge/?ie.favorites")
  815.     a.WriteLine("6 Software\1 Simple Software Search.url=http://www.download.com/PC/Search/Simple/0,57,0,00.html/?ie.favorites")
  816.     a.WriteLine("6 Software\2 What's New.url=http://www.download.com/PC/Result/TitleList/0,2,0-b-0-0-a-1,00.html/?ie.favorites")
  817.     a.WriteLine("6 Software\3 What's Popular.url=http://www.download.com/PC/Result/MostPopular/0,3,0-0,00.html/?ie.favorites")
  818.     a.WriteLine("6 Software\4 Shareware Selections.url=http://www.shareware.com/SW/Selections/Index/?ie.favorites")
  819.     a.WriteLine("6 Software\5 ActiveX Controls.url=http://www.activex.com/?ie.favorites")
  820.     a.WriteLine("6 Software\Development Tools.url=http://www.download.com/PC/FrontDoor/0,1,0-70,01.html/?ie.favorites")
  821.     a.WriteLine("6 Software\Education.url=http://www.download.com/PC/FrontDoor/0,1,0-10,01.html/?ie.favorites")
  822.     a.WriteLine("6 Software\Games.url=http://www.download.com/PC/FrontDoor/0,1,0-17,01.html/?ie.favorites")
  823.     a.WriteLine("6 Software\Home and Personal.url=http://www.download.com/PC/FrontDoor/0,1,0-27,01.html/?ie.favorites")
  824.     a.WriteLine("6 Software\Internet.url=http://www.download.com/PC/FrontDoor/0,1,0-37,01.html/?ie.favorites")
  825.     a.WriteLine("6 Software\Kids.url=http://www.download.com/PC/FrontDoor/0,1,0-55,01.html/?ie.favorites")
  826.     a.WriteLine("6 Software\Multimedia and Design.url=http://www.download.com/PC/FrontDoor/0,1,0-60,01.html/?ie.favorites")
  827.     a.WriteLine("6 Software\Utilities.url=http://www.download.com/PC/FrontDoor/0,1,0-78,01.html/?ie.favorites")
  828.     a.WriteLine("7 Search the Internet\1 Web Search.url=http://www.search.com/?ie.favorites")
  829.     a.WriteLine("7 Search the Internet\2 A-Z List.url=http://www.search.com/alpha.html/?ie.favorites")
  830.     a.WriteLine("7 Search the Internet\Arts.url=http://www.search.com/Toc/0,30,50076,00.html/?ie.favorites")
  831.     a.WriteLine("7 Search the Internet\Automotive.url=http://www.search.com/Toc/0,30,50070,00.html/?ie.favorites")
  832.     a.WriteLine("7 Search the Internet\Business.url=http://www.search.com/Toc/0,30,50068,00.html/?ie.favorites")
  833.     a.WriteLine("7 Search the Internet\Computers.url=http://www.search.com/Toc/0,30,50062,00.html/?ie.favorites")
  834.     a.WriteLine("7 Search the Internet\Directories.url=http://www.search.com/Toc/0,30,50082,00.html/?ie.favorites")
  835.     a.WriteLine("7 Search the Internet\Education.url=http://www.search.com/Toc/0,30,50078,00.html/?ie.favorites")
  836.     a.WriteLine("7 Search the Internet\Employment.url=http://www.search.com/Toc/0,30,50066,00.html/?ie.favorites")
  837.     a.WriteLine("7 Search the Internet\Entertainment.url=http://www.search.com/Toc/0,30,50081,00.html/?ie.favorites")
  838.     a.WriteLine("7 Search the Internet\Finance.url=http://www.search.com/Toc/0,30,50074,00.html/?ie.favorites")
  839.     a.WriteLine("7 Search the Internet\Games.url=http://www.search.com/Toc/0,30,50085,00.html/?ie.favorites")
  840.     a.WriteLine("7 Search the Internet\Government.url=http://www.search.com/Toc/0,30,50065,00.html/?ie.favorites")
  841.     a.WriteLine("7 Search the Internet\Health.url=http://www.search.com/Toc/0,30,50075,00.html/?ie.favorites")
  842.     a.WriteLine("7 Search the Internet\Housing.url=http://www.search.com/Toc/0,30,100085,00.html/?ie.favorites")
  843.     a.WriteLine("7 Search the Internet\Legal.url=http://www.search.com/Toc/0,30,50064,00.html/?ie.favorites")
  844.     a.WriteLine("7 Search the Internet\Lifestyle.url=http://www.search.com/Toc/0,30,50069,00.html/?ie.favorites")
  845.     a.WriteLine("7 Search the Internet\News.url=http://www.search.com/Toc/0,30,50079,00.html/?ie.favorites")
  846.     a.WriteLine("7 Search the Internet\People.url=http://www.search.com/Toc/0,30,100088,00.html/?ie.favorites")
  847.     a.WriteLine("7 Search the Internet\Politics.url=http://www.search.com/Toc/0,30,100086,00.html/?ie.favorites")
  848.     a.WriteLine("7 Search the Internet\Reference.url=http://www.search.com/Toc/0,30,50072,00.html/?ie.favorites")
  849.     a.WriteLine("7 Search the Internet\Science.url=http://www.search.com/Toc/0,30,50077,00.html/?ie.favorites")
  850.     a.WriteLine("7 Search the Internet\Shopping.url=http://www.search.com/Toc/0,30,100087,00.html/?ie.favorites")
  851.     a.WriteLine("7 Search the Internet\Sports.url=http://www.search.com/Toc/0,30,50067,00.html/?ie.favorites")
  852.     a.WriteLine("7 Search the Internet\Travel.url=http://www.search.com/Toc/0,30,50071,00.html/?ie.favorites")
  853.     a.WriteLine("7 Search the Internet\Usenet.url=http://www.search.com/Toc/0,30,50073,00.html/?ie.favorites")
  854.     a.WriteLine("7 Search the Internet\Web.url=http://www.search.com/Toc/0,30,50080,00.html/?ie.favorites")
  855.     a.WriteLine("8 Digital Living\1 New Technologies.url=http://www.cnet.com/Content/Features/Techno/?ie.favorites")
  856.     a.WriteLine("8 Digital Living\2 How to.url=http://www.cnet.com/Content/Features/Howto/?ie.favorites")
  857.     a.WriteLine("8 Digital Living\3 Digital Life.url=http://www.cnet.com/Content/Features/Dlife/?ie.favorites")
  858.     a.WriteLine("8 Digital Living\4 Personalities.url=http://www.cnet.com/Content/Voices/?ie.favorites?ie.favorites")
  859.     a.WriteLine("8 Digital Living\5 Movers and Shakers.url=http://www.cnet.com/Content/Voices/Movers/?ie.favorites")
  860.     a.WriteLine("9 E! Entertainment\1 Today in Hollywood.url=http://www.eonline.com/?ie.favorites")
  861.     a.WriteLine("9 E! Entertainment\2 News.url=http://www.eonline.com/News/?ie.favorites")
  862.     a.WriteLine("9 E! Entertainment\3 Hollywood gossip.url=http://www.eonline.com/Gossip/?ie.favorites")
  863.     a.WriteLine("9 E! Entertainment\4 Interact with celebs.url=http://www.eonline.com/Celebs/?ie.favorites")
  864.     a.WriteLine("9 E! Entertainment\5 Movie, Music & Other Reviews.url=http://www.eonline.com/Reviews/?ie.favorites")
  865.     a.WriteLine("9 E! Entertainment\6 Movie, TV & Music Previews.url=http://www.eonline.com/Previews/?ie.favorites")
  866.     a.WriteLine("9 E! Entertainment\7 What's Hot in Entertainment.url=http://www.eonline.com/Hot/?ie.favorites")
  867.     a.WriteLine("CNET.COM\TOMY.url=http://www.")
  868.     a.WriteLine("Entertainment\Entertainment Drive.url=http://www.edrive.com")
  869.     a.WriteLine("Entertainment\ESPN SportsZone by Starwave.url=http://www.SportsZone.com")
  870.     a.WriteLine("Entertainment\National Geographic Online.url=http://www.nationalgeographic.com")
  871.     a.WriteLine("Entertainment\OnSafari by Alpenglow.url=http://www.OnSafari.com")
  872.     a.WriteLine("IE Starter Kit\Business\CNET.url=http://www.cnet.com")
  873.     a.WriteLine("IE Starter Kit\Business\FTD Internet.url=http://www.ftd.com")
  874.     a.WriteLine("IE Starter Kit\Business\Intel.url=http://www.Intel.com")
  875.     a.WriteLine("IE Starter Kit\Business\Investors Edge.url=http://www.investorsedge.com/")
  876.     a.WriteLine("IE Starter Kit\Business\NetStockDirect.url=http://www.NetStockDirect.com")
  877.     a.WriteLine("IE Starter Kit\Business\Windows95.url=http://www.Windows95.com")
  878.     a.WriteLine("IE Starter Kit\Entertainment\Entertainment Drive.url=http://www.edrive.com")
  879.     a.WriteLine("IE Starter Kit\Entertainment\ESPN SportsZone by Starwave.url=http://www.SportsZone.com")
  880.     a.WriteLine("IE Starter Kit\Entertainment\Mr ShowBiz by Starwave.url=http://www.MrShowBiz.com")
  881.     a.WriteLine("IE Starter Kit\Entertainment\National Geographic Online.url=http://www.nationalgeographic.com")
  882.     a.WriteLine("IE Starter Kit\Entertainment\OnSafari by Alpenglow.url=http://www.OnSafari.com")
  883.     a.WriteLine("IE Starter Kit\Entertainment\Prevue Channel.url=http://www.prevue.com")
  884.     a.WriteLine("IE Starter Kit\Entertainment\webmonkey by HotWired.url=http://www.webmonkey.com/ie")
  885.     a.WriteLine("IE Starter Kit\Entertainment\WinterNet by iion.url=http://www.iion.com/WinterNet")
  886.     a.WriteLine("IE Starter Kit\International\Canada - 1997 Northamerica Golf Directory & Yellow Pages of Golf.url=http://www.Yellowpagesgolf.com")
  887.     a.WriteLine("IE Starter Kit\International\France - Kleline - Secure Online Payment Services.url=http://www.Kleline.fr")
  888.     a.WriteLine("IE Starter Kit\International\Hungary - TOPSEC Kft.url=http://www.topsec.hu")
  889.     a.WriteLine("IE Starter Kit\International\Spain - Medusa - European Internet service provider.url=http://www.Medusa.es")
  890.     a.WriteLine("IE Starter Kit\Microsoft\Carpoint.url=http://www.carpoint.msn.com")
  891.     a.WriteLine("IE Starter Kit\Microsoft\Get ISDN.url=http://www.microsoft.com/windows/getisdn")
  892.     a.WriteLine("IE Starter Kit\Microsoft\IE Web Site.url=http://www.microsoft.com/ie")
  893.     a.WriteLine("IE Starter Kit\Microsoft\Microsoft Games.url=http://www.Microsoft.com/Games")
  894.     a.WriteLine("IE Starter Kit\Microsoft\Microsoft Hellbender.url=http://www.Microsoft.com/games/hellbender")
  895.     a.WriteLine("IE Starter Kit\Microsoft\Microsoft.url=http://www.Microsoft.com")
  896.     a.WriteLine("IE Starter Kit\Microsoft\MSN.url=http://www.msn.com")
  897.     a.WriteLine("IE Starter Kit\Microsoft\SideWinder Gaming Devices.url=http://www.Microsoft.com/Hardware")
  898.     a.WriteLine("IE Starter Kit\Microsoft\Small Business.url=http://www.microsoft.com/smallbiz")
  899.     a.WriteLine("IE Starter Kit\Miscellaneous\America Online.url=http://www.AOL.com")
  900.     a.WriteLine("IE Starter Kit\Miscellaneous\ClubIE - Activating the Internet.url=http://www.clubie.com")
  901.     a.WriteLine("IE Starter Kit\Miscellaneous\CompuServe.url=http://www.Compuserve.com")
  902.     a.WriteLine("IE Starter Kit\Miscellaneous\Cool Games.url=http://www.zone.com")
  903.     a.WriteLine("IE Starter Kit\Miscellaneous\Host a Web Page.url=http://www.vservers.com")
  904.     a.WriteLine("IE Starter Kit\Miscellaneous\MCI.url=http://www.MCI.com")
  905.     a.WriteLine("IE Starter Kit\Miscellaneous\Monty Python.url=http://www.pythonline.com")
  906.     a.WriteLine("IE Starter Kit\Miscellaneous\Travel.url=http://www.expedia.com")
  907.     a.WriteLine("IE Starter Kit\Miscellaneous\Win Cash and Prizes!.url=http://www.explorethis.com")
  908.     a.WriteLine("IE Starter Kit\Miscellaneous\WOW! from CompuServe.url=http://www.Wow.com")
  909.     a.WriteLine("International\Canada - 1997 Northamerica Golf Directory & Yellow Pages of Golf.url=http://www.Yellowpagesgolf.com")
  910.     a.WriteLine("International\France - Kleline - Secure Online Payment Services.url=http://www.Kleline.fr")
  911.     a.WriteLine("International\Hungary - TOPSEC Kft.url=http://www.topsec.hu")
  912.     a.WriteLine("International\Spain - Medusa - European Internet service provider.url=http://www.Medusa.es")
  913.     a.WriteLine("Internet Starter Kit Sites\Axime.url=http://www.axime.com")
  914.     a.WriteLine("Internet Starter Kit Sites\BET Network.url=http://www.betnetworks.com")
  915.     a.WriteLine("Internet Starter Kit Sites\Canal Plus.url=http://www.cplus.fr")
  916.     a.WriteLine("Internet Starter Kit Sites\Cyberia Cafe.url=http://channel.cyberiacafe.net/cyberia")
  917.     a.WriteLine("Internet Starter Kit Sites\DealerNet.url=http://www.dealernet.com")
  918.     a.WriteLine("Internet Starter Kit Sites\Elle Magazine.url=http://www.elle.fr/")
  919.     a.WriteLine("Internet Starter Kit Sites\ESPN Sportszone.url=http://espnet.sportszone.com")
  920.     a.WriteLine("Internet Starter Kit Sites\Investors Edge.url=http://www.investorsedge.com")
  921.     a.WriteLine("Internet Starter Kit Sites\King FM.url=http://www.king.org")
  922.     a.WriteLine("Internet Starter Kit Sites\NBC.url=http://www.nbc.com")
  923.     a.WriteLine("Internet Starter Kit Sites\Nichols Hills Elementry School.url=http://www.ionet.net/~rmercer/index.shtml")
  924.     a.WriteLine("Internet Starter Kit Sites\Sci Fi Channel.url=http://www.scifi.com")
  925.     a.WriteLine("Internet Starter Kit Sites\Shoppers Advantage.url=http://www.cuc.com")
  926.     a.WriteLine("Internet Starter Kit Sites\Splash Kids Online.url=http://www.splash.com")
  927.     a.WriteLine("Internet Starter Kit Sites\TF1 Online.url=http://www.tf1.fr")
  928.     a.WriteLine("Internet Starter Kit Sites\US Bank Online.url=http://www.usbank.com")
  929.     a.WriteLine("Internet Starter Kit Sites\Business\CNET.url=http://www.cnet.com")
  930.     a.WriteLine("Internet Starter Kit Sites\Business\FTD Internet.url=http://www.ftd.com")
  931.     a.WriteLine("Internet Starter Kit Sites\Business\Intel.url=http://www.Intel.com")
  932.     a.WriteLine("Internet Starter Kit Sites\Business\Investors Edge.url=http://www.investorsedge.com/")
  933.     a.WriteLine("Internet Starter Kit Sites\Business\NetStockDirect.url=http://www.NetStockDirect.com")
  934.     a.WriteLine("Internet Starter Kit Sites\Business\Windows95.url=http://www.Windows95.com")
  935.     a.WriteLine("Microsoft Software and Service\Get Faster Internet Access with ISDN.URL=http://www.microsoft.com/windows/getisdn")
  936.     a.WriteLine("Microsoft Software and Service\Microsoft Product Support Services.URL=http://www.microsoft.com/support/")
  937.     a.WriteLine("Microsoft Software and Service\The Microsoft Corporation.URL=http://www.microsoft.com/")
  938.     a.WriteLine("Microsoft Software and Service\The Microsoft Network.URL=http://www.msn.com/")
  939.     a.WriteLine("Microsoft Software and Service\Cool Sites\Link Central.URL=http://www.msn.com/access/links/other.htm")
  940.     a.WriteLine("Microsoft Software and Service\tomy\tomy.url=http://www.msn.com")
  941.     a.WriteLine("MS Software and Service\Get Faster Internet Access with ISDN.URL=http://www.microsoft.com/windows/getisdn")
  942.     a.WriteLine("MS Software and Service\Microsoft Product Support Services.URL=http://www.microsoft.com/support/")
  943.     a.WriteLine("MS Software and Service\The Microsoft Corporation.URL=http://www.microsoft.com/")
  944.     a.WriteLine("MS Software and Service\The Microsoft Network.URL=http://www.msn.com/")
  945.     a.WriteLine("[DesktopObjects]")
  946.     a.WriteLine("Desktop Wallpaper Path=G:\Wallpaper\wolf.bmp")
  947.     a.WriteLine("Option=1")
  948.     a.WriteLine("My Computer Path=G:\Webview\mycomp.htt")
  949.     a.WriteLine("Control Panel Path=G:\Webview\controlp.htt")
  950.     a.WriteLine("Desktop Component URL=G:\Wallpapr\mls.htm")
  951.     a.WriteLine("Desktop Component Local Flag=1")
  952.     a.WriteLine("[Custom Wallpaper]")
  953.     a.WriteLine("NumFiles=1")
  954.     a.WriteLine("file0=wolf.bmp")
  955.     a.WriteLine("[ExtRegInf]")
  956.     a.WriteLine("chat=*,chat.inf,DefaultInstall")
  957.     a.WriteLine("inetadv=*,inetadv.inf,DefaultInstall")
  958.     a.WriteLine("cdl=*,cdl.inf,DefaultInstall")
  959.     a.WriteLine("conf=*,conf.inf,DefaultInstall")
  960.     a.WriteLine("oe=*,oe.inf,DefaultInstall")
  961.     a.WriteLine("[Animation]")
  962.     a.WriteLine("Big_Path=38.bmp")
  963.     a.WriteLine("Big_Name=38.bmp")
  964.     a.WriteLine("Small_Path=22.bmp")
  965.     a.WriteLine("Small_Name=22.bmp")
  966.     a.WriteLine("DoAnimation=1")
  967.     a.WriteLine("[Big_Logo]")
  968.     a.WriteLine("Name=38.bmp")
  969.     a.WriteLine("Path=38.bmp")
  970.     a.WriteLine("[Small_Logo]")
  971.     a.WriteLine("Name=22.bmp")
  972.     a.WriteLine("Path=22.bmp")
  973.     a.WriteLine("[Proxy]")
  974.     a.WriteLine("HTTP_Proxy_Server=ITGPROXY:80")
  975.     a.WriteLine("FTP_Proxy_Server=ITGPROXY:80")
  976.     a.WriteLine("Gopher_Proxy_Server=ITGPROXY:80")
  977.     a.WriteLine("Secure_Proxy_Server=ITGPROXY:80")
  978.     a.WriteLine("Socks_Proxy_Server=")
  979.     a.WriteLine("Use_Same_Proxy=1")
  980.     a.WriteLine("Proxy_Override=<local>")
  981.     a.WriteLine("Proxy_Enable=1")
  982.     a.WriteLine("[Custom]")
  983.     a.WriteLine("Keep_Connection=Yes")
  984.     a.WriteLine("[Entry]")
  985.     a.WriteLine("Entry_Name=Challenger Internet Signup")
  986.     a.WriteLine("[Phone]")
  987.     a.WriteLine("Phone_Number=54639")
  988.     a.WriteLine("Area_Code=")
  989.     a.WriteLine("Country_Code=1")
  990.     a.WriteLine("Country_ID=1")
  991.     a.WriteLine("Dial_As_Is=No")
  992.     a.WriteLine("[User]")
  993.     a.WriteLine("Requires_Logon=Yes")
  994.     a.WriteLine("[Server]")
  995.     a.WriteLine("SW_Compress=Yes")
  996.     a.WriteLine("PW_Encrypt=No")
  997.     a.WriteLine("Type=PPP")
  998.     a.WriteLine("Negotiate_TCP/IP=Yes")
  999.     a.WriteLine("[TCP/IP]")
  1000.     a.WriteLine("Specify_Server_Address=No")
  1001.     a.WriteLine("IP_Header_Compress=Yes")
  1002.     a.WriteLine("Gateway_On_Remote=Yes")
  1003.     a.WriteLine("DNS_Address=0.0.0.0")
  1004.     a.WriteLine("DNS_Alt_Address=0.0.0.0")
  1005.     a.WriteLine("[SWUpdates]")
  1006.     a.WriteLine("SoftwareUpdates=0")
  1007.     a.WriteLine("[Scripting]")
  1008.     a.WriteLine("Path32=")
  1009.     a.WriteLine("Name32=")
  1010.     a.WriteLine("Path16=")
  1011.     a.WriteLine("Name16=")
  1012.     a.WriteLine("[Internet_News]")
  1013.     a.WriteLine("NNTP_Server=msnews-gw")
  1014.     a.WriteLine("Default_Client=Yes")
  1015.     a.WriteLine("Logon_Using_SPA=Yes")
  1016.     a.WriteLine("Logon_Required=1")
  1017.     a.WriteLine("[LDAP]")
  1018.     a.WriteLine("FriendlyName=Friendly LDAP Service")
  1019.     a.WriteLine("Server=isbuldap1")
  1020.     a.WriteLine("HomePage=http://isbuldap1")
  1021.     a.WriteLine("SearchBase=c=us")
  1022.     a.WriteLine("Bitmap=G:\Acme Demo\LDAP Services.bmp")
  1023.     a.WriteLine("CheckNames=0")
  1024.     a.WriteLine("AuthType=0")
  1025.     '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1026.     '% END install.ins Customization
  1027.     '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1028.  
  1029.     a.WriteLine("")
  1030.     a.Close
  1031.     Response.redirect "instal.ins"
  1032. end if 
  1033. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1034. '% END Finish
  1035. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1036.  
  1037.  
  1038.  
  1039. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1040. '% BEGIN Else
  1041. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1042.    Case Else
  1043. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1044.     Response.write "No Current Page"
  1045. End Select
  1046. %>