<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../Connections/newsletter.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) = "addNews" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_newsletter_STRING
  MM_editTable = "News"
  MM_editColumn = "NewsID"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = "http://212.106.97.231/www/adminch/news.asp"
  MM_fieldsStr  = "NewsDate|value|RealtorID|value|NewsHead|value|EditorValue|value"
  MM_columnsStr = "NewsDate|',none,NULL|RealtorID|none,none,NULL|NewsHead|',none,''|NewsItem|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>

<%
Dim RsNews__MMColParam
RsNews__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  RsNews__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim RsNews
Dim RsNews_numRows

Set RsNews = Server.CreateObject("ADODB.Recordset")
RsNews.ActiveConnection = MM_newsletter_STRING
RsNews.Source = "SELECT * FROM News WHERE RealtorID = " + Replace(RsNews__MMColParam, "'", "''") + " ORDER BY NewsDate DESC"
RsNews.CursorType = 0
RsNews.CursorLocation = 2
RsNews.LockType = 1
RsNews.Open()

RsNews_numRows = 0
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsNews_total
Dim rsNews_first
Dim rsNews_last

' set the record count
rsNews_total = rsNews.RecordCount

' set the number of rows displayed on this page
If (rsNews_numRows < 0) Then
  rsNews_numRows = rsNews_total
Elseif (rsNews_numRows = 0) Then
  rsNews_numRows = 1
End If

' set the first and last displayed record
rsNews_first = 1
rsNews_last  = rsNews_first + rsNews_numRows - 1

' if we have the correct record count, check the other stats
If (rsNews_total <> -1) Then
  If (rsNews_first > rsNews_total) Then
    rsNews_first = rsNews_total
  End If
  If (rsNews_last > rsNews_total) Then
    rsNews_last = rsNews_total
  End If
  If (rsNews_numRows > rsNews_total) Then
    rsNews_numRows = rsNews_total
  End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsNews_total = -1) Then

  ' count the total records by iterating through the recordset
  rsNews_total=0
  While (Not rsNews.EOF)
    rsNews_total = rsNews_total + 1
    rsNews.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsNews.CursorType > 0) Then
    rsNews.MoveFirst
  Else
    rsNews.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsNews_numRows < 0 Or rsNews_numRows > rsNews_total) Then
    rsNews_numRows = rsNews_total
  End If

  ' set the first and last displayed record
  rsNews_first = 1
  rsNews_last = rsNews_first + rsNews_numRows - 1
  
  If (rsNews_first > rsNews_total) Then
    rsNews_first = rsNews_total
  End If
  If (rsNews_last > rsNews_total) Then
    rsNews_last = rsNews_total
  End If

End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs    = rsNews
MM_rsCount   = rsNews_total
MM_size      = rsNews_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
rsNews_first = MM_offset + 1
rsNews_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (rsNews_first > MM_rsCount) Then rsNews_first = MM_rsCount
  If (rsNews_last > MM_rsCount) Then rsNews_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    params = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For i = 0 To UBound(params)
      nextItem = Left(params(i), InStr(params(i),"=") - 1)
      If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & params(i)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast  = urlStr & "-1"
MM_moveNext  = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev  = urlStr & Cstr(prev)
%>

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>									
<html>
<head>
<title>Experience Pakistan Newsletters</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../news.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<link href="/ep2004.css" rel="stylesheet" type="text/css">
<link href="/www/realty.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFCC" text="#006600" link="#0000FF" vlink="#0000FF" alink="#0000FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('/images/images/homelink1red.jpg','/images/images/register1red.jpg','/images/images/bulletinboard1red.jpg','/images/images/login1red.jpg')">

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
        <!--DWLayoutTable-->
        <TR> 
          <TD> <IMG SRC="/images/top14_01.jpg" WIDTH=108 HEIGHT=182 ALT=""></TD>
          <TD> <IMG SRC="/images/top14_02.jpg" WIDTH=81 HEIGHT=182 ALT=""></TD>
          <TD> <IMG SRC="/images/top14_03.jpg" WIDTH=194 HEIGHT=182 ALT=""></TD>
          <TD> <IMG SRC="/images/top14_04.jpg" WIDTH=147 HEIGHT=182 ALT=""></TD>
          <TD> <IMG SRC="/images/top14_05.jpg" WIDTH=2 HEIGHT=182 ALT=""></TD>
          <TD> <IMG SRC="/images/top14_06.jpg" WIDTH=86 HEIGHT=182 ALT=""></TD>
          <TD width="100%" background="/images/bat.jpg"><!--DWLayoutEmptyCell-->&nbsp;</TD>
          <TD> <IMG SRC="/images/top14_08.jpg" WIDTH=131 HEIGHT=182 ALT=""></TD>
        </TR>
        <tr>
          <td height="1"><img src="/spacer.gif" alt="" width="108" height="1"></td>
          <td><img src="/spacer.gif" alt="" width="81" height="1"></td>
          <td><img src="/spacer.gif" alt="" width="194" height="1"></td>
          <td><img src="/spacer.gif" alt="" width="147" height="1"></td>
          <td><img src="/spacer.gif" alt="" width="2" height="1"></td>
          <td><img src="/spacer.gif" alt="" width="86" height="1"></td>
          <td></td>
          <td><img src="/spacer.gif" alt="" width="131" height="1"></td>
        </tr>
      </TABLE>
      <span id="Layer2" style="position:absolute; width:401px; height:22px; z-index:2; left: 206px; top: 135px; background-color: #375B23; layer-background-color: #375B23; border: 1px none #000000; visibility: visible;"><a href="/nindex.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image20','','/images/images/homelink1red.jpg',1)"><img src="/images/images/homelink1.jpg" alt="Home Page" name="Image20" width="41" height="17" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      <a href="/Registration2005.asp" onMouseOver="MM_swapImage('Image21','','/images/images/register1red.jpg',1)" onMouseOut="MM_swapImgRestore()"><img src="/images/images/register.jpg" alt="Register for Experience Pakistan 2004" name="Image21" width="69" height="17" border="0"></a> 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="/BULLETINBOARDS.asp" target="_blank" onMouseOver="MM_swapImage('Image22','','/images/images/bulletinboard1red.jpg',1)" onMouseOut="MM_swapImgRestore()"><img src="/images/images/bulletinboard1.jpg" alt="Bulletin Board" name="Image22" width="113" height="17" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      <a href="/Login.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image23','','/images/images/login1red.jpg',1)"><img src="/images/images/login1.jpg" alt="Login" name="Image23" width="46" height="17" border="0"></a> 
      </span></td>
  </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td height="34" valign="top" bgcolor="#FFFFCC"><div class=unnamed1 id=Layer3 
style="Z-INDEX: 5; LEFT: 3px; WIDTH: 146px; POSITION: absolute; TOP: 253px; HEIGHT: 15px; visibility: visible; background-color: #FFFFCC; layer-background-color: #FFFFCC; border: 1px none #000000;"> 
        <p class="ep2004datetime"> 
          <script language="">
document.write(Date())
</script>
        </p>
      </div></td>
    <td valign="top"><div align="center"><strong><font color="#006600" size="+2" face="Verdana, Arial, Helvetica, sans-serif">Welcome 
        to the Newsletters of<br>
        Experience Pakistan</font></strong></div></td>
  </tr>
  <tr> 
    <td width="155" height="600" valign="top" bgcolor="#006633"><div align="center">
        <p><br>
        </p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p><strong><font color="#FF0000"><a href="/www/adminch/newslogin.asp" class="red">ADMIN</a></font></strong></p>
      </div></td>
    <td valign="top"> <div align="center"> 
        <div align="center"><br>
          <div id="Layer1" style="position:absolute; width:185px; height:75px; z-index:1; left: 0px; top: 13px; layer-background-color: 375B23; border: 1px none #000000; background-color: #375B23; visibility: visible;"><img src="/images/images/ep2004logo.jpg" width="195" height="76"></div>
        </div>
        <div align="center"> 
          <form ACTION="<%=MM_editAction%>" METHOD="POST" name="addNews">
            <table width="550" border="0" cellspacing="0" cellpadding="5">
              <tr class="legal"> 
                <td><%=(rsNews_total)%> Newsletters</td>
                <td align="right">Viewing: 
                  <%
TM_counter = 0
For i = 1 to rsNews_total Step MM_size
TM_counter = TM_counter + 1
TM_PageEndCount = i + MM_size - 1
if TM_PageEndCount > rsNews_total Then TM_PageEndCount = rsNews_total
if i <> MM_offset + 1 then
Response.Write("<a href=""" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 & """>")
Response.Write(TM_counter & "</a>")
else
Response.Write("<b>" & TM_counter & "</b>")
End if
if(TM_PageEndCount <> rsNews_total) then Response.Write(" | ")
next
 %></td>
              </tr>
            </table>
            <table width="550" border="0" cellspacing="0" cellpadding="5" class="newsltr">
              <tr> 
                <td colspan="2"><img src="../images/spacer.gif" width="1" height="5"></td>
              </tr>
              <tr> 
                <td width="100"> <div align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Date:</font></b></div></td>
                <td> <input name="NewsDate" type="text" value="<%= DoDateTime((rsNews.Fields.Item("NewsDate").Value), 2, 2070) %>"> 
                </td>
              </tr>
              <tr> 
                <td> <div align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <input type="hidden" name="RealtorID" value="1">
                    Headline:</font></b></div></td>
                <td> <input name="NewsHead" type="text" value="<%=(rsNews.Fields.Item("NewsHead").Value)%>" size="60"> 
                </td>
              </tr>
              <tr valign="top"> 
                <td colspan="2"> <style type="text/css">
<!--
.clsCursor {  cursor: hand}
-->
</style> <textarea name="EditorValue" style="display: none;"><%=(rsNews.Fields.Item("NewsItem").Value)%></textarea> 
                  <script language="JavaScript">

  var errorString = "Sorry but this web page needs\nWindows95 and Internet Explorer 5 or above to view."
  var Ok = "false";
  var name =  navigator.appName;
  var version =  parseFloat(navigator.appVersion);
  var platform = navigator.platform;

	if (platform == "Win32" && name == "Microsoft Internet Explorer" && version >= 4){
		Ok = "true";
	} else {
		Ok= "false";
	}

	if (Ok == "false") {
		alert(errorString);
	}

function ColorPalette_OnClick(colorString){
	
	cpick.bgColor=colorString;
	document.all.colourp.value=colorString;
	doFormat('ForeColor',colorString);
}

function initToolBar(ed) {
    
	var eb = document.all.editbar;
	if (ed!=null) {
		eb._editor = window.frames['myEditor'];
	}
}

function doFormat(what) {

	var eb = document.all.editbar;
		
	if(what == "FontName"){
		if(arguments[1] != 1){
			eb._editor.execCommand(what, arguments[1]);
			document.all.font.selectedIndex = 0;
		} 
	} else if(what == "FontSize"){
    if(arguments[1] != 1){
      eb._editor.execCommand(what, arguments[1]);
      document.all.size.selectedIndex = 0;
    } 
	} else {
	   eb._editor.execCommand(what, arguments[1]);
	}
}

function swapMode() {

	var eb = document.all.editbar._editor;
  eb.swapModes();
}

function create() {

    var eb = document.all.editbar;
    eb._editor.newDocument();
}

function newFile(){

	create();
}

function makeUrl(){

	sUrl = document.all.what.value + document.all.url.value;
	doFormat('CreateLink',sUrl);
}

function copyValue() {

	var theHtml = "" + document.frames("myEditor").document.frames("textEdit").document.body.innerHTML + "";
	document.all.EditorValue.value = theHtml;
}

function SwapView_OnClick(){

  if(document.all.btnSwapView.value == "View Html"){
		var sMes = "View Wysiwyg";
    var sStatusBarMes = "Current View Html";
	} else {
		var sMes = "View Html"
    var sStatusBarMes = "Current View Wysiwyg";
  }
	
	document.all.btnSwapView.value = sMes;
  window.status  = sStatusBarMes;
	swapMode();
}

function Help_OnClick(){
  window.open("editor_images/help_document.htm","wHelp", "toolbar=0, scrollbars=yes, width=640, height=480");
}

function OnFormSubmit(){

  if(confirm("This Document is about to be submitted\nAre you sure you have finished editing?")){
    copyValue();
    document.addNews.submit();
  }
}
</script> <table border="0" cellspacing="0" cellpadding="0" bgcolor="#D0DCE0" width="400" height="" bordercolor="">
                    <tr valign="top"> 
                      <td> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
                          <tr valign="top"> 
                            <td valign="top"> <div id=editbar > 
                                <table width="100%" border="0" cellpadding="0" cellspacing="0" align="left">
                                  <tr> 
                                    <td> <table border="0" cellpadding="0" cellspacing="0">
                                        <tr> 
                                          <td> <table border="0">
                                              <tr valign="baseline"> 
                                                <td nowrap> &nbsp &nbsp &nbsp 
                                                  &nbsp &nbsp </td>
                                              </tr>
                                            </table></td>
                                          <td> <table border="0">
                                              <tr valign="baseline"> 
                                                <td nowrap> &nbsp &nbsp &nbsp 
                                                  &nbsp &nbsp </td>
                                              </tr>
                                            </table></td>
                                          <td>&nbsp; </td>
                                        </tr>
                                      </table></td>
                                  </tr>
                                  <tr> 
                                    <td height="26"><div align="center"><a href="/nindex.html">&nbsp;To 
                                        return to the main website click here</a></div></td>
                                  </tr>
                                </table>
                              </div></td>
                          </tr>
                          <tr valign="top" align="left"> 
                            <td valign="top"> <table width="550" border="0" height="600">
                                <tr valign="top"> 
                                  <td width="100%" height="100%"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
                                      <tr valign="top"> 
                                        <td bgcolor="#FFFFFF"><iframe id=myEditor src="pd_edit.htm" onfocus="initToolBar(this)" width=100% height=100%></iframe></td>
                                      </tr>
                                    </table></td>
                                  <td width="9%" align="center">&nbsp; </td>
                                </tr>
                              </table></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table>
                  <script>
  initToolBar("foo");
  window.status  = "Current View: Wysiwyg";
</script></td>
              </tr>
            </table>
            <img src="../images/spacer.gif" width="1" height="1"> 
            <input type="hidden" name="MM_update" value="addNews">
            <input type="hidden" name="MM_recordId" value="<%= RsNews.Fields.Item("NewsID").Value %>">
          </form>
        </div>
        <p>&nbsp;</p>
      </div>
      <p align="center"><a href="#top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Back 
        to Top</font></a></p>
      <p align="center">&nbsp;</p></td>
  </tr>
</table>
</body>
</html>
<%
RsNews.Close()
Set RsNews = Nothing
%>