home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / urlform.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  1.4 KB  |  65 lines
  1. <%
  2.  @ LANGUAGE="VBSCRIPT"
  3. %>
  4. <%
  5.  Option Explicit
  6.  Dim i
  7.  Dim intID
  8.  Dim Theme
  9. %>
  10. <HTML>
  11. <!--
  12.     $Date: 9/24/97 9:22p $
  13.     $ModTime: $
  14.     $Revision: 6 $
  15.     $Workfile: urlform.asp $
  16. -->
  17. <HEAD>
  18. <TITLE></TITLE>
  19. <%                                                    ' FAVORITE LINKS SCRIPT
  20.  If Request.Form("addLink") <> "" Then                        'add links
  21.     call addLink
  22.  End If
  23.  
  24.  If Request.Form("removeLink") <> "" Then            'remove links
  25.      call removeLink
  26.  End If
  27.  call styleSheet
  28.  %>
  29. <!--#include virtual ="/iissamples/homepage/sub.inc"-->
  30. <!--#include file ='tempsubs.inc'-->
  31. </HEAD>
  32. <BODY TOPMARGIN="0" LEFTMARGIN="0" class=bg1>
  33. <FORM NAME="URLupdate" ACTION="urlform.asp" METHOD="POST">
  34. <TABLE border="0" CellSpacing="0" CellPadding="1">
  35.  
  36.     <%
  37.      If myinfo.intUrl <> "" Then
  38.         call urlArray
  39.      End If
  40.     %>
  41.  
  42. <TR>
  43.     <TD colspan=2>
  44.  
  45.     <Span ID=header>
  46.     <FONT face="Arial" size="-2"><A HREF = <% response.write """#""" & " onClick = """ & HelpWindow("Links") %>">Dodaj nowe │╣cza</A>.
  47.         <BR>URL<BR>
  48.         <!--INPUT NAME="add" TYPE=HIDDEN VALUE="1"-->
  49.         <INPUT NAME=url TYPE=text size=20 maxlength=45 VALUE="http://"><BR>
  50.         Opis<BR>
  51.         <INPUT NAME=urlWords size=20 maxlength=45 TYPE=text><BR>
  52.         <CENTER>
  53.         <INPUT Type="submit" NAME=addLink VALUE="dodaj │╣cze"
  54.         Language="VBSCRIPT" onClick="SUBMIT">
  55.          
  56.         <INPUT Type="button" NAME=clear VALUE="wyczy£µ pola"
  57.         Language="VBSCRIPT" onClick="reset">
  58.         </CENTER>
  59.     </FORM>
  60. </TD>
  61. </TR>
  62. </TABLE>
  63. </BODY>
  64. </HTML>
  65.