<%
'/=======================================================>
'/ reconfg Server Sample Page 02
'/ Daniel Jacobson
'/ Modified by Edward C Kubaitis
'/ Rev .07 9/98
'/=======================================================>
'/=======================================================>
'/ Get all of the varriables from the ICW
'/and get them set into varriables
'/=======================================================>
EMAILNAME = Request("EMAILNAME")
EMAILPASSWORD = Request("EMAILPASSWORD")
'/=======================================================>
'/ lowercase the contents of the varriables and
'/ then trim any leading or trailing spaces
'/=======================================================>
If EMAILNAME <> "" Then
EMAILNAME = LCASE(EMAILNAME)
EMAILNAME = TRIM(EMAILNAME)
End If
If EMAILPASSWORD <> "" Then
EMAILPASSWORD = LCASE(EMAILPASSOPRD)
EMAILPASSWORD = TRIM(EMAILPASSWORD)
End If
'/=======================================================>
'/ Build the BACK BACKURL with the name value pairs
'/=======================================================>
BACKURL = "http://myserver/reconfg1.asp?EMAILNAME="
BACKURL = BACKURL & Server.URLEncode(EMAILNAME)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "EMAILPASSWORD="
BACKURL = BACKURL & Server.URLEncode(EMAILPASSWORD)
BACKURL = BACKURL & CHR(38)
'/=======================================================>
'/ Build the NEXT BACKURL
'/=======================================================>
NEXTURL = "http://myserver/reconfg3.asp?EMAILNAMENAME="
NEXTURL = NEXTURL & CHR(38)
NEXTURL = NEXTURL & "EMAILPASSWORD="
NEXTURL = NEXTURL & Server.URLEncode(EMAILPASSWORD)
NEXTURL = NEXTURL & CHR(38)
NEXTURL = NEXTURL & "POPSELECTION="
NEXTURL = NEXTURL & Server.URLEncode(POPSELECTION)
NEXTURL = NEXTURL & CHR(38)
%>
IEAK Sample Reconfg Page 2