home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / reconfg3.asp < prev    next >
Encoding:
Text File  |  1999-02-24  |  3.7 KB  |  112 lines
  1. <%
  2. '/=======================================================>
  3. '/            reconfg Server Sample Page 04
  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.     POPSELECTION = Request("POPSELECTION")
  15.  
  16.     If (HOUR(TIME) < 10) Then
  17.     H="0"&HOUR(TIME)
  18.     End If
  19.     If (HOUR(TIME) > 9) Then
  20.     H=HOUR(TIME)
  21.     End If
  22.     If (MINUTE(TIME) < 10) Then
  23.     M="0"&MINUTE(TIME)
  24.     End If
  25.     If (MINUTE(TIME) > 9) Then
  26.     M=MINUTE(TIME)
  27.     End If
  28.     If (SECOND(TIME) < 10) Then
  29.     S="0"&SECOND(TIME)
  30.     End If
  31.     If (SECOND(TIME) > 9) Then
  32.     S=SECOND(TIME)
  33.     End If
  34.  
  35.     THETIME = H & M & S
  36.  
  37.     If (MONTH(DATE) < 10) Then
  38.     MO="0"&MONTH(DATE)
  39.     End If
  40.     If (MONTH(DATE) > 9) Then
  41.      MO=MONTH(DATE)
  42.     End If
  43.     If (DAY(DATE) < 10) Then
  44.     D="0"&DAY(DATE)
  45.     End If
  46.     If (DAY(DATE) > 9) Then
  47.     D=DAY(DATE)
  48.     End If
  49.  
  50.     THEDATE = YEAR(date) & MO & D
  51.  
  52. '/=======================================================>
  53. '/ lowercase the contents of the varriables and
  54. '/ then trim any leading or trailing spaces
  55. '/=======================================================>
  56.     If EMAILNAME <> "" Then
  57.         EMAILNAME = LCASE(EMAILNAME)
  58.         EMAILNAME = TRIM(EMAILNAME)
  59.     End If
  60.     If EMAILPASSWORD <> "" Then
  61.         EMAILPASSWORD = LCASE(EMAILPASSWORD)
  62.         EMAILPASSWORD = TRIM(EMAILPASSWORD)
  63.     End If
  64.     If POPSELECTION <> "" Then
  65.         POPSELECTION = LCASE(POPSELECTION)
  66.         POPSELECTION = TRIM(POPSELECTION)
  67.     End If
  68.  
  69. '/=======================================================>
  70. '/ Build the BACK BACKURL with the name value pairs
  71. '/=======================================================>
  72.     BACKURL = "http://myserver/reconfg2.asp?EMAILNAME="
  73.     BACKURL = BACKURL & Server.URLEncode(EMAILNAME)
  74.     BACKURL = BACKURL & CHR(38)
  75.     BACKURL = BACKURL & "EMAILPASSWORD="
  76.     BACKURL = BACKURL & Server.URLEncode(EMAILPASSWORD)
  77.     BACKURL = BACKURL & CHR(38)
  78.     BACKURL = BACKURL & "POPSELECTION="
  79.     BACKURL = BACKURL & POPSELECTION
  80.  
  81. '/=======================================================>
  82. '/ Build the NEXT BACKURL
  83. '/=======================================================>
  84.     NEXTURL = "http://myserver/reconfg4.asp?EMAILNAME="
  85.     NEXTURL = NEXTURL & Server.URLEncode(EMAILNAME)
  86.     NEXTURL = NEXTURL & CHR(38)
  87.     NEXTURL = NEXTURL & "EMAILPASSWORD="
  88.     NEXTURL = NEXTURL & Server.URLEncode(EMAILPASSWORD)
  89.     NEXTURL = NEXTURL & CHR(38)
  90.     NEXTURL = NEXTURL & "POPSELECTION="
  91.     NEXTURL = NEXTURL & POPSELECTION
  92.     NEXTURL = NEXTURL & CHR(38)
  93.  
  94. %>
  95. <HTML>
  96. <HEAD>
  97. <TITLE>IEAK Sample Reconfg Page 3</TITLE>
  98. </HEAD>
  99. <BODY bgColor=THREEDFACE color=WINDOWTEXT><FONT style="font: 8pt ' ms sans serif' black">
  100. <FORM NAME="PAGEID" ACTION="PAGE3" STYLE="background:transparent"></FORM>
  101. <FORM NAME="BACK" ACTION="<% =BACKURL %>" STYLE="background:transparent"></FORM>
  102. <FORM NAME="PAGETYPE" ACTION="FINISH" STYLE="background:transparent"></FORM>
  103. <FORM NAME="NEXT" ACTION="<% =NEXTURL %>" STYLE="background:transparent">
  104. <B>Re-Establishing Your Acme Internet Services Account</B><BR>
  105. Your signup is completed. Please note that it may take us up to 30 minutes to process and activate your account. If your account is not active within 30 minutes please notify our system administrators and they will rectify the problem for you.<P>
  106. <INPUT TYPE="HIDDEN" NAME="EMAILNAME" VALUE="<% =EMAILNAME %>">
  107. <INPUT TYPE="HIDDEN" NAME="EMAILPASSWORD" VALUE="<% =EMAILPASSWORD %>">
  108. <INPUT TYPE="HIDDEN" NAME="POPSELECTION" VALUE="<% =POPSELECTION %>">
  109. </FORM>
  110.  
  111. </BODY>
  112. </HTML>