<%@LANGUAGE="VBSCRIPT"%>
[an error occurred while processing this directive]
<%
' *** 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_Sasi_STRING
  MM_editTable = "Request"
  MM_editRedirectUrl = "thanks.asp"
  MM_fieldsStr  = "FirstName|value|LastName|value|Addr1|value|Addr2|value|City|value|State|value|Zip|value|Country|value|Phone|value|Email|value|Website|value|Employer|value|Position|value|PreSchool|value|K6|value|MidSchool|value|HighSchool|value|TypicalChild|value|SensoryConcerns|value|SensoryResults|value|SIPTResults|value|ClinicalObservation|value|Autism|value|DownSyndrome|value|ADHD|value|ConductDisorder|value|LearningDisabilities|value|EmotionalDisturb|value|MentalRetardation|value|FragileX|value|Tourette|value|PostInstitution|value|Gifted|value|MonthData|value|HearAbout|value"
  MM_columnsStr = "FirstName|',none,''|LastName|',none,''|Addr1|',none,''|Addr2|',none,''|City|',none,''|State|',none,''|Zip|',none,''|Country|',none,''|Phone|',none,''|Email|',none,''|Website|',none,''|Employer|',none,''|Position|',none,''|PreSchool|',none,''|K6|',none,''|MidSchool|',none,''|HighSchool|',none,''|TypeChild|',none,''|ProcesConcerns|',none,''|ProfileResults|',none,''|SIPTResults|',none,''|Observations|',none,''|Autism|',none,''|DownSyndrome|',none,''|ADHD|',none,''|ConductDisorder|',none,''|LearningDisabilities|',none,''|EmotionalDisturb|',none,''|MentalRetardation|',none,''|FragileX|',none,''|Tourette|',none,''|PostInstitution|',none,''|Gifted|',none,''|MonthData|',none,''|HearAbout|',none,''"

  ' 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.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\hosting\sasitrio\sasitools.mdb;Persist Security Info=False"
    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
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!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>
<title>Sensory Integration Global Network -List Serve</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script language="JavaScript" type="text/JavaScript">
<!--
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>
<style type="text/css">
<!--
.content {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
}
A:link {color:#64239F; text-decoration: underline} 
.Title {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 16px;
	color: #64239F;
	font-weight: bold;
}
-->
</style>
</head>

<body bgcolor="#FFEFDF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/b-home-on.gif','images/b-asi-on.gif','images/b-about-on.gif','images/b-resources-on.gif','images/b-research-on.gif','images/b-parent-on.gif','images/b-intcon-on.gif','images/b-listserve-on.gif')">
<table width="752" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000"><tr><td><table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td colspan="2" valign="top"><img src="images/header.jpg" width="750" height="181" /></td>
  </tr>
  <tr> 
    <td width="188" valign="top" background="images/bg_menu.jpg"><a href="index.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('home','','images/b-home-on.gif',1)"><img src="images/b-home.gif" name="home" width="170" height="27" border="0" id="home" /></a> 
      <br />
      <a href="asi.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('ayerssi','','images/b-asi-on.gif',1)"><img src="images/b-asi.gif" name="ayerssi" width="170" height="27" border="0" id="ayerssi" /></a> 
      <br />
      <a href="about.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('about','','images/b-about-on.gif',1)"><img src="images/b-about.gif" name="about" width="170" height="27" border="0" id="about" /></a> 
      <br />
      <a href="resource.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('resource','','images/b-resources-on.gif',1)"><img src="images/b-resources.gif" name="resource" width="170" height="27" border="0" id="resource" /></a> 
      <br />
      <a href="research.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('research','','images/b-research-on.gif',1)"><img src="images/b-research.gif" name="research" width="170" height="27" border="0" id="research" /></a> 
      <br />
      <a href="parent.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('parent','','images/b-parent-on.gif',1)"><img src="images/b-parent.gif" name="parent" width="170" height="27" border="0" id="parent" /></a> 
      <br />
      <a href="connections.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('inter','','images/b-intcon-on.gif',1)"><img src="images/b-intcon.gif" name="inter" width="170" height="27" border="0" id="inter" /></a> 
      <br />
      <a href="listserv.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('list','','images/b-listserve-on.gif',1)"><img src="images/b-listserve-on.gif" name="list" width="170" height="27" border="0" id="list" /></a><img src="images/bg_left.jpg" width="188" height="84" /><img src="images/bg_left.jpg" width="188" height="84" /><img src="images/bg_left.jpg" width="188" height="84" /><img src="images/bg_left.jpg" width="188" height="84" /><img src="images/bg_left.jpg" width="188" height="84" /></td>
    <td width="562" rowspan="2" valign="top" class="content"><table width="555" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td valign="top" class="content"><p class="Title">List Serve <br />
              <img src="images/line.gif" width="555" height="2" /></p>
                  <p>This page is currently under construction. Please check back 
                    again soon.</p>
                 </td>
        </tr>
      </table>
      <p class="Title">&nbsp;</p>
      </td>
  </tr>
  <tr> 
    <td valign="top" background="images/bg_left.jpg">&nbsp;</td>
  </tr>
  <tr> 
    <td valign="top" background="images/bg_left.jpg">&nbsp;</td>
    <td valign="top" class="content"><div align="center"> 
        <hr />
        <a href="index.html">Home</a> | <a href="asi.htm">Ayres Sensory Integration</a> 
        | <a href="about.htm">About A. Jean Ayres</a> | <a href="resources.htm">Professional 
        Resources</a><br />
        <a href="research.htm">Research &amp; Literature</a> | <a href="parent.htm">Parent 
        Resources</a> | <a href="connections.htm">International Connections</a> 
        | <a href="listserv.asp">List Serve</a><br />
      </div>
      <p>&nbsp;</p></td>
  </tr>
  <tr> 
    <td colspan="2" valign="top"><img src="images/footer.gif" width="749" height="27" /></td>
  </tr>
  <tr> 
    <td valign="top" background="images/bg_left.jpg">&nbsp;</td>
    <td valign="top" class="content"><div align="center">&copy; 2007 Sensory Integration 
        Global Network</div></td>
  </tr>
</table><img src="images/spacer.gif" width="1" height="1"></td></tr></table>
</body>
</html>