home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Compu…g and running Windows 98 / win98pb.iso / netkit / smartdes / websuite.exe / USERMOD.AP_ / USERMOD.AP
Encoding:
Text File  |  1998-04-01  |  5.9 KB  |  153 lines
  1. <[
  2. // Virtual Name Server - User Modification
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION webUserDirOpen( session, path )
  6.  
  7.     local dbname, dbindex, db
  8.  
  9.     dbname = fileFixPath( path + '\userdir.db' )
  10.     if ( ! fileExists( dbname ) )
  11.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  12.         return(0)
  13.     end
  14.  
  15.     db = dbuse( dbname, "users", 1 )
  16.     if ( ! db )
  17.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  18.         return(0)
  19.     end
  20.         
  21.     dbindex = fileFixPath( path + '\userdir.dx' )
  22.        if ( ! fileExists( dbindex ) )
  23.            users->dbClose( )
  24.         session.error(  "Unable to open " + dbindex + " index file.", "FFFFFF", "000000" )
  25.         return(0)
  26.        end
  27.  
  28.        users->dbOpenIndex( dbindex )
  29.        users->dbOrder( 1 )
  30.  
  31.     return( db )
  32. END
  33.  
  34. // Main code
  35.  
  36.     _apGenerate( )
  37.  
  38.     websrvr = 0 + param( 1 )
  39.     sessionId = 0 + param( 2 )
  40.  
  41.     session = new( "session", websrvr, sessionId )
  42.     if ( ! session.secure( "UserDir.Admin" ) )
  43.         return( 0 )
  44.     end
  45.  
  46.     data = session.var( "USERID" )
  47.     if ( strempty( data ) )
  48.         session.error( "No Record Provided!" )
  49.         return( 0 )
  50.     end
  51.     rec = ( 0 + data ) - 16384
  52.     if  ( rec < 1 ) 
  53.         session.error( "Invalid Record Specified!" )
  54.         return( 0 )
  55.     end
  56.     
  57.     if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) )
  58.         return( 0 )
  59.     end
  60.  
  61.     if ( ! users->dbGoto( rec ) )
  62.         session.error( "Invalid Record Specified!" )
  63.         return( 0 )
  64.     end
  65.  
  66. ]>
  67. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  68. <!-- SmartDesk Active Page, www.smartdesk.com -->
  69. <HTML>
  70. <HEAD>
  71. <TITLE>Virtual Name Server - User Modify</TITLE>
  72. </HEAD>
  73. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  74.  
  75. <TABLE BORDER=0 WIDTH=600>
  76.  <TR>
  77.   <TD VALIGN="top" WIDTH=159>
  78.    <CENTER>
  79.    <FONT COLOR="#FFFF00"><B>User Modify</B></FONT><BR>
  80.    <A HREF="/index.htm"><IMG SRC="/image/ws.jpg" BORDER=0 WIDTH=159 HEIGHT=300></A><BR>
  81.    <FONT COLOR="#FFFFFF" SIZE=2><P><A HREF="userdir.htm">Directory</A> | <A HREF="/index.htm">Home</A></P></FONT>
  82.    </CENTER>
  83.   </TD>
  84.   <TD WIDTH=30>
  85.    <FONT SIZE=5 COLOR="#000000">.</FONT>
  86.   </TD>
  87.   <TD WIDTH=410 VALIGN="top">
  88.  
  89.    <CENTER>
  90.  
  91.    <B>Use this screen to modify user information:</B><BR>
  92.  
  93.    <FORM ACTION="usermod2.htm" METHOD="GET">
  94.    <INPUT NAME="USERID" TYPE="hidden" VALUE="<[ ! session.var( "USERID" ) ]>">
  95.  
  96.    <P><BR></P>
  97.  
  98.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=410>
  99.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>First Name </B></TD><TD WIDTH=260><INPUT NAME="fname" TYPE= "text" VALUE="<[ ! rtrim( users->fname ) ]>" SIZE=35></TD></TR>
  100.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Middle Name: </B></TD><TD WIDTH=260><INPUT NAME="mname" TYPE= "text" VALUE="<[ ! rtrim( users->mname ) ]>" SIZE=35></TD></TR>
  101.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Last Name: </B></TD><TD WIDTH=260><INPUT NAME="lname" TYPE= "text" VALUE="<[ ! rtrim( users->lname ) ]>" SIZE=35></TD></TR>
  102.  
  103.     <TR><TD WIDTH=20></TD><TD WIDTH=130><FONT COLOR="#000000">.</FONT></TD></TR>
  104.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Street Address: </B></TD><TD WIDTH=260><INPUT NAME="street" TYPE= "text" VALUE="<[ ! rtrim( users->street ) ]>" SIZE=35></TD></TR>
  105.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>City: </B></TD><TD WIDTH=260><INPUT NAME="city" TYPE= "text" VALUE="<[ ! rtrim( users->city ) ]>" SIZE=35></TD></TR>
  106.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>State/Province: </B></TD><TD WIDTH=260><INPUT NAME="state" TYPE= "text" VALUE="<[ ! rtrim( users->state ) ]>" SIZE=35></TD></TR>
  107.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Zip/Postal Code: </B></TD><TD WIDTH=260><INPUT NAME="zip" TYPE= "text" VALUE="<[ ! rtrim( users->zip ) ]>" SIZE=35></TD></TR>
  108.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Country: </B></TD><TD WIDTH=260><INPUT NAME="country" TYPE= "text" VALUE="<[ ! rtrim( users->country ) ]>" SIZE=35></TD></TR>
  109.  
  110.     <TR><TD WIDTH=20></TD><TD WIDTH=130><FONT COLOR="#000000">.</FONT></TD></TR>
  111.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Company Name: </B></TD><TD WIDTH=260><INPUT NAME="c_name" TYPE= "text" VALUE="<[ ! rtrim( users->c_name ) ]>" SIZE=35></TD></TR>
  112.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Company Title:</B></TD><TD WIDTH=260><INPUT NAME="c_title" TYPE= "text" VALUE="<[ ! rtrim( users->c_title ) ]>" SIZE=35></TD></TR>
  113.  
  114.     <TR><TD WIDTH=20></TD><TD WIDTH=130><FONT COLOR="#000000">.</FONT></TD></TR>
  115.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Phone 1: </B></TD><TD WIDTH=260><INPUT NAME="phone1" TYPE= "text" VALUE="<[ ! rtrim( users->phone1 ) ]>" SIZE=35></TD></TR>
  116.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Phone 2: </B></TD><TD WIDTH=260><INPUT NAME="phone2" TYPE= "text" VALUE="<[ ! rtrim( users->phone2 ) ]>" SIZE=35></TD></TR>
  117.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Phone 3: </B></TD><TD WIDTH=260><INPUT NAME="phone3" TYPE= "text" VALUE="<[ ! rtrim( users->phone3 ) ]>" SIZE=35></TD></TR>
  118.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Phone 4: </B></TD><TD WIDTH=260><INPUT NAME="phone4" TYPE= "text" VALUE="<[ ! rtrim( users->phone4 ) ]>" SIZE=35></TD></TR>
  119.  
  120.     <TR><TD WIDTH=20></TD><TD WIDTH=130><FONT COLOR="#000000">.</FONT></TD></TR>
  121.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Email Address: </B></TD><TD WIDTH=260><INPUT NAME="email" TYPE= "text" VALUE="<[ ! rtrim( users->email ) ]>" SIZE=35></TD></TR>
  122.  
  123.     <TR><TD WIDTH=20></TD><TD WIDTH=130><FONT COLOR="#000000">.</FONT></TD></TR>
  124.     <TR><TD WIDTH=20></TD><TD WIDTH=130><B>Message: </B></TD><TD WIDTH=260><INPUT NAME="msg" TYPE= "text" VALUE="<[ ! rtrim( users->msg ) ]>" SIZE=35></TD></TR>
  125.  
  126.    </TABLE>
  127.  
  128.    <P><BR></P>
  129.  
  130.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=300>
  131.     <TR>
  132.      <TD align=center>
  133.       <INPUT TYPE="Submit" VALUE="Click Here to Save the Changes">
  134.      </TD>
  135.     </TR>
  136.    </TABLE>
  137.  
  138.    </FORM>
  139.  
  140.    </CENTER>
  141.  
  142.    <CENTER>
  143.    <FONT SIZE=2><A HREF="usersrch.htm">Search</A> | <A HREF="userdir.htm">Directory</A></FONT><BR>
  144.    </CENTER>
  145.  
  146.   </TD>
  147.  </TR>
  148. </TABLE>
  149.  
  150. </BODY>
  151. </HTML>
  152.  
  153.