 <form name="formatting_tool">
<p class="SubHead">FORMATTING TOOLS</p>
<table width="100%" border="0" cellspacing="" cellpadding="1" bgcolor="#666666">
  <tr> 
    <td>
	    <table width="100%" border="0" cellspacing="0" cellpadding="2">
          <tr bgcolor="#EEEEEE"> 
            <td colspan="2" bgcolor="#666666"><font color="#FFFFFF">Hyperlinks</font></td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td colspan="2" class="smalltext">Type in complete URL and a specified 
              target. Then highlight the words in the body of the page that you 
              would like the hyperlink to be on and click "Insert Link".</td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td colspan="2"><b>Link to Exterior Website</b></td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td>URL: </td>
            <td> 
              <input type="text" name="Hyperlink1" value="http://">
            </td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td height="26">Target:</td>
            <td height="26"> 
              <select name="Target1">
                <option value="_blank" selected>New Window</option>
                <option value="_top">Same Window</option>
              </select>
            </td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td height="26">&nbsp;</td>
            <td height="26"> 
              <input type="BUTTON" name="link" value="Insert Link" onClick="insertLink(document.formatting_tool.Hyperlink1.value,document.formatting_tool.Target1.value)">
            </td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td height="26" colspan="2"><b>Link to Page Within Site:</b></td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td height="26">URL:</td>
            <td height="26"> 
              <select name="Hyperlink2">
                <%			
				Set fso = CreateObject("Scripting.FileSystemObject")
				filename=server.mappath("/pthklaw/newsite/")
				Set f = fso.GetFolder(filename)  
				Set fc = f.Files 
			
				For Each f1 in fc
					If Right(f1.name,4)=".asp" AND Left(f1.name,7)<>"include" Then
					  Response.Write "<option value='" & f1.name & "'>" & f1.name & "</option>"
					End If
				Next  
				
				Set fso = nothing
				Set f = nothing
				Set fc = nothing
			%>
              </select>
            </td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td>&nbsp;</td>
            <td> 
              <input type="BUTTON" name="link" value="Insert Link" onClick="insertLink(document.formatting_tool.Hyperlink2.value,'_top')">
            </td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td height="26" colspan="2"><b>Insert PDF:</b></td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td height="26">URL:</td>
            <td height="26"> 
              <select name="Hyperlink3">
                <%
			
				Set fso = CreateObject("Scripting.FileSystemObject")
				filename=server.mappath("/pthklaw/newsite/pdfs/")
				Set f = fso.GetFolder(filename)  
				Set fc = f.Files 
			
				For Each f1 in fc
					If Right(f1.name,4)=".pdf" Then
					If Len(f1.name)>15 Then
					  Response.Write "<option value='" & f1.name & "'>" & Left(f1.name,15) & "~.pdf</option>"
					Else
					  Response.Write "<option value='" & f1.name & "'>" & f1.name & "</option>"
					End if
					End If
				Next  
				
				Set fso = nothing
				Set f = nothing
				Set fc = nothing
			%>
              </select>
            </td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td>&nbsp;</td>
            <td> 
              <input type="BUTTON" name="link" value="Insert Link" onClick="insertLink(document.formatting_tool.Hyperlink3.value,'_top')">
            </td>
          </tr>
        </table>
</td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellspacing="" cellpadding="1" bgcolor="#666666">
  <tr> 
    <td> 
        <table width="100%" border="0" cellspacing="0" cellpadding="2">
          <tr bgcolor="#EEEEEE"> 
            <td bgcolor="#666666"><font color="#FFFFFF">Format</font></td>
          </tr>
          <tr bgcolor="#EEEEEE">
            <td class="smalltext">Highlight word or words to format and then click on desired button 
              below. </td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td> 
              <p>
                <input type="BUTTON" name="bold" value="B" onClick="boldText()">
                <input type="BUTTON" name="italics" value="I" onClick="italicsText()">
                <input type="BUTTON" name="indent" value="Indent" onClick="insertIndent()">
              </p>
              <p> 
                <input type="BUTTON" name="header" value="Header" onClick="headerText()">
                <input type="BUTTON" name="subheader" value="SubHead" onClick="subHeaderText()">
                <input type="BUTTON" name="smalltext" value="SmallText" onClick="smallText()">
              </p>
            </td>
          </tr>
        </table>
    </td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellspacing="" cellpadding="1" bgcolor="#666666">
  <tr> 
    <td> 
        <table width="100%" border="0" cellspacing="0" cellpadding="2">
          <tr bgcolor="#EEEEEE"> 
            <td bgcolor="#666666"><font color="#FFFFFF">Remove HTML</font></td>
          </tr>
          <tr bgcolor="#EEEEEE">
            <td class="smalltext">Highlight a range of text that contains HTML tags and click "Remove".</td>
          </tr>
          <tr bgcolor="#EEEEEE"> 
            <td> 
              <input type="BUTTON" name="remove" value="Remove" onClick="removeHTML()">
            </td>
          </tr>
        </table>
    </td>
  </tr>
</table>
</form>
