Solved

Dynamically populate hidden form field based on previous selection

Posted on 2008-10-28
3
418 Views
Last Modified: 2012-05-05
Dear Experts

I have a form where the form field 'nActingSolcRef' is dynamically populated after a selection from the form field 'nSolFirm' is made.

When making a selection from the form field 'nActingSolcRef' I would also like to dynamically populate a hidden form field called 'nActingSol'.  The value of 'nActingSol' would be the same as the label value of the form field 'nActingSolcRef' .

Can anyone offer some assistance with this?

Please see full code from the page below.

Thanks

Grant
<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="../Connections/camsmith.asp" -->
 
 
 
 
 

<%

Dim property__MMColParam

property__MMColParam = "1"

If (Session("pRef")  <> "") Then 

  property__MMColParam = Session("pRef") 

End If

%>

<%

Dim property

Dim property_cmd

Dim property_numRows
 

Set property_cmd = Server.CreateObject ("ADODB.Command")

property_cmd.ActiveConnection = MM_camsmith_STRING

property_cmd.CommandText = "SELECT * FROM dbo.Property WHERE pRef = ?" 

property_cmd.Prepared = true

property_cmd.Parameters.Append property_cmd.CreateParameter("param1", 5, 1, -1, property__MMColParam) ' adDouble
 

Set property = property_cmd.Execute

property_numRows = 0

%>

<% Session("pRef") = (property.Fields.Item("pRef").Value) %>

<%

Dim user__MMColParam

user__MMColParam = "1"

If (Session("MM_Username") <> "") Then 

  user__MMColParam = Session("MM_Username")

End If

%>

<%

Dim user

Dim user_numRows
 

Set user = Server.CreateObject("ADODB.Recordset")

user.ActiveConnection = MM_camsmith_STRING

user.Source = "SELECT * FROM dbo.cmslogin WHERE UserLoginID = '" + Replace(user__MMColParam, "'", "''") + "'"

user.CursorType = 0

user.CursorLocation = 2

user.LockType = 1

user.Open()
 

user_numRows = 0

%>

<%

Dim vendoraddress

Dim vendoraddress_cmd

Dim vendoraddress_numRows
 

Set vendoraddress_cmd = Server.CreateObject ("ADODB.Command")

vendoraddress_cmd.ActiveConnection = MM_camsmith_STRING

vendoraddress_cmd.CommandText = "SELECT * FROM dbo.addresslookupaddproperty ORDER BY Name" 

vendoraddress_cmd.Prepared = true
 

Set vendoraddress = vendoraddress_cmd.Execute

vendoraddress_numRows = 0

%>

<%

Dim addressbook__MMColParam

addressbook__MMColParam = "9999999"

If (Request.QueryString("record") <> "") Then 

  addressbook__MMColParam = Request.QueryString("record")

End If

%>

<%

Dim addressbook

Dim addressbook_cmd

Dim addressbook_numRows
 

Set addressbook_cmd = Server.CreateObject ("ADODB.Command")

addressbook_cmd.ActiveConnection = MM_camsmith_STRING

addressbook_cmd.CommandText = "SELECT * FROM dbo.addressbook WHERE cRef = ?" 

addressbook_cmd.Prepared = true

addressbook_cmd.Parameters.Append addressbook_cmd.CreateParameter("param1", 200, 1, 30, addressbook__MMColParam) ' adVarChar
 

Set addressbook = addressbook_cmd.Execute

addressbook_numRows = 0

%>

<%

Dim vendorinfo__MMColParam

vendorinfo__MMColParam = "9999999"

If (Request.QueryString("record") <> "") Then 

  vendorinfo__MMColParam = Request.QueryString("record")

End If

%>

<%

Dim vendorinfo

Dim vendorinfo_cmd

Dim vendorinfo_numRows
 

Set vendorinfo_cmd = Server.CreateObject ("ADODB.Command")

vendorinfo_cmd.ActiveConnection = MM_camsmith_STRING

vendorinfo_cmd.CommandText = "SELECT * FROM dbo.addresslookupaddproperty WHERE cRef = ?" 

vendorinfo_cmd.Prepared = true

vendorinfo_cmd.Parameters.Append vendorinfo_cmd.CreateParameter("param1", 200, 1, 30, vendorinfo__MMColParam) ' adVarChar
 

Set vendorinfo = vendorinfo_cmd.Execute

vendorinfo_numRows = 0

%>

<%

Dim soladdressbook

Dim soladdressbook_numRows
 

Set soladdressbook = Server.CreateObject("ADODB.Recordset")

soladdressbook.ActiveConnection = MM_camsmith_STRING

soladdressbook.Source = "SELECT distinct cCompany  FROM dbo.addressbook  WHERE cType = 'Solicitor'  ORDER BY cCompany"

soladdressbook.CursorType = 0

soladdressbook.CursorLocation = 2

soladdressbook.LockType = 1

soladdressbook.Open()
 

soladdressbook_numRows = 0

%>

<%

Dim solicitors

Dim solicitors_numRows
 

Set solicitors = Server.CreateObject("ADODB.Recordset")

solicitors.ActiveConnection = MM_camsmith_STRING

solicitors.Source = "SELECT *  FROM dbo.addresslookupaddproperty"

solicitors.CursorType = 0

solicitors.CursorLocation = 2

solicitors.LockType = 1

solicitors.Open()
 

solicitors_numRows = 0

%>

<%

Dim viewing__MMColParam

viewing__MMColParam = "1"

If (Session("pRef")  <> "") Then 

  viewing__MMColParam = Session("pRef") 

End If

%>

<%

Dim viewing

Dim viewing_cmd

Dim viewing_numRows
 

Set viewing_cmd = Server.CreateObject ("ADODB.Command")

viewing_cmd.ActiveConnection = MM_camsmith_STRING

viewing_cmd.CommandText = "SELECT * FROM dbo.notesofinterest,addressbook WHERE nPref = ? and ncRef = cRef ORDER BY nDate DESC" 

viewing_cmd.Prepared = true

viewing_cmd.Parameters.Append viewing_cmd.CreateParameter("param1", 5, 1, -1, viewing__MMColParam) ' adDouble
 

Set viewing = viewing_cmd.Execute

viewing_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index
 

Repeat1__numRows = -1

Repeat1__index = 0

viewing_numRows = viewing_numRows + Repeat1__numRows

%>
 

<%

Dim MM_editAction

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If
 

' boolean to abort record edit

Dim MM_abortEdit

MM_abortEdit = false

%>

<%

' IIf implementation

Function MM_IIf(condition, ifTrue, ifFalse)

  If condition = "" Then

    MM_IIf = ifFalse

  Else

    MM_IIf = ifTrue

  End If

End Function

%>

<%

If (CStr(Request("MM_insert")) = "form2") Then

  If (Not MM_abortEdit) Then

    ' execute the insert

    Dim MM_editCmd
 

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")

    MM_editCmd.ActiveConnection = MM_camsmith_STRING

    MM_editCmd.CommandText = "INSERT INTO dbo.notesofinterest (nDate, nSolFirm,  nActingSolcRef, nComments, nPref, ncRef) VALUES (?, ?, ?, ?,  ?, ?)" 

    MM_editCmd.Prepared = true

    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("nDate"), Request.Form("nDate"), null)) ' adDBTimeStamp

    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("nSolFirm")) ' adLongVarChar
 

    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, Request.Form("nActingSolcRef")) ' adLongVarChar

    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 300, Request.Form("nComments")) ' adLongVarChar

    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("nPref"), Request.Form("nPref"), null)) ' adDouble

    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("ncRef"), Request.Form("ncRef"), null)) ' adDouble
 

    MM_editCmd.Execute

    MM_editCmd.ActiveConnection.Close
 

    ' append the query string to the redirect URL

    Dim MM_editRedirectUrl

    MM_editRedirectUrl = "solicitor_estateagency_notesofinterestlistafterinsert.asp"
 

    If (Request.QueryString <> "") Then

      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then

        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

      Else

        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

      End If

    End If

    Response.Redirect(MM_editRedirectUrl)

  End If

End If

%>
 
 
 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Estate-Agent Solicitor Intelligent Property Management: Notes of Interest</title>
 
 

<script language="JavaScript">

<!--

var arrDynaList = new Array();

var arrDL1 = new Array();

arrDL1[1] = "nSolFirm";               // Name of parent list box

arrDL1[2] = "form1";                  // Name of form containing parent list box

arrDL1[3] = "nActingSolcRef";               // Name of child list box

arrDL1[4] = "form1";                  // Name of form containing child list box

arrDL1[5] = arrDynaList;

  

<%

Dim txtDynaListRelation, txtDynaListLabel, txtDynaListValue, oDynaListRS

txtDynaListRelation = "cCompany"      ' Name of recordset field relating to parent

txtDynaListLabel = "Name"            ' Name of recordset field for child Item Label

txtDynaListValue = "cRef"            ' Name of recordset field for child Value
 

Set oDynaListRS = solicitors

             ' Name of child list box recordset

  

Dim varDynaList

varDynaList = -1

Dim varMaxWidth

varMaxWidth = "1"

Dim varCheckGroup

varCheckGroup = oDynaListRS.Fields.Item(txtDynaListRelation).Value

Dim varCheckLength

varCheckLength = 0

Dim varMaxLength

varMaxLength = 0

While (NOT oDynaListRS.EOF)

 If (varCheckGroup <> oDynaListRS.Fields.Item(txtDynaListRelation).Value) Then

  If (varCheckLength > varMaxLength) Then

   varMaxLength = varCheckLength

  End If

  varCheckLength = 0

 End If

%>

 arrDynaList[<%=(varDynaList+1)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListRelation).Value)%>"

 arrDynaList[<%=(varDynaList+2)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListLabel).Value)%>"

 arrDynaList[<%=(varDynaList+3)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListValue).Value)%>"

<%

 If (len(oDynaListRS.Fields.Item(txtDynaListLabel).Value) > len(varMaxWidth)) Then

  varMaxWidth = oDynaListRS.Fields.Item(txtDynaListLabel).Value

 End If

 varCheckLength = varCheckLength + 1

 varDynaList = varDynaList + 3

 oDynaListRS.MoveNext()

Wend

If (varCheckLength > varMaxLength) Then

 varMaxLength = varCheckLength

End If

%>

//-->

</script>

<script type="text/javascript">

<!--

<!--

function setDynaList(arrDL){

 var oList1 = document.forms[arrDL[2]].elements[arrDL[1]];

 var oList2 = document.forms[arrDL[4]].elements[arrDL[3]];

 var arrList = arrDL[5];

 

 clearDynaList(oList2);

 

 if (oList1.selectedIndex == -1){

  oList1.selectedIndex = 0;

 }

 populateDynaList(oList2, oList1[oList1.selectedIndex].value, arrList);

 return true;

}

 

function clearDynaList(oList){

 for (var i = oList.options.length; i >= 0; i--){

  oList.options[i] = null;

 }

 

 oList.selectedIndex = -1;

}

 

function populateDynaList(oList, nIndex, aArray){

 oList.options.length=0;

 oList.options[oList.options.length] = new Option("Not Specified  ","%");

 for (var i = 0; i < aArray.length; i= i + 3){

  if (aArray[i] == nIndex){

   oList.options[oList.options.length] = new Option(aArray[i + 1], aArray[i + 2]);

  }

 }

 

 oList.selectedIndex = 0;

}
 

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 YY_checkform() { //v4.71

//copyright (c)1998,2002 Yaromat.com

  var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;

  for (i=1; i<a.length;i=i+4){

    if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}

    o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));

    o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));

    v=o.value;t=a[i+2];

    if (o.type=='text'||o.type=='password'||o.type=='hidden'){

      if (r&&v.length==0){err=true}

      if (v.length>0)

      if (t==1){ //fromto

        ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}

      } else if (t==2){

        rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;

      } else if (t==3){ // date

        ma=a[i+1].split("#");at=v.match(ma[0]);

        if(at){

          cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];

          dte=new Date(cy,cm,cd);

          if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};

        }else{err=true}

      } else if (t==4){ // time

        ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}

      } else if (t==5){ // check this 2

            if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];

            if(!o1.checked){err=true}

      } else if (t==6){ // the same

            if(v!=MM_findObj(a[i+1]).value){err=true}

      }

    } else

    if (!o.type&&o.length>0&&o[0].type=='radio'){

          at = a[i].match(/(.*)\[(\d+)\].*/i);

          o2=(o.length>1)?o[at[2]]:o;

      if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}

      if (t==2){

        oo=false;

        for(j=0;j<o.length;j++){oo=oo||o[j].checked}

        if(!oo){s+='* '+a[i+3]+'\n'}

      }

    } else if (o.type=='checkbox'){

      if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}

    } else if (o.type=='select-one'||o.type=='select-multiple'){

      if(t==1&&o.selectedIndex/1==0){err=true}

    }else if (o.type=='textarea'){

      if(v.length<a[i+1]){err=true}

    }

    if (err){s+='* '+a[i+3]+'\n'; err=false}

  }

  if (s!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+s)}

  document.MM_returnValue = (s=='');

}//-->

</script>
 
 
 
 

<script type="text/javascript">

<!--
 
 
 

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];}}

}

//-->

</script>

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

<script type="text/javascript" src="p7pm/p7popmenu.js"></script>

<link href="includes/p7pm/p7pmv0.css" rel="stylesheet" type="text/css" />

<style type="text/css">

/*<![CDATA[*/
 
 
 

#scroller {

	width: 100%;

	height: 240px;

	overflow: auto;

	border-top: 0px inset;

	border-right: 0px inset;

	border-bottom: 0px inset;

	border-left: 0px inset;

 }

</style>
 

<script>
 
 

<script>

function RefreshData(sel)

      {

      var entry = sel.options[sel.selectedIndex].value;

      document.location.href="solicitor_estateagency_addviewingappointment2.asp?record=" + entry; + "pRef=" 

      }

</script>
 

<script type="text/javascript">

<!--

function setDynaList(arrDL){

 var oList1 = document.forms[arrDL[2]].elements[arrDL[1]];

 var oList2 = document.forms[arrDL[4]].elements[arrDL[3]];

 var arrList = arrDL[5];

 

 clearDynaList(oList2);

 

 if (oList1.selectedIndex == -1){

  oList1.selectedIndex = 0;

 }

 populateDynaList(oList2, oList1[oList1.selectedIndex].value, arrList);

 return true;

}

 

function clearDynaList(oList){

 for (var i = oList.options.length; i >= 0; i--){

  oList.options[i] = null;

 }

 

 oList.selectedIndex = -1;

}

 

function populateDynaList(oList, nIndex, aArray){

 oList.options.length=0;

 oList.options[oList.options.length] = new Option("Select Solicitor  ","%");

  oList.options[oList.options.length] = new Option("Unknown  ","Unknown");

 oList.options[oList.options.length] = new Option("INFORMAL  ","INFORMAL");

 for (var i = 0; i < aArray.length; i= i + 3){

  if (aArray[i] == nIndex){

   oList.options[oList.options.length] = new Option(aArray[i + 1], aArray[i + 2]);

  }

 }

 

 oList.selectedIndex = 0;

}
 

function MM_callJS(jsStr) { //v2.0

  return eval(jsStr)

}
 

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 YY_checkform() { //v4.71

//copyright (c)1998,2002 Yaromat.com

  var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;

  for (i=1; i<a.length;i=i+4){

    if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}

    o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));

    o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));

    v=o.value;t=a[i+2];

    if (o.type=='text'||o.type=='password'||o.type=='hidden'){

      if (r&&v.length==0){err=true}

      if (v.length>0)

      if (t==1){ //fromto

        ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}

      } else if (t==2){

        rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;

      } else if (t==3){ // date

        ma=a[i+1].split("#");at=v.match(ma[0]);

        if(at){

          cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];

          dte=new Date(cy,cm,cd);

          if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};

        }else{err=true}

      } else if (t==4){ // time

        ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}

      } else if (t==5){ // check this 2

            if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];

            if(!o1.checked){err=true}

      } else if (t==6){ // the same

            if(v!=MM_findObj(a[i+1]).value){err=true}

      }

    } else

    if (!o.type&&o.length>0&&o[0].type=='radio'){

          at = a[i].match(/(.*)\[(\d+)\].*/i);

          o2=(o.length>1)?o[at[2]]:o;

      if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}

      if (t==2){

        oo=false;

        for(j=0;j<o.length;j++){oo=oo||o[j].checked}

        if(!oo){s+='* '+a[i+3]+'\n'}

      }

    } else if (o.type=='checkbox'){

      if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}

    } else if (o.type=='select-one'||o.type=='select-multiple'){

      if(t==1&&o.selectedIndex/1==0){err=true}

    }else if (o.type=='textarea'){

      if(v.length<a[i+1]){err=true}

    }

    if (err){s+='* '+a[i+3]+'\n'; err=false}

  }

  if (s!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+s)}

  document.MM_returnValue = (s=='');

}

//-->

</script>

</head>

<body onload="P7_initPM(0,0,1,-20,10)">

<div id ="outerwrapper">

<table width="840" height="75" border="0" cellpadding="0" cellspacing="0" background="../graphics/cms_bg_header.jpg">

    <tr>

      <td><img src="../graphics/menu2/sea_logo.jpg" alt="Solicitor Estate Agency Property Management" width="200" height="75" hspace="0" vspace="0" /></td>

      <td width="640" align="right" valign="bottom"><table width="0" height="70" border="0" cellpadding="0" cellspacing="0">

        <tr>

          <td colspan="11"></td>

        </tr>

        <tr>

          <td align="right"><a href="solicitor_estateagency_propertydetails.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/property_details_active.jpg" alt="Property Details" name="Image12" width="62" height="70" border="0" id="Image12" onmouseover="MM_swapImage('Image12','','../graphics/easi_menu/property_details_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a><a href="solicitor_estateagency_propertydetails.asp"></a></td>

          <td align="right"><a href="solicitor_estateagency_createschedule.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/checklists_active.jpg" alt="Checklists" width="62" height="70" border="0" id="Image4" onmouseover="MM_swapImage('Image4','','../graphics/easi_menu/checklists_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>

          <td align="right"><a href="solicitor_estateagency_viewinglist.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/viewing_appts_active.jpg" alt="Viewing Appointments" width="62" height="70" border="0" id="Image21" onmouseover="MM_swapImage('Image21','','../graphics/easi_menu/viewing_appts_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a><a href="solicitor_estateagency_viewinglist.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"></a></td>

          <td align="right"><img src="../graphics/easi_menu/noi_current.jpg" alt="Notes of Interest" width="62" height="70" border="0" id="Image311" /></td>

          <td align="right"><a href="solicitor_estateagency_surveyslist.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/surveys_active.jpg" alt="Surveys Instructed" width="62" height="70" border="0" id="Image411" onmouseover="MM_swapImage('Image411','','../graphics/easi_menu/surveys_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>

          <td align="right"><a href="solicitor_estateagency_offerslist.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/offers_active.jpg" alt="Offers Received" width="62" height="70" border="0" id="Image511" onmouseover="MM_swapImage('Image511','','../graphics/easi_menu/offers_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>

          <td align="right"><a href="solicitor_estateagency_createwindowcard.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/merge_docs_active.jpg" alt="Merge Documents" name="Image611" width="62" height="70" border="0" id="Image611" onmouseover="MM_swapImage('Image611','','../graphics/easi_menu/merge_docs_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>

          <td align="right"><a href="solicitor_estateagency_pdfupload.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/upload_active.jpg" alt="Upload Photo/PDF" width="62" height="70" border="0" id="Image5" onmouseover="MM_swapImage('Image5','','../graphics/easi_menu/upload_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>

          <td align="right"><a href="solicitor_estateagency_generalnotes.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/general_notes_active.jpg" alt="General Notes" width="62" height="70" border="0" id="Image6" onmouseover="MM_swapImage('Image6','','../graphics/easi_menu/general_notes_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>

          <td><a href="solicitor_estateagency_enquiries.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/enquiries_active.jpg" alt="Enqruiries" width="62" height="70" border="0" id="Image7" onmouseover="MM_swapImage('Image7','','../graphics/easi_menu/enquiries_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>

        </tr>

      </table></td>

    </tr>

  </table>
 
 

<div id="maincontent">

  <table width="100%" height="0" border="0" cellpadding="0" cellspacing="0">

    <tr>

      <td height="0" colspan="2" valign="top" background="../graphics/menu_cms_bg.gif"></td>

    </tr>

    <tr>

     <td height="30" colspan="2" valign="middle" id="searchfunction_property"><p align="right">You are logged in as <%=(user.Fields.Item("UserFirstName").Value)%> </a><%=(user.Fields.Item("UserLastName").Value)%></p></td>

    </tr>

    <tr>

      <td width="185" valign="top" bgcolor="#024B8F"><!--#include file="includes/mainnav_easi.asp" --></td>

      <td height="420" valign="top" bgcolor="#FFFFFF"><div class="highlight">

        <table width="100%" border="0" cellspacing="0" cellpadding="0">

          <tr>

            <td width="504"><img src="../graphics/menu/viewingappointments_icon.jpg" alt="Add Viewing Appointment" name="Image1" width="60" height="48" hspace="5" border="0" align="left" id="Image1" />

              <h1>Add Note of Interest </h1>

                <h2 ><%=(property.Fields.Item("pAddress1").Value)%>, <%=(property.Fields.Item("pAddress2").Value)%>, <%=(property.Fields.Item("pTown").Value)%>, <%=(property.Fields.Item("pPostCode").Value)%></h2></td><td width="136" align="right">&nbsp;</td>

          </tr>

        </table>

      </div>

         <div class="checklist"><table width="100%" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td colspan="2" valign="top"><span class="propertydetailsstatus"><%=(property.Fields.Item("pStage").Value)%>&nbsp;<%=(property.Fields.Item("pClosingDate").Value)%> </span></td>

    </tr>

  <tr>

    <td width="54" valign="top"><p class="propertydetailsheading">Price: </p></td>

    <td width="596" valign="middle"> <p><%=(property.Fields.Item("pPriceType").Value)%> <%= FormatCurrency((property.Fields.Item("pPrice").Value), 0, -2, -2, -2) %><span class="propertydetailsheading"><br />

        </span></p>      </td>

  </tr>

  

  <tr>

    <td valign="top"><p class="propertydetailsheading">NOI:</p></td>

    <td valign="middle"><p> Notes of Interest taken in Total </p></td>

  </tr>

</table>
 

		 
 

		</div>

       <div class="checklist">

		 <div id ="formcontainer">

		<form action="<%=MM_editAction%>" method="post" name="form1" id="form1" onsubmit="YY_checkform('document.form1','input_flightdeparture6','#q','0','Please select the Date of the Note of Interest','nSolFirm','q','1','Please select the Solicitor Firm making the Note of Interest','nActingSol','q','1','Please select the Solicitor Name ');return document.MM_returnValue">

		  <table width="100%" height="0" border="0" cellpadding="0" cellspacing="0">

  <tr>

    <td width="100%" valign="top">

    <table width="100%" border="0" cellpadding="0" cellspacing="0">

      

      <tr>

        <td width="70%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

              

              <tr>

                <td height="25" colspan="2">    <h2>Add Note of Interest </h2>                </tr>

              <tr>

                <td height="25"><p class="propertydetailsheading"> Client's Name : 

                </p>

                <td width="73%">  <p>

                    <label><a href="solicitor_estateagency_addaddcontactpop.asp" target="addvendor"></a></label>

                  <%=(addressbook.Fields.Item("cTitle").Value)%><%=(addressbook.Fields.Item("cFirstName").Value)%><%=(addressbook.Fields.Item("cSurName").Value)%></p></td>

                </tr>

              

              

              <tr>

                <td width="27%" height="25"><p class="propertydetailsheading">Address: </p></td>

                <td><p>

                    <% If Not vendorinfo.EOF Or Not vendorinfo.BOF Then %>

                    <%=(vendorinfo.Fields.Item("cAddress1").Value) & " " & (vendorinfo.Fields.Item("cAddress2").Value) & ", " & (vendorinfo.Fields.Item("cTown").Value)%>

                    <% End If %>

                </p></td>

              </tr>

              

              <tr>

                <td height="25"><p class="propertydetailsheading">Date Note Taken: </p></td>

                <td><input name="nDate" type="text" id='input_flightdeparture6' size="12" />

                    <img src="calendarimages/dlcalendar_2.gif" alt="calendar" name="img_flightdeparture6" width="13" height="13" align="middle" id="img_flightdeparture6" />

                    <dlcalendar click_element_id="img_flightdeparture6"

            emptydate_option="true"

            hide_onselection="true"

            input_element_id="input_flightdeparture6"

            tool_tip="Click to choose flight departure date"></dlcalendar></td>

                </tr>

              <tr>

                <td height="25"><p class="propertydetailsheading">Solicitor Firm: </p></td>

                <td><select name="nSolFirm" id="nSolFirm" onchange="MM_callJS('setDynaList(arrDL1)')" TABINDEX=5>

                    <option value="NA">Please Select...</option>

                    <option value="INFORMAL">INFORMAL</option>

					<%

While (NOT soladdressbook.EOF)

%><option value="<%=(soladdressbook.Fields.Item("cCompany").Value)%>"><%=(soladdressbook.Fields.Item("cCompany").Value)%></option>

                    <%

  soladdressbook.MoveNext()

Wend

If (soladdressbook.CursorType > 0) Then

  soladdressbook.MoveFirst

Else

  soladdressbook.Requery

End If

%>

                  </select>&nbsp;<label class="propertydetailscheck" onclick="MM_openBrWindow('solicitor_estateagency_addaddcontactPOP.asp','addcontact','scrollbars=yes,width=650,height=475')"><img src="../graphics/menu/addcontact_sm.jpg" alt="Add contact" width="20" height="24" align="absbottom" /><a href="solicitor_estateagency_addaddcontactpop.asp" target="addcontact">Add

 Contact</a></label></td>

              </tr>

              

              <tr>

                <td height="25"><p class="propertydetailsheading">Acting Solicitor: </p></td>

                <td><select name="nActingSolcRef" id="nActingSolcRef">

                    <option value="NA">Select Solicitor Firm</option>

                   

				  

				  </select>

                  <input name="nActingSol" type="hidden" id="nActingSol" /></td>

              </tr>

              

              <tr>

                <td height="25" valign="top"><p class="propertydetailsheading">Comments: </p></td>

                <td><textarea name="nComments" cols="40" rows="4" wrap="virtual" id="nComments" onkeyup='countIt()'  ></textarea></td>

              </tr>

              <tr>

                <td><input name="nPref" type="hidden" id="nPref" value="<%=(property.Fields.Item("pRef").Value)%>" />

                  <input name="ncRef" type="hidden" id="ncRef" value="<%=(vendorinfo.Fields.Item("cRef").Value)%>" /></td>

                <td><input name="Add Property" type="submit" class="button" onclick="YY_checkform('form1');return document.MM_returnValue" value="Complete"></td>

              </tr>

              <tr>

                <td>&nbsp;</td>

                <td></td>

              </tr>

            </table></td>

        <td width="30%" valign="top"><div class="viewingappointmentsrights">

          <h2>Notes of Interest Recorded</h2>

         <div id="scroller">

           <% 

While ((Repeat1__numRows <> 0) AND (NOT viewing.EOF)) 

%>

             <table width="90%" border="0" cellspacing="0" cellpadding="0">

               

               <tr>

                 <td><p class="propertydetailslist"><a href="solicitor_estateagency_notesofinterestdetails.asp?pRef=<%=(viewing.Fields.Item("nPref").Value)%>&amp;ncRef=<%=(viewing.Fields.Item("ncRef").Value)%>&amp;ref=<%=(viewing.Fields.Item("ref").Value)%>&amp;sName=<%=(viewing.Fields.Item("nActingSol").Value)%>"><%=(viewing.Fields.Item("nDate").Value)%></a>

                   

                   

                   </p></td>

                          <td><p class="propertydetailslist">&nbsp;</p></td>

                    </tr>

             </table>

             <% 

  Repeat1__index=Repeat1__index+1

  Repeat1__numRows=Repeat1__numRows-1

  viewing.MoveNext()

Wend

%>

</div>     

          </td>

      </tr>

    </table>

   <input type="hidden" name="MM_insert" value="form2"></td>

  </tr>

  

  

</table>

        </form></div>

		
 

		 

		 </div>

        </td>

    </tr>

  </table>

</div>

</div>

<script>

function dl_viewOver(eElement)

{

	eElement.onmouseout = dl_viewOut;

	eElement.style.color = "blue";

}

function dl_viewOut()

{

	this.style.color = "firebrick";

}

function dl_viewSource(eElement)

{

	var eXMP=eElement.nextSibling;

	while((eXMP.nodeType==3)||(eXMP.tagName.toLowerCase()=="br")){eXMP=eXMP.nextSibling};

	if(eXMP.style.display=="block"){eXMP.style.display="none"; eElement.innerHTML="[ View Source ]";}

							   else{eXMP.style.display="block";eElement.innerHTML="[ Hide Source ]";}

}

</script>

<script type="text/javascript" language="javascript"  src="dlcalendar.js"></script>
 
 

<!--#include file="includes/footer.asp" -->
 
 
 

</body>

</html>

<%

user.Close()

Set user = Nothing

%>

<%

vendoraddress.Close()

Set vendoraddress = Nothing

%>

<%

addressbook.Close()

Set addressbook = Nothing

%>

<%

vendorinfo.Close()

Set vendorinfo = Nothing

%>

<%

soladdressbook.Close()

Set soladdressbook = Nothing

%>

<%

solicitors.Close()

Set solicitors = Nothing

%>

<%

viewing.Close()

Set viewing = Nothing

%>

<%

property.Close()

Set property = Nothing

%>

Open in new window

0
Comment
Question by:grantballantyne
  • 3
3 Comments
 
LVL 82

Expert Comment

by:hielo
ID: 22825787
try:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/camsmith.asp" -->
<%
Dim property__MMColParam
property__MMColParam = "1"
If (Session("pRef")  <> "") Then 
  property__MMColParam = Session("pRef") 
End If
%>
<%
Dim property
Dim property_cmd
Dim property_numRows
 
Set property_cmd = Server.CreateObject ("ADODB.Command")
property_cmd.ActiveConnection = MM_camsmith_STRING
property_cmd.CommandText = "SELECT * FROM dbo.Property WHERE pRef = ?" 
property_cmd.Prepared = true
property_cmd.Parameters.Append property_cmd.CreateParameter("param1", 5, 1, -1, property__MMColParam) ' adDouble
 
Set property = property_cmd.Execute
property_numRows = 0
%>
<% Session("pRef") = (property.Fields.Item("pRef").Value) %>
<%
Dim user__MMColParam
user__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  user__MMColParam = Session("MM_Username")
End If
%>
<%
Dim user
Dim user_numRows
 
Set user = Server.CreateObject("ADODB.Recordset")
user.ActiveConnection = MM_camsmith_STRING
user.Source = "SELECT * FROM dbo.cmslogin WHERE UserLoginID = '" + Replace(user__MMColParam, "'", "''") + "'"
user.CursorType = 0
user.CursorLocation = 2
user.LockType = 1
user.Open()
 
user_numRows = 0
%>
<%
Dim vendoraddress
Dim vendoraddress_cmd
Dim vendoraddress_numRows
 
Set vendoraddress_cmd = Server.CreateObject ("ADODB.Command")
vendoraddress_cmd.ActiveConnection = MM_camsmith_STRING
vendoraddress_cmd.CommandText = "SELECT * FROM dbo.addresslookupaddproperty ORDER BY Name" 
vendoraddress_cmd.Prepared = true
 
Set vendoraddress = vendoraddress_cmd.Execute
vendoraddress_numRows = 0
%>
<%
Dim addressbook__MMColParam
addressbook__MMColParam = "9999999"
If (Request.QueryString("record") <> "") Then 
  addressbook__MMColParam = Request.QueryString("record")
End If
%>
<%
Dim addressbook
Dim addressbook_cmd
Dim addressbook_numRows
 
Set addressbook_cmd = Server.CreateObject ("ADODB.Command")
addressbook_cmd.ActiveConnection = MM_camsmith_STRING
addressbook_cmd.CommandText = "SELECT * FROM dbo.addressbook WHERE cRef = ?" 
addressbook_cmd.Prepared = true
addressbook_cmd.Parameters.Append addressbook_cmd.CreateParameter("param1", 200, 1, 30, addressbook__MMColParam) ' adVarChar
 
Set addressbook = addressbook_cmd.Execute
addressbook_numRows = 0
%>
<%
Dim vendorinfo__MMColParam
vendorinfo__MMColParam = "9999999"
If (Request.QueryString("record") <> "") Then 
  vendorinfo__MMColParam = Request.QueryString("record")
End If
%>
<%
Dim vendorinfo
Dim vendorinfo_cmd
Dim vendorinfo_numRows
 
Set vendorinfo_cmd = Server.CreateObject ("ADODB.Command")
vendorinfo_cmd.ActiveConnection = MM_camsmith_STRING
vendorinfo_cmd.CommandText = "SELECT * FROM dbo.addresslookupaddproperty WHERE cRef = ?" 
vendorinfo_cmd.Prepared = true
vendorinfo_cmd.Parameters.Append vendorinfo_cmd.CreateParameter("param1", 200, 1, 30, vendorinfo__MMColParam) ' adVarChar
 
Set vendorinfo = vendorinfo_cmd.Execute
vendorinfo_numRows = 0
%>
<%
Dim soladdressbook
Dim soladdressbook_numRows
 
Set soladdressbook = Server.CreateObject("ADODB.Recordset")
soladdressbook.ActiveConnection = MM_camsmith_STRING
soladdressbook.Source = "SELECT distinct cCompany  FROM dbo.addressbook  WHERE cType = 'Solicitor'  ORDER BY cCompany"
soladdressbook.CursorType = 0
soladdressbook.CursorLocation = 2
soladdressbook.LockType = 1
soladdressbook.Open()
 
soladdressbook_numRows = 0
%>
<%
Dim solicitors
Dim solicitors_numRows
 
Set solicitors = Server.CreateObject("ADODB.Recordset")
solicitors.ActiveConnection = MM_camsmith_STRING
solicitors.Source = "SELECT *  FROM dbo.addresslookupaddproperty"
solicitors.CursorType = 0
solicitors.CursorLocation = 2
solicitors.LockType = 1
solicitors.Open()
 
solicitors_numRows = 0
%>
<%
Dim viewing__MMColParam
viewing__MMColParam = "1"
If (Session("pRef")  <> "") Then 
  viewing__MMColParam = Session("pRef") 
End If
%>
<%
Dim viewing
Dim viewing_cmd
Dim viewing_numRows
 
Set viewing_cmd = Server.CreateObject ("ADODB.Command")
viewing_cmd.ActiveConnection = MM_camsmith_STRING
viewing_cmd.CommandText = "SELECT * FROM dbo.notesofinterest,addressbook WHERE nPref = ? and ncRef = cRef ORDER BY nDate DESC" 
viewing_cmd.Prepared = true
viewing_cmd.Parameters.Append viewing_cmd.CreateParameter("param1", 5, 1, -1, viewing__MMColParam) ' adDouble
 
Set viewing = viewing_cmd.Execute
viewing_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
 
Repeat1__numRows = -1
Repeat1__index = 0
viewing_numRows = viewing_numRows + Repeat1__numRows
%>
 
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
 
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form2") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd
 
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_camsmith_STRING
    MM_editCmd.CommandText = "INSERT INTO dbo.notesofinterest (nDate, nSolFirm,  nActingSolcRef, nComments, nPref, ncRef) VALUES (?, ?, ?, ?,  ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("nDate"), Request.Form("nDate"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("nSolFirm")) ' adLongVarChar
 
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, Request.Form("nActingSolcRef")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 300, Request.Form("nComments")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("nPref"), Request.Form("nPref"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("ncRef"), Request.Form("ncRef"), null)) ' adDouble
 
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
 
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "solicitor_estateagency_notesofinterestlistafterinsert.asp"
 
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
 
 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Estate-Agent Solicitor Intelligent Property Management: Notes of Interest</title>
 
 
<script language="JavaScript">
<!--
var arrDynaList = new Array();
var arrDL1 = new Array();
arrDL1[1] = "nSolFirm";               // Name of parent list box
arrDL1[2] = "form1";                  // Name of form containing parent list box
arrDL1[3] = "nActingSolcRef";               // Name of child list box
arrDL1[4] = "form1";                  // Name of form containing child list box
arrDL1[5] = arrDynaList;
  
<%
Dim txtDynaListRelation, txtDynaListLabel, txtDynaListValue, oDynaListRS
txtDynaListRelation = "cCompany"      ' Name of recordset field relating to parent
txtDynaListLabel = "Name"            ' Name of recordset field for child Item Label
txtDynaListValue = "cRef"            ' Name of recordset field for child Value
 
Set oDynaListRS = solicitors
             ' Name of child list box recordset
  
Dim varDynaList
varDynaList = -1
Dim varMaxWidth
varMaxWidth = "1"
Dim varCheckGroup
varCheckGroup = oDynaListRS.Fields.Item(txtDynaListRelation).Value
Dim varCheckLength
varCheckLength = 0
Dim varMaxLength
varMaxLength = 0
While (NOT oDynaListRS.EOF)
 If (varCheckGroup <> oDynaListRS.Fields.Item(txtDynaListRelation).Value) Then
  If (varCheckLength > varMaxLength) Then
   varMaxLength = varCheckLength
  End If
  varCheckLength = 0
 End If
%>
 arrDynaList[<%=(varDynaList+1)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListRelation).Value)%>"
 arrDynaList[<%=(varDynaList+2)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListLabel).Value)%>"
 arrDynaList[<%=(varDynaList+3)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListValue).Value)%>"
<%
 If (len(oDynaListRS.Fields.Item(txtDynaListLabel).Value) > len(varMaxWidth)) Then
  varMaxWidth = oDynaListRS.Fields.Item(txtDynaListLabel).Value
 End If
 varCheckLength = varCheckLength + 1
 varDynaList = varDynaList + 3
 oDynaListRS.MoveNext()
Wend
If (varCheckLength > varMaxLength) Then
 varMaxLength = varCheckLength
End If
%>
//-->
</script>
<script type="text/javascript">
<!--
<!--
function setDynaList(arrDL){
 var oList1 = document.forms[arrDL[2]].elements[arrDL[1]];
 var oList2 = document.forms[arrDL[4]].elements[arrDL[3]];
 var arrList = arrDL[5];
 
 clearDynaList(oList2);
 
 if (oList1.selectedIndex == -1){
  oList1.selectedIndex = 0;
 }
 populateDynaList(oList2, oList1[oList1.selectedIndex].value, arrList);
 return true;
}
 
function clearDynaList(oList){
 for (var i = oList.options.length; i >= 0; i--){
  oList.options[i] = null;
 }
 
 oList.selectedIndex = -1;
}
function setHiddenField(){
	document.getElementById('nSolFirm').value=this.value;
} 
function populateDynaList(oList, nIndex, aArray){
 oList.onchange=setHiddenField; 
 oList.options.length=0;
 oList.options[oList.options.length] = new Option("Not Specified  ","%");
 for (var i = 0; i < aArray.length; i= i + 3){
  if (aArray[i] == nIndex){
   oList.options[oList.options.length] = new Option(aArray[i + 1], aArray[i + 2]);
  }
 }
 
 oList.selectedIndex = 0;
}
 
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 YY_checkform() { //v4.71
//copyright (c)1998,2002 Yaromat.com
  var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;
  for (i=1; i<a.length;i=i+4){
    if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}
    o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));
    o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));
    v=o.value;t=a[i+2];
    if (o.type=='text'||o.type=='password'||o.type=='hidden'){
      if (r&&v.length==0){err=true}
      if (v.length>0)
      if (t==1){ //fromto
        ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}
      } else if (t==2){
        rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;
      } else if (t==3){ // date
        ma=a[i+1].split("#");at=v.match(ma[0]);
        if(at){
          cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];
          dte=new Date(cy,cm,cd);
          if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};
        }else{err=true}
      } else if (t==4){ // time
        ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}
      } else if (t==5){ // check this 2
            if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!o1.checked){err=true}
      } else if (t==6){ // the same
            if(v!=MM_findObj(a[i+1]).value){err=true}
      }
    } else
    if (!o.type&&o.length>0&&o[0].type=='radio'){
          at = a[i].match(/(.*)\[(\d+)\].*/i);
          o2=(o.length>1)?o[at[2]]:o;
      if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}
      if (t==2){
        oo=false;
        for(j=0;j<o.length;j++){oo=oo||o[j].checked}
        if(!oo){s+='* '+a[i+3]+'\n'}
      }
    } else if (o.type=='checkbox'){
      if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}
    } else if (o.type=='select-one'||o.type=='select-multiple'){
      if(t==1&&o.selectedIndex/1==0){err=true}
    }else if (o.type=='textarea'){
      if(v.length<a[i+1]){err=true}
    }
    if (err){s+='* '+a[i+3]+'\n'; err=false}
  }
  if (s!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+s)}
  document.MM_returnValue = (s=='');
}//-->
</script>
 
 
 
 
<script type="text/javascript">
<!--
 
 
 
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];}}
}
//-->
</script>
<link href="solicitors_estateagency_styles.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="p7pm/p7popmenu.js"></script>
<link href="includes/p7pm/p7pmv0.css" rel="stylesheet" type="text/css" />
<style type="text/css">
/*<![CDATA[*/
 
 
 
#scroller {
      width: 100%;
      height: 240px;
      overflow: auto;
      border-top: 0px inset;
      border-right: 0px inset;
      border-bottom: 0px inset;
      border-left: 0px inset;
 }
</style>
 
<script>
 
 
<script>
function RefreshData(sel)
      {
      var entry = sel.options[sel.selectedIndex].value;
      document.location.href="solicitor_estateagency_addviewingappointment2.asp?record=" + entry; + "pRef=" 
      }
</script>
 
<script type="text/javascript">
<!--
function setDynaList(arrDL){
 var oList1 = document.forms[arrDL[2]].elements[arrDL[1]];
 var oList2 = document.forms[arrDL[4]].elements[arrDL[3]];
 var arrList = arrDL[5];
 
 clearDynaList(oList2);
 
 if (oList1.selectedIndex == -1){
  oList1.selectedIndex = 0;
 }
 populateDynaList(oList2, oList1[oList1.selectedIndex].value, arrList);
 return true;
}
 
function clearDynaList(oList){
 for (var i = oList.options.length; i >= 0; i--){
  oList.options[i] = null;
 }
 
 oList.selectedIndex = -1;
}
 
function populateDynaList(oList, nIndex, aArray){
 oList.options.length=0;
 oList.options[oList.options.length] = new Option("Select Solicitor  ","%");
  oList.options[oList.options.length] = new Option("Unknown  ","Unknown");
 oList.options[oList.options.length] = new Option("INFORMAL  ","INFORMAL");
 for (var i = 0; i < aArray.length; i= i + 3){
  if (aArray[i] == nIndex){
   oList.options[oList.options.length] = new Option(aArray[i + 1], aArray[i + 2]);
  }
 }
 
 oList.selectedIndex = 0;
}
 
function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}
 
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 YY_checkform() { //v4.71
//copyright (c)1998,2002 Yaromat.com
  var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;
  for (i=1; i<a.length;i=i+4){
    if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}
    o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));
    o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));
    v=o.value;t=a[i+2];
    if (o.type=='text'||o.type=='password'||o.type=='hidden'){
      if (r&&v.length==0){err=true}
      if (v.length>0)
      if (t==1){ //fromto
        ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}
      } else if (t==2){
        rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;
      } else if (t==3){ // date
        ma=a[i+1].split("#");at=v.match(ma[0]);
        if(at){
          cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];
          dte=new Date(cy,cm,cd);
          if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};
        }else{err=true}
      } else if (t==4){ // time
        ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}
      } else if (t==5){ // check this 2
            if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!o1.checked){err=true}
      } else if (t==6){ // the same
            if(v!=MM_findObj(a[i+1]).value){err=true}
      }
    } else
    if (!o.type&&o.length>0&&o[0].type=='radio'){
          at = a[i].match(/(.*)\[(\d+)\].*/i);
          o2=(o.length>1)?o[at[2]]:o;
      if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}
      if (t==2){
        oo=false;
        for(j=0;j<o.length;j++){oo=oo||o[j].checked}
        if(!oo){s+='* '+a[i+3]+'\n'}
      }
    } else if (o.type=='checkbox'){
      if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}
    } else if (o.type=='select-one'||o.type=='select-multiple'){
      if(t==1&&o.selectedIndex/1==0){err=true}
    }else if (o.type=='textarea'){
      if(v.length<a[i+1]){err=true}
    }
    if (err){s+='* '+a[i+3]+'\n'; err=false}
  }
  if (s!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+s)}
  document.MM_returnValue = (s=='');
}
//-->
</script>
</head>
<body onload="P7_initPM(0,0,1,-20,10)">
<div id ="outerwrapper">
<table width="840" height="75" border="0" cellpadding="0" cellspacing="0" background="../graphics/cms_bg_header.jpg">
    <tr>
      <td><img src="../graphics/menu2/sea_logo.jpg" alt="Solicitor Estate Agency Property Management" width="200" height="75" hspace="0" vspace="0" /></td>
      <td width="640" align="right" valign="bottom"><table width="0" height="70" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="11"></td>
        </tr>
        <tr>
          <td align="right"><a href="solicitor_estateagency_propertydetails.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/property_details_active.jpg" alt="Property Details" name="Image12" width="62" height="70" border="0" id="Image12" onmouseover="MM_swapImage('Image12','','../graphics/easi_menu/property_details_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a><a href="solicitor_estateagency_propertydetails.asp"></a></td>
          <td align="right"><a href="solicitor_estateagency_createschedule.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/checklists_active.jpg" alt="Checklists" width="62" height="70" border="0" id="Image4" onmouseover="MM_swapImage('Image4','','../graphics/easi_menu/checklists_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
          <td align="right"><a href="solicitor_estateagency_viewinglist.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/viewing_appts_active.jpg" alt="Viewing Appointments" width="62" height="70" border="0" id="Image21" onmouseover="MM_swapImage('Image21','','../graphics/easi_menu/viewing_appts_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a><a href="solicitor_estateagency_viewinglist.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"></a></td>
          <td align="right"><img src="../graphics/easi_menu/noi_current.jpg" alt="Notes of Interest" width="62" height="70" border="0" id="Image311" /></td>
          <td align="right"><a href="solicitor_estateagency_surveyslist.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/surveys_active.jpg" alt="Surveys Instructed" width="62" height="70" border="0" id="Image411" onmouseover="MM_swapImage('Image411','','../graphics/easi_menu/surveys_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
          <td align="right"><a href="solicitor_estateagency_offerslist.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/offers_active.jpg" alt="Offers Received" width="62" height="70" border="0" id="Image511" onmouseover="MM_swapImage('Image511','','../graphics/easi_menu/offers_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
          <td align="right"><a href="solicitor_estateagency_createwindowcard.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/merge_docs_active.jpg" alt="Merge Documents" name="Image611" width="62" height="70" border="0" id="Image611" onmouseover="MM_swapImage('Image611','','../graphics/easi_menu/merge_docs_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
          <td align="right"><a href="solicitor_estateagency_pdfupload.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/upload_active.jpg" alt="Upload Photo/PDF" width="62" height="70" border="0" id="Image5" onmouseover="MM_swapImage('Image5','','../graphics/easi_menu/upload_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
          <td align="right"><a href="solicitor_estateagency_generalnotes.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/general_notes_active.jpg" alt="General Notes" width="62" height="70" border="0" id="Image6" onmouseover="MM_swapImage('Image6','','../graphics/easi_menu/general_notes_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
          <td><a href="solicitor_estateagency_enquiries.asp?pRef=<%=(property.Fields.Item("pRef").Value)%>"><img src="../graphics/easi_menu/enquiries_active.jpg" alt="Enqruiries" width="62" height="70" border="0" id="Image7" onmouseover="MM_swapImage('Image7','','../graphics/easi_menu/enquiries_rollover.jpg',1)" onmouseout="MM_swapImgRestore()" /></a></td>
        </tr>
      </table></td>
    </tr>
  </table>
 
 
<div id="maincontent">
  <table width="100%" height="0" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="0" colspan="2" valign="top" background="../graphics/menu_cms_bg.gif"></td>
    </tr>
    <tr>
     <td height="30" colspan="2" valign="middle" id="searchfunction_property"><p align="right">You are logged in as <%=(user.Fields.Item("UserFirstName").Value)%> </a><%=(user.Fields.Item("UserLastName").Value)%></p></td>
    </tr>
    <tr>
      <td width="185" valign="top" bgcolor="#024B8F"><!--#include file="includes/mainnav_easi.asp" --></td>
      <td height="420" valign="top" bgcolor="#FFFFFF"><div class="highlight">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="504"><img src="../graphics/menu/viewingappointments_icon.jpg" alt="Add Viewing Appointment" name="Image1" width="60" height="48" hspace="5" border="0" align="left" id="Image1" />
              <h1>Add Note of Interest </h1>
                <h2 ><%=(property.Fields.Item("pAddress1").Value)%>, <%=(property.Fields.Item("pAddress2").Value)%>, <%=(property.Fields.Item("pTown").Value)%>, <%=(property.Fields.Item("pPostCode").Value)%></h2></td><td width="136" align="right"> </td>
          </tr>
        </table>
      </div>
         <div class="checklist"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2" valign="top"><span class="propertydetailsstatus"><%=(property.Fields.Item("pStage").Value)%> <%=(property.Fields.Item("pClosingDate").Value)%> </span></td>
    </tr>
  <tr>
    <td width="54" valign="top"><p class="propertydetailsheading">Price: </p></td>
    <td width="596" valign="middle"> <p><%=(property.Fields.Item("pPriceType").Value)%> <%= FormatCurrency((property.Fields.Item("pPrice").Value), 0, -2, -2, -2) %><span class="propertydetailsheading"> 
        </span></p>      </td>
  </tr>
  
  <tr>
    <td valign="top"><p class="propertydetailsheading">NOI:</p></td>
    <td valign="middle"><p> Notes of Interest taken in Total </p></td>
  </tr>
</table>
 
             
 
            </div>
       <div class="checklist">
             <div id ="formcontainer">
            <form action="<%=MM_editAction%>" method="post" name="form1" id="form1" onsubmit="YY_checkform('document.form1','input_flightdeparture6','#q','0','Please select the Date of the Note of Interest','nSolFirm','q','1','Please select the Solicitor Firm making the Note of Interest','nActingSol','q','1','Please select the Solicitor Name ');return document.MM_returnValue">
              <table width="100%" height="0" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%" valign="top">
    <table width="100%" border="0" cellpadding="0" cellspacing="0">
      
      <tr>
        <td width="70%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
              
              <tr>
                <td height="25" colspan="2">    <h2>Add Note of Interest </h2>                </tr>
              <tr>
                <td height="25"><p class="propertydetailsheading"> Client's Name : 
                </p>
                <td width="73%">  <p>
                    <label><a href="solicitor_estateagency_addaddcontactpop.asp" target="addvendor"></a></label>
                  <%=(addressbook.Fields.Item("cTitle").Value)%><%=(addressbook.Fields.Item("cFirstName").Value)%><%=(addressbook.Fields.Item("cSurName").Value)%></p></td>
                </tr>
              
              
              <tr>
                <td width="27%" height="25"><p class="propertydetailsheading">Address: </p></td>
                <td><p>
                    <% If Not vendorinfo.EOF Or Not vendorinfo.BOF Then %>
                    <%=(vendorinfo.Fields.Item("cAddress1").Value) & " " & (vendorinfo.Fields.Item("cAddress2").Value) & ", " & (vendorinfo.Fields.Item("cTown").Value)%>
                    <% End If %>
                </p></td>
              </tr>
              
              <tr>
                <td height="25"><p class="propertydetailsheading">Date Note Taken: </p></td>
                <td><input name="nDate" type="text" id='input_flightdeparture6' size="12" />
                    <img src="calendarimages/dlcalendar_2.gif" alt="calendar" name="img_flightdeparture6" width="13" height="13" align="middle" id="img_flightdeparture6" />
                    <dlcalendar click_element_id="img_flightdeparture6"
            emptydate_option="true"
            hide_onselection="true"
            input_element_id="input_flightdeparture6"
            tool_tip="Click to choose flight departure date"></dlcalendar></td>
                </tr>
              <tr>
                <td height="25"><p class="propertydetailsheading">Solicitor Firm: </p></td>
                <td><select name="nSolFirm" id="nSolFirm" onchange="MM_callJS('setDynaList(arrDL1)')" TABINDEX=5>
                    <option value="NA">Please Select...</option>
                    <option value="INFORMAL">INFORMAL</option>
                              <%
While (NOT soladdressbook.EOF)
%><option value="<%=(soladdressbook.Fields.Item("cCompany").Value)%>"><%=(soladdressbook.Fields.Item("cCompany").Value)%></option>
                    <%
  soladdressbook.MoveNext()
Wend
If (soladdressbook.CursorType > 0) Then
  soladdressbook.MoveFirst
Else
  soladdressbook.Requery
End If
%>
                  </select> <label class="propertydetailscheck" onclick="MM_openBrWindow('solicitor_estateagency_addaddcontactPOP.asp','addcontact','scrollbars=yes,width=650,height=475')"><img src="../graphics/menu/addcontact_sm.jpg" alt="Add contact" width="20" height="24" align="absbottom" /><a href="solicitor_estateagency_addaddcontactpop.asp" target="addcontact">Add
 Contact</a></label></td>
              </tr>
              
              <tr>
                <td height="25"><p class="propertydetailsheading">Acting Solicitor: </p></td>
                <td><select name="nActingSolcRef" id="nActingSolcRef">
                    <option value="NA">Select Solicitor Firm</option>
                   
                          
                          </select>
                  <input name="nActingSol" type="hidden" id="nActingSol" /></td>
              </tr>
              
              <tr>
                <td height="25" valign="top"><p class="propertydetailsheading">Comments: </p></td>
                <td><textarea name="nComments" cols="40" rows="4" wrap="virtual" id="nComments" onkeyup='countIt()'  ></textarea></td>
              </tr>
              <tr>
                <td><input name="nPref" type="hidden" id="nPref" value="<%=(property.Fields.Item("pRef").Value)%>" />
                  <input name="ncRef" type="hidden" id="ncRef" value="<%=(vendorinfo.Fields.Item("cRef").Value)%>" /></td>
                <td><input name="Add Property" type="submit" class="button" onclick="YY_checkform('form1');return document.MM_returnValue" value="Complete"></td>
              </tr>
              <tr>
                <td> </td>
                <td></td>
              </tr>
            </table></td>
        <td width="30%" valign="top"><div class="viewingappointmentsrights">
          <h2>Notes of Interest Recorded</h2>
         <div id="scroller">
           <% 
While ((Repeat1__numRows <> 0) AND (NOT viewing.EOF)) 
%>
             <table width="90%" border="0" cellspacing="0" cellpadding="0">
               
               <tr>
                 <td><p class="propertydetailslist"><a href="solicitor_estateagency_notesofinterestdetails.asp?pRef=<%=(viewing.Fields.Item("nPref").Value)%>&ncRef=<%=(viewing.Fields.Item("ncRef").Value)%>&ref=<%=(viewing.Fields.Item("ref").Value)%>&sName=<%=(viewing.Fields.Item("nActingSol").Value)%>"><%=(viewing.Fields.Item("nDate").Value)%></a>
                   
                   
                   </p></td>
                          <td><p class="propertydetailslist"> </p></td>
                    </tr>
             </table>
             <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  viewing.MoveNext()
Wend
%>
</div>     
          </td>
      </tr>
    </table>
   <input type="hidden" name="MM_insert" value="form2"></td>
  </tr>
  
  
</table>
        </form></div>
            
 
             
             </div>
        </td>
    </tr>
  </table>
</div>
</div>
<script>
function dl_viewOver(eElement)
{
      eElement.onmouseout = dl_viewOut;
      eElement.style.color = "blue";
}
function dl_viewOut()
{
      this.style.color = "firebrick";
}
function dl_viewSource(eElement)
{
      var eXMP=eElement.nextSibling;
      while((eXMP.nodeType==3)||(eXMP.tagName.toLowerCase()=="br")){eXMP=eXMP.nextSibling};
      if(eXMP.style.display=="block"){eXMP.style.display="none"; eElement.innerHTML="[ View Source ]";}
                                             else{eXMP.style.display="block";eElement.innerHTML="[ Hide Source ]";}
}
</script>
<script type="text/javascript" language="javascript"  src="dlcalendar.js"></script>
 
 
<!--#include file="includes/footer.asp" -->
 
 
 
</body>
</html>
<%
user.Close()
Set user = Nothing
%>
<%
vendoraddress.Close()
Set vendoraddress = Nothing
%>
<%
addressbook.Close()
Set addressbook = Nothing
%>
<%
vendorinfo.Close()
Set vendorinfo = Nothing
%>
<%
soladdressbook.Close()
Set soladdressbook = Nothing
%>
<%
solicitors.Close()
Set solicitors = Nothing
%>
<%
viewing.Close()
Set viewing = Nothing
%>
<%
property.Close()
Set property = Nothing
%>

Open in new window

0
 
LVL 82

Expert Comment

by:hielo
ID: 22825799
IF that does not work, change:
function setHiddenField(){
      document.getElementById('nSolFirm').value=this.value;
}

to:
function setHiddenField(){
      document.getElementById('nSolFirm').value=this.options[ this.selectedIndex ].value;
}
0
 
LVL 82

Accepted Solution

by:
hielo earned 500 total points
ID: 22825807
notice that I added:

 oList.onchange=setHiddenField;

to:
function populateDynaList(...)
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Introduction HTML checkboxes provide the perfect way for a web developer to receive client input when the client's options might be none, one or many.  But the PHP code for processing the checkboxes can be confusing at first.  What if a checkbox is…
Boost your ability to deliver ambitious and competitive web apps by choosing the right JavaScript framework to best suit your project’s needs.
The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)
The viewer will learn the basics of jQuery including how to code hide show and toggles. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery…

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now