home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / servis / SPNT / sp6x86.exe / urlform.asp < prev    next >
Encoding:
Text File  |  1999-12-15  |  1.5 KB  |  66 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="Verdana" size="-2"><A  Language="VBSCRIPT" HREF = <% response.write """#""" & " onClick = """ & HelpWindow("Links") %>">P°idejte novΘ odkazy</A>.
  47.  
  48.         <BR>Adresa URL<BR>
  49.         <!--INPUT NAME="add" TYPE=HIDDEN VALUE="1"-->
  50.         <INPUT NAME=url TYPE=text size=20 maxlength=45 VALUE="http://"><BR>
  51.         Popis<BR>
  52.         <INPUT NAME=urlWords size=20 maxlength=45 TYPE=text><BR>
  53.         <CENTER>
  54.         <INPUT Type="submit" NAME=addLink VALUE="P°idat odkaz"
  55.         Language="VBSCRIPT" onClick="SUBMIT">
  56.          
  57.         <INPUT Type="button" NAME=clear VALUE="Vymazat pole"
  58.         Language="VBSCRIPT" onClick="reset">
  59.         </CENTER>
  60.     </FORM>
  61. </TD>
  62. </TR>
  63. </TABLE>
  64. </BODY>
  65. </HTML>
  66.