home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / CONTACT.AP_ / CONTACT.AP
Text File  |  1998-04-01  |  4KB  |  162 lines
  1. <[
  2. // Virtual Name Server - Contact Information
  3. // (c) 1997-98artDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION ProcessPhoneNumber( phone )
  6.     phone = rtrim( phone )
  7.     if ( strempty( phone ) )
  8.         return( "" )
  9.     end
  10.     if ( at( ":", phone ) > 1 )
  11.         return( "<P><FONT SIZE=2 COLOR=\"00FFFF\">" + strextract( phone, ":", 1 ) + "<BR></FONT><FONT SIZE=2 COLOR=\"FFFFFF\">" + strextract( phone, ":", 2 ) + "</FONT></P>" )
  12.     end
  13.     return( "<P><FONT SIZE=2 COLOR=\"00FFFF\">" + phone + "</FONT></P>" )
  14. END
  15.  
  16.  
  17. FUNCTION GetFullName( )
  18.     return( rtrim( users->fname ) + " " + rtrim( users->mname ) + " " + rtrim( users->lname ) )
  19. END
  20.  
  21.  
  22. FUNCTION webUserDirOpen( session, path )
  23.  
  24.     local dbname, dbindex, db
  25.  
  26.     dbname = fileFixPath( path + '\userdir.db' )
  27.     if ( ! fileExists( dbname ) )
  28.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  29.         return(0)
  30.     end
  31.  
  32.     db = dbuse( dbname, "users", 1 )
  33.     if ( ! db )
  34.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  35.         return(0)
  36.     end
  37.         
  38.     dbindex = fileFixPath( path + '\userdir.dx' )
  39.        if ( ! fileExists( dbindex ) )
  40.            users->dbClose( )
  41.         session.error(  "Unable to open " + dbindex + " index file.", "FFFFFF", "000000" )
  42.         return(0)
  43.        end
  44.  
  45.        users->dbOpenIndex( dbindex )
  46.        users->dbOrder( 1 )
  47.  
  48.     return( db )
  49. END
  50.  
  51. // Main code
  52.  
  53.     _apGenerate( )
  54.  
  55.     websrvr = 0 + param( 1 )
  56.     sessionId = 0 + param( 2 )
  57.  
  58.     session = new( "session", websrvr, sessionId )
  59.  
  60.     data = session.data( "QUERY_STRING" )
  61.     if ( strempty( data ) )
  62.         session.error( "No Record Provided!" )
  63.         return( 0 )
  64.     end
  65.  
  66.     rec = ( 0 + data ) - 16384
  67.     if  ( rec < 1 ) 
  68.         session.error( "Invalid Record Specified!" )
  69.         return( 0 )
  70.     end
  71.     
  72.     if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) )
  73.         return( 0 )
  74.     end
  75.  
  76.     if ( ! users->dbGoto( rec ) )
  77.         session.error( "Invalid Record Specified!" )
  78.         return( 0 )
  79.     end
  80.  
  81. ]>
  82. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  83. <!-- SmartDesk Active Page, www.smartdesk.com -->
  84. <HTML>
  85. <HEAD>
  86. <TITLE>Contact Information for <[ ! GetFullName( ) ]></TITLE>
  87. </HEAD>
  88. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  89.  
  90. <TABLE BORDER=0 WIDTH=600>
  91.  <TR>
  92.   <TD VALIGN="top" WIDTH=159>
  93.    <CENTER>
  94.    <A HREF="/index.htm"><IMG SRC="/image/ws.jpg" BORDER=0 WIDTH=159 HEIGHT=300></A>
  95.    <FONT SIZE=2>
  96.    <A HREF="userdir.htm">Directory</A>
  97.    </FONT>
  98.    </CENTER>
  99.   </TD>
  100.   <TD WIDTH=15>
  101.    <FONT SIZE=5 COLOR="#000000">.</FONT>
  102.   </TD>
  103.   <TD WIDTH=320 VALIGN="top">
  104.  
  105.    <P><BR></P>
  106.    <P><BR></P>
  107.  
  108.    <TABLE BORDER=0 WIDTH=300>
  109.     <TR>
  110.      <TD VALIGN="top" WIDTH=370>
  111.       <P>
  112.          <FONT SIZE=6 COLOR="#00FFFF"><[ ! GetFullName( ) ]></FONT><BR>
  113.          <FONT SIZE=3 COLOR="#FFFFFF"><[ ! users->c_title ]></FONT><BR>
  114.          <FONT SIZE=3 COLOR="#FFFFFF"><[ ! users->c_name ]></FONT><BR>
  115.          </P>
  116.          <P>
  117.          <FONT SIZE=3 COLOR="#FFFFFF"><[ ! users->street ]></FONT><BR>
  118.          <FONT SIZE=3 COLOR="#FFFFFF"><[ ! rtrim( users->city ) + ( strempty( users->city ) ? "" : ", "  ) + rtrim( users->state ) + " " + rtrim( users->zip ) + " " + rtrim( users->country ) ]></FONT>
  119.       </P>
  120. <[
  121.     if ( strempty( users->email ) )
  122.         ! "<P><BR></P>"
  123.         ! "<P><BR></P>"
  124.     else
  125.              ! "<A HREF=\"mailto:" + rtrim( users->email ) + "\">Email Address:</A><BR>"
  126.              ! "<FONT SIZE=3 COLOR=\"#FFFFFF\">" + rtrim( users->email ) + "</FONT>"
  127.        end
  128.  
  129.     if ( ! strempty( users->msg ) )
  130.         ! "<P><FONT COLOR=\"#A0A0A0\" SIZE=4>" + rtrim( users->msg ) + "</FONT></P>"
  131.     end
  132.  
  133.     if ( ! strempty( users->goto_url ) )
  134.         ! "<P><BR></P>"
  135.         ! "<CENTER><A HREF=\"" + rtrim( users->goto_url ) + "\">Access " + rtrim( users->fname ) + "'s Online Web Desktop<BR></CENTER>"
  136.     end
  137.  
  138. ]>
  139.      </TD>
  140.     </TR>
  141.    </TABLE>
  142.  
  143.   </TD>
  144.   <TD WIDTH=120 VALIGN="top">
  145.    <P><BR></P>
  146.    <FONT SIZE=2>
  147.    <P><BR></P>
  148.    <P><BR></P>
  149. <[
  150.     ! ProcessPhoneNumber( users->phone1 )
  151.     ! ProcessPhoneNumber( users->phone2 )
  152.     ! ProcessPhoneNumber( users->phone3 )
  153.     ! ProcessPhoneNumber( users->phone4 )
  154. ]>   
  155.    </FONT>
  156.   </TD>
  157.  </TR>
  158. </TABLE>
  159.  
  160. </BODY>
  161. </HTML>
  162.