home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / reconfg2.asp < prev    next >
Encoding:
Text File  |  1999-02-24  |  3.1 KB  |  74 lines
  1. <%
  2. '/=======================================================>
  3. '/            reconfg Server Sample Page 02
  4. '/                  Daniel Jacobson
  5. '/              Modified by Edward C Kubaitis
  6. '/                  Rev .07    9/98
  7. '/=======================================================>
  8. '/=======================================================>
  9. '/ Get all of the varriables from the ICW
  10. '/and get them set into varriables
  11. '/=======================================================>
  12.     EMAILNAME = Request("EMAILNAME")
  13.     EMAILPASSWORD = Request("EMAILPASSWORD")
  14.  
  15. '/=======================================================>
  16. '/ lowercase the contents of the varriables and
  17. '/ then trim any leading or trailing spaces
  18. '/=======================================================>
  19.     If EMAILNAME <> "" Then
  20.         EMAILNAME = LCASE(EMAILNAME)
  21.         EMAILNAME = TRIM(EMAILNAME)
  22.     End If
  23.  
  24.     If EMAILPASSWORD <> "" Then
  25.         EMAILPASSWORD = LCASE(EMAILPASSOPRD)
  26.         EMAILPASSWORD = TRIM(EMAILPASSWORD)
  27.     End If
  28.  
  29. '/=======================================================>
  30. '/ Build the BACK BACKURL with the name value pairs
  31. '/=======================================================>
  32.     BACKURL = "http://myserver/reconfg1.asp?EMAILNAME="
  33.     BACKURL = BACKURL & Server.URLEncode(EMAILNAME)
  34.     BACKURL = BACKURL & CHR(38)
  35.     BACKURL = BACKURL & "EMAILPASSWORD="
  36.     BACKURL = BACKURL & Server.URLEncode(EMAILPASSWORD)
  37.     BACKURL = BACKURL & CHR(38)
  38. '/=======================================================>
  39. '/ Build the NEXT BACKURL
  40. '/=======================================================>
  41.     NEXTURL = "http://myserver/reconfg3.asp?EMAILNAMENAME="
  42.     NEXTURL = NEXTURL & CHR(38)
  43.     NEXTURL = NEXTURL & "EMAILPASSWORD="
  44.     NEXTURL = NEXTURL & Server.URLEncode(EMAILPASSWORD)
  45.     NEXTURL = NEXTURL & CHR(38)
  46.     NEXTURL = NEXTURL & "POPSELECTION="
  47.     NEXTURL = NEXTURL & Server.URLEncode(POPSELECTION)
  48.     NEXTURL = NEXTURL & CHR(38)
  49. %>
  50. <HTML>
  51. <HEAD>
  52. <TITLE>IEAK Sample Reconfg Page 2</TITLE>
  53. </HEAD>
  54. <BODY bgColor=THREEDFACE color=WINDOWTEXT><FONT style="font: 8pt ' ms sans serif' black">
  55. <FORM NAME="PAGEID" ACTION="PAGE2" STYLE="background:transparent"></FORM>
  56. <FORM NAME="BACK" ACTION="<% =BACKURL %>" STYLE="background:transparent"></FORM>
  57. <FORM NAME="PAGETYPE" ACTION="" STYLE="background:transparent"></FORM>
  58. <FORM NAME="NEXT" ACTION="<% =NEXTURL %>" STYLE="background:transparent">
  59. <B>Re-Establishing Your Acme Internet Services Account</B><BR>
  60. <P>Please select the telephone number you wish to use to access the Internet.<BR>
  61. <SELECT NAME="POPSELECTION">
  62. <OPTION VALUE="1" >800 555 1234 Nation Wide 56K X2
  63. <OPTION VALUE="2" >425 555 1234 Seattle / Redmond 56K X2
  64. <OPTION VALUE="3" >425 555 1234 Seattle / Redmond 56K X2
  65. <OPTION VALUE="4" >425 555 1234 Seattle / Redmond ISDN
  66. <OPTION VALUE="5" >425 555 1234 Seattle / Redmond ISDN
  67. <OPTION VALUE="6" >425 555 1234 Seattle / Redmond ISDN
  68. </SELECT>
  69. <INPUT NAME="EMAILNAME" value="<% =EMAILNAME %>" TYPE="HIDDEN">
  70. <INPUT NAME="EMAILPASSWORD" value="<% =EMAILPASSWORD %>" TYPE="HIDDEN">
  71. <INPUT NAME="POPSELECTION" value="<% =POPSELECTION %>" TYPE="HIDDEN">
  72. </FORM>
  73. </BODY>
  74. </HTML>