<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="Connections/conForum.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
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 = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_conForum_STRING
  MM_editTable = "forum1"
  MM_editRedirectUrl = "thankyou.asp"
  MM_fieldsStr  = "responder|value|email|value|message|value|parentID|value"
  MM_columnsStr = "responder|',none,''|email|',none,''|message|',none,''|parentID|none,none,NULL"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(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
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    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 rsReply1__MMColParam
rsReply1__MMColParam = "1"
if (Request.QueryString("ID") <> "") then rsReply1__MMColParam = Request.QueryString("ID")
%>
<%
set rsReply1 = Server.CreateObject("ADODB.Recordset")
rsReply1.ActiveConnection = MM_conForum_STRING
rsReply1.Source = "SELECT * FROM forum1 WHERE ID = " + Replace(rsReply1__MMColParam, "'", "''") + ""
rsReply1.CursorType = 0
rsReply1.CursorLocation = 2
rsReply1.LockType = 3
rsReply1.Open()
rsReply1_numRows = 0
%>
<%
Dim rsReply2__MMColParam
rsReply2__MMColParam = "1"
if (Request.QueryString("ID") <> "") then rsReply2__MMColParam = Request.QueryString("ID")
%>
<%
set rsReply2 = Server.CreateObject("ADODB.Recordset")
rsReply2.ActiveConnection = MM_conForum_STRING
rsReply2.Source = "SELECT * FROM forum1 WHERE parentID = " + Replace(rsReply2__MMColParam, "'", "''") + " ORDER BY parentID DESC"
rsReply2.CursorType = 0
rsReply2.CursorLocation = 2
rsReply2.LockType = 3
rsReply2.Open()
rsReply2_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsReply2_numRows = rsReply2_numRows + Repeat1__numRows
%>
<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>Forum - Replies</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="KEYWORDS" content="jewish, news, bukharian, bukhara, buharian, bukharianjews, bucharianjews, tajikistan, israel, judaism, holocaust, hostory, biography, education, jewish organiztions, community, center, press, kosher, restaurant, bible, student, elderly, aging, politics, middle east, human rights, horah, research, glossary, maps, congress, house, senate, travel, medicine, environment, lebanon, librabry, faith, muhammmad, uzbekistan, turkestan, samarkand, rabbi, music, classified, links, search">
<meta name="DESCRIPTION" content="Forum topic replies.">
<meta name="ROBOTS" content="INDEX,FOLLOW">
<meta name="resource-type" content="document">
<meta http-equiv="expires" content="never">
<meta name="author" content="I-Ying Liao">
<meta name="copyright" content="Copyright (c) 2004 by BJewsUSA.com">
<meta name="revisit-after" content="1 days">
<meta name="distribution" content="Global">
<meta name="rating" content="General">

<script language="JavaScript" src="menu.js"></script>
<script language="JavaScript" src="js_top_menu.js"></script>
<script language="JavaScript" src="../js_home_icon.js"></script>

<link href="../CSS_all.css" rel="stylesheet" type="text/css">

<script language="JavaScript">
<!--
function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>

</head>

<body onLoad="init();goforit();MM_preloadImages('../images/home2.gif')" leftmargin="0" topmargin="0">
<script type='text/javascript'>function Go(){return}</script>
<script type='text/javascript' src='js_left_menu.js'></script>
<script type='text/javascript' src='menu2.js'></script>
<table class="CSStext2" background="../images/hairline_main_bg.gif" width="762" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr> 
    <td background="../images/hairline_below_logo.gif" width="104" height="104" align="left" valign="top"><a href="../index.htm"><img src="../images/logo_title_star.jpg" width="104" height="101" border="0"></a> 
    </td>
    <td background="../images/hairline_below_logo.gif" width="656" height="104" valign="top"><img src="../images/logo_title_sky.jpg" width="656" height="103"></td>
    <td width="2"></td>
  </tr>
  <tr> 
    <td height="1" class="CSStext2"></td>
    <td class="CSStext2"></td>
    <td class="CSStext2"></td>
  </tr>
</table>
<table class="CSStext2" background="../images/hairline_main_bg.gif" width="762" border="0" cellspacing="0" cellpadding="0">
  <!--DWLayoutTable-->
  <tr> 
    <td class="CSStext2" width="128" height="16" valign="top" bgcolor="D0E8EF"><a href="../index.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image4','','../images/home2.gif',1)"><img src="../images/home.gif" name="Image4" width="100" height="16" border="0"></a></td>
    <td class="CSStext2" width="634"></td>
  </tr>
</table>
<table class="CSStext" background="../images/hairline_main_bg.gif" width="762" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr> 
    <td width="10" height="14" valign="top" bgcolor="#FFFFFF"></td>
    <td width="144" valign="top" bgcolor="#FFFFFF"></td>
    <td width="599" bgcolor="#FFFFFF"></td>
    <td width="9"></td>
  </tr>
  <tr> 
    <td height="38" bgcolor="#FFFFFF">&nbsp;</td>
    <td valign="top" bgcolor="#FFFFFF"><img src="../headers/header_MAIN.gif" width="28" height="24"><span class="CSSheader">Forum</span></td>
    <td bgcolor="#FFFFFF"> 
      <div align="right"></div></td>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#FFFFFF"></td>
    <td colspan="2" valign="top" bgcolor="#FFFFFF"> 
      <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#D7E5E4">
        <tr valign="top" class="CSStext"> 
          <td colspan="3" bgcolor="#D7E5E4"> <table width="100%" border="0" cellpadding="2" cellspacing="0" class="CSStext">
              <tr> 
                <td width="154"><a href="messages.asp">Back To Forum</a></td>
                <td width="492"> <div align="center"><b><font color="#000066">Messasge</font></b></div></td>
                <td width="74" nowrap> <div align="right"></div></td>
              </tr>
            </table></td>
        </tr>
        <tr valign="top" class="CSStext"> 
          <td width="135"><b>Author</b></td>
          <td colspan="2"><b>Subject: <font color="#990000"><%= Server.HTMLEncode((rsReply1.Fields.Item("subject").Value)) %></font></b></td>
        </tr>
        <tr valign="top" class="CSStext"> 
          <td colspan="3"> <table width="100%" border="0" cellspacing="2" cellpadding="2">
              <tr class="CSStext"> 
                <td width="132"><a href="mailto:<%=(rsReply1.Fields.Item("email").Value)%>"><%= Server.HTMLEncode((rsReply1.Fields.Item("author").Value)) %></a></td>
                <td width="589" bgcolor="#E9E9E9"><%= Server.HTMLEncode((rsReply1.Fields.Item("message").Value)) %></td>
              </tr>
            </table></td>
        </tr>
        <tr class="CSStext"> 
          <td colspan="3" bgcolor="#D7E5E4"><font color="#000066"><b> Replies</b></font></td>
        </tr>
        <tr valign="top" class="CSStext"> 
          <td width="135"><b>Author</b></td>
          <td width="496"><b>Reply</b></td>
          <td width="92"><b>Date</b></td>
        </tr>
        <tr valign="top" class="CSStext"> 
          <td height="56" colspan="3"> <% If Not rsReply2.EOF Or Not rsReply2.BOF Then %>
            <table width="100%" border="0" cellpadding="2" cellspacing="2" class="CSStext">
              <!--DWLayoutTable-->
              <% 
While ((Repeat1__numRows <> 0) AND (NOT rsReply2.EOF)) 
%>
              <tr> 
                <td width="126"><a href="mailto:<%=(rsReply2.Fields.Item("email").Value)%>"><%= Server.HTMLEncode((rsReply2.Fields.Item("responder").Value)) %></a></td>
                <td width="457"><%= Server.HTMLEncode((rsReply2.Fields.Item("message").Value)) %></td>
                <td width="82"> 
                  <%= DoDateTime((rsReply2.Fields.Item("datestamp").Value), 0, -1) %></td>
              </tr>
              <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsReply2.MoveNext()
Wend
%>
            </table>
            <% End If ' end Not rsReply2.EOF Or NOT rsReply2.BOF %>
          </td>
        </tr>
      </table>
      <p><a name="post"></a></p>
      <form name="post_reply" method="POST" action="<%=MM_editAction%>">
        <div align="center"> 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td valign="top" bgcolor="#D7E5E4" class="CSStext"> <div align="center"><font color="#000066"><b>Reply 
                  To Message</b></font></div>
                <div align="center"></div></td>
            </tr>
          </table>
        </div>
        <br>
        <table width="70%" border="0" align="center" cellpadding="2" cellspacing="0">
          <tr valign="top" class="CSStext"> 
            <td width="102"><b>Name</b></td>
            <td width="350"> <input type="text" name="responder" size="50"> </td>
          </tr>
          <tr valign="top" class="CSStext"> 
            <td width="102"><b>Email Address </b></td>
            <td width="350"> <input type="text" name="email" size="50"> </td>
          </tr>
          <tr valign="top" class="CSStext"> 
            <td width="102"><b>Message</b></td>
            <td width="350"> <textarea name="message" cols="39" rows="5"></textarea> 
              <input type="hidden" name="parentID" value="<%= Request.QueryString("ID") %>"> 
            </td>
          </tr>
          <tr valign="top" class="CSStext"> 
            <td colspan="2"> <div align="center"> 
                <p> 
                  <input type="submit" name="Submit" value="&nbsp;&nbsp;Reply&nbsp;&nbsp;" onClick="MM_validateForm('responder','','R','email','','RisEmail','message','','R');return document.MM_returnValue">
                </p>
                <p>&nbsp;</p>
              </div></td>
          </tr>
        </table>
        <input type="hidden" name="MM_insert" value="true">
      </form></td>
    <td>&nbsp;</td>
  </tr>
</table>


<script language="JavaScript" src="../js_footer.js" type="text/JavaScript"></script>
<div id="Layer1" style="position:absolute; left:49px; top:59px; width:125px; height:20px; z-index:1"><img src="../images/logo_title.gif" width="157" height="20"></div>
</body>
</html>
<%
rsReply1.Close()
%>
<%
rsReply2.Close()
%>