Solved

Call stored proc in MS SQL Server brings results for certain selections

Posted on 2006-11-14
30
468 Views
Last Modified: 2010-08-05
Hello All,


I'm using ASP with MS SQL Server.

From my ASP page I am sending four parameters to a SP, two date fields and a integer.

From my page the user selects from a drop down box a company. THen they enter two dates(begining and End Dates) Usually it's just a month span like 10/01/2006 10/31/2006.

My issue is trying to figure out why does it work for to selections but for all of the other selections it brings back nothing.
0
Comment
Question by:jaze95
  • 12
  • 12
  • 6
30 Comments
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
>> My issue is trying to figure out why does it work for to selections but for all of the other selections it brings back nothing.

What?  What are you asking and what is the problem?
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
THe problem is when I run the page nothing comes back but I run the query against the server from SQL Analyzer and get a result. But the page does work but it olny works for two selection in the drop down box.
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
You need SET NOCOUNT ON at the top of the procedure.
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
If you have that, then your parameters are not posting to procedure properly.
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
I have that set right after I drop some temp tables if they exist
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
So how does it work fine for two selections and for other it doesn't?????


0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
>>So how does it work fine for two selections and for other it doesn't?????

I dont' have all the code, so don't know...but, what you think you are passing to procedure...you are not.  Response.write all values.
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
I have did a response write, i pulled back the query string and it looks fine.
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
>> I dont' have all the code, so don't know

Ummm....you still not providing anything to review.  You're saying "my page doesn't work", but not giving any code....
0
 
LVL 20

Expert Comment

by:jitganguly
Comment Utility
Looks like when you are passing from ASp it does not consider as date field.
Use CDate function to convert to dates first

Run a harcoded value from ASP page with cdate
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
Page that captures parameters and pass to page:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%


 DIM objconn, objrs, strq,objCmd,rs,sSQL,cn
 DIM strConnection
 


 Set objConn = Server.CreateObject("ADODB.Connection")
 strConnection = "Data Source=internet;"
 strConnection = strConnection & "User ID=sa;Password=*****;"
 objConn.Open strConnection


 Set rs = Server.CreateObject("ADODB.Recordset")
 sSQL = "select * from eap_list order by payor_name"
 rs.open sSQL , objConn

 
 %>


<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
  <title>Submit Parametes for report</title>
  <meta content="Evrsoft First Page" name="GENERATOR">
  <meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
  <img src="banner.jpg" width="767" height="82" alt="" border="0">
  <img src="employee_banner.GIF" width="770" height="123" alt="" border="0">
 
 
 
</head>

<body>
 

  <form id="frm" name="frm" action="procpass.asp" method="post">
    <br>

    <table style="LEFT: 150px; WIDTH: 378px; POSITION: absolute; TOP: 250px; HEIGHT: 122px" cellspacing="5">
      <tbody>
        <tr>
          <td align="right"><label>Select Account</label></td>

          <td>     <select style="LEFT: 260px; WIDTH: 250px; POSITION: absolute; TOP: 4px" name="pbhaccounts">
<%
do while not rs.eof
    response.write "<option value='" & rs("payor_key") & "'>"
    response.write rs("payor_name")
    response.write "</option>"
    rs.movenext
loop



%>
</select></td>
        </tr>

        <tr>
          <td align="right">Start Date</td>

          <td><input style="LEFT: 260px; WIDTH: 80px; POSITION: absolute; TOP: 34px; HEIGHT: 22px" type="date" size="7" name="Start1"></td>
        </tr>

        <tr>
          <td align="right">End Date</td>

          <td><input style="LEFT: 260px; WIDTH: 80px; POSITION: absolute; TOP: 62px; HEIGHT: 22px" type="date" size="10" name="Stop1"></td>
        </tr>

        <tr>
          <td align="right"></td>

          <td><input type="submit" value="Submit" name="Command"></td>
        </tr>
      </tbody>
    </table>   <%
                                           RS.close
                                           objConn.close
                                           Set RS = Nothing
                                           Set objConn = Nothing
                                           %>
  </form>
</body>
</html>

****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

Page that passes the parameters to SP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%

startdate=request("start1")
stopdate=request("Stop1")
PID=request("pbhaccounts")


%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
  <title>EAP Penetration Report By Account</title>
  <meta content="Evrsoft First Page" name="GENERATOR">
</head>

<body>
  <%
 

   DIM objconn1, objrs1, strq1
   DIM strConnection1
   
 

   Set objConn1 = Server.CreateObject("ADODB.Connection")
   strConnection1 = "Data Source=internet;"
   strConnection1 = strConnection1 & "User ID=sa;Password=******;"
   objConn1.Open strConnection1
 

   Set objrs1 = Server.CreateObject("ADODB.Recordset")
   strq1 = "select * from eap_list where payor_key = '"&PID&"'order by payor_name"
   Set objRS1 = objConn1.execute(strQ1)
   
   
   response.write (strQ1)
   %>
   
   
   
   
   <%
 

   DIM objconn, objrs, rs,sSQL
   DIM strConnection
   
 

   Set objConn = Server.CreateObject("ADODB.Connection")
   strConnection = "Data Source=erw;"
   strConnection = strConnection & "User ID=sa;Password=******;"
   objConn.Open strConnection
 

   Set rs = Server.CreateObject("ADODB.Recordset")
   sSQL = "EAP1'"&startdate&"', '"&StopDate&"','"&PID&"'"
   rs.open sSQL , objConn,2,3
 
    response.write (sSQL)
 
 %><img height="82" alt="" src="banner.jpg" width="767" border="0"> <img height="123" alt="" src="employee_banner.GIF" width="770" border="0"><br>
  <%Response.write objrs1("payor_name")%><br>
  <% Response.write startdate%>&nbsp;To&nbsp; <% response.write stopdate%><br>
  <%
            if RS.eof then          
                response.write "There are no records found for this account with that data span! "
                 
                  %>

  <form>
    <input onclick="javascript: history.go(-1)" type="button" value="Go Back">
  </form>
 
  <%else%>
  <br>

  <form>
    <br>
    <br>
    <br>
    <br>

    <div style="DISPLAY: none">
      <table style="LEFT: 0px; POSITION: absolute; TOP: 280px" cellspacing="0" cellpadding="0" width="200" border="1">
        <tbody>
          <tr>
            <th width="40"><font face="Verdana" size="1">Patient_key</font></th>

            <th width="40"><font face="Verdana" size="1">Total</font></th><%
                                                                                                                               
                                                                                                                       
                                                                                                                        do until rs.EOF
                                                                                                                                response.write "<tr><td>"
                                                                                                                                response.write rs("patient_key")
                                                                                                                                response.write "</td><td>"
                                                                                                                                response.write rs("Total")
                                                                                                                                response.write "</tr></td>"
                                                                                                                                rs.movenext
                                                                                                                                loop
                                                                                                                               
                                                                                                                               %>
          </tr>
        </tbody>
      </table>
    </div><br>
    <br>
    <br>
    <br>

    <div style="DISPLAY: none">
      <table style="LEFT: 550px; WIDTH: 203px; POSITION: absolute; TOP: 200px; HEIGHT: 22px" cellspacing="0" cellpadding="0" width="203" border="1">
        <tbody>
          <tr>
            <th width="40"><font face="Verdana" size="1">Age</font></th>

            <th width="40"><font face="Verdana" size="1">Total</font></th><%
                                                                                                                        set rs = rs.NextRecordset  
                                                                                                                               
                                                                                                                        do until rs.EOF
                                                                                                                                response.write "<tr><td>"
                                                                                                                                response.write rs("Age")
                                                                                                                                response.write "</td><td>"
                                                                                                                                response.write rs("Total")
                                                                                                                                response.write "</tr></td>"
                                                                                                                                rs.movenext
                                                                                                                                loop
                                                                                                                                               
                                                                                                                                               %>
          </tr>
        </tbody>
      </table>
    </div><br>
    <br>
    <br>

    <table style="LEFT: 25px; POSITION: absolute; TOP: 300px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Type&nbsp;Referral</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                          set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Type_of_Referral")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 250px; POSITION: absolute; TOP: 300px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Access</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                                                      set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Access")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 500px; POSITION: absolute; TOP: 300px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Gender</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                                                      set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Gender")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 25px; POSITION: absolute; TOP: 400px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Lenght_Employed</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                                                      set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Lenght_of_employment")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 400px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Race</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Race")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 400px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Client Category</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Client_category")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 25px; POSITION: absolute; TOP: 650px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Job Category</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Job_category")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 596px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Work Life Issues</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Work_life_issues")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 596px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Career Planning</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Career_planning")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 720px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Legal</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Legal")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 720px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Child Care</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Child_care")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 818px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Elder Care</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Elder_Care")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 818px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Financial</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Financial")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 1040px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Other</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Other")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 942px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Forensic Issues</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Forensic_Issues")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 942px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Workers Compensation</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Workers_Compensation")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 1138px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Motor Vehicle Accident</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Motor_Vehicle_Accident")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 1088px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Disability</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Disability")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 1038px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Court stipulated Treatment</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Court_stipulated_Treatment")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; WIDTH: 203px; POSITION: absolute; TOP: 1262px; HEIGHT: 68px" cellspacing="0" cellpadding="0" width="203" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Mandated Substance Abuse Evaluation</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Mandated_Substance_Abuse_Evaluation")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 1188px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Job</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Job")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 1162px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Absenteeism</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Absenteeism")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 1404px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Fit Duty Safety</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Fit_Duty_Safety")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 1286px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Lateness</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Lateness")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 1256px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Positive Drug Screen</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Positive_Drug_Screen")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 1554px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Productivity Quality of work</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Productivity_Quality_of_work")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 1404px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">C0 Wrk Relationship</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("C0_Wrk_Relationship")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 1700px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Disability Med Leave</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Disability_Med_Leave")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 1404px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Wrk Place Violence Threats By Clients</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Wrk_Place_Violence_ThreatsByClients")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 1552px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Wrk Place Violence Threats against Clients</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Wrk_Place_Violence_ThreatsagainstClients")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 1850px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Enviro Viol at wrk</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Enviro_Viol_at_wrk")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 1652px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Stress</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Stress")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 1726px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Behavioral Health</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Behavioral_Health")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 2024px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Anxiety</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Anxiety")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 1804px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Depression</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Depression")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 547px; POSITION: absolute; TOP: 1885px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Other Mood Disorder</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Other_Mood_disorder")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 47px; POSITION: absolute; TOP: 2133px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Stress1</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Stress1")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 297px; POSITION: absolute; TOP: 1933px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Grief Loss</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Grief_Loss")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 547px; POSITION: absolute; TOP: 2033px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Eating Problems</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Eating_Problems")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 2272px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Psychosis</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Psychosis")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 2100px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Learning Problems</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Learning_Problems")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 2172px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Marital Relationship</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Marital_Relationship")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 2372px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Family_Problems</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Family_Problems")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 2272px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Domestic Violence</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Domestic_Violence")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 550px; POSITION: absolute; TOP: 2346px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Sub Abuse By Client</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Sub_Abuse_By_Client")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 50px; POSITION: absolute; TOP: 2546px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Sexual_Issue</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Sexual_Issue")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 2446px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">Other1</font></th>

          <th width="40"><font face="Verdana" size="1">Total</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("Other1")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("Total")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table><br>

    <table style="LEFT: 300px; POSITION: absolute; TOP: 2594px" cellspacing="0" cellpadding="0" width="200" border="1">
      <tbody>
        <tr>
          <th width="40"><font face="Verdana" size="1">eighteen</font></th>

          <th width="40"><font face="Verdana" size="1">twentyfive</font></th>

          <th width="40"><font face="Verdana" size="1">thirtyfive</font></th>

          <th width="40"><font face="Verdana" size="1">fortyfive</font></th>

          <th width="40"><font face="Verdana" size="1">sixty</font></th>

          <th width="40"><font face="Verdana" size="1">other</font></th><%                        
                                                                                                         set rs = rs.NextRecordset  
                                                                                                                 
                                                                                                          do until rs.EOF
                                                                                                                  response.write "<tr><td>"
                                                                                                                  response.write rs("eighteen")
                                                                                                                  response.write "</td><td>"
                                                                                                                  response.write rs("twentyfive")
                                                                                                                                                                                 response.write "</td><td>"
                                                                                                                  response.write rs("thirtyfive")
                                                                                                                                                                                 response.write "</td><td>"
                                                                                                                  response.write rs("fortyfive")
                                                                                                                                                                                 response.write "</td><td>"
                                                                                                                  response.write rs("sixty")
                                                                                                                                                                                 response.write "</td><td>"
                                                                                                                  response.write rs("other")
                                                                                                                  response.write "</tr></td>"
                                                                                                                  rs.movenext
                                                                                                                  loop
                                                                                                         
                                                                                                         
                                                                          %>
        </tr>
      </tbody>
    </table>
        <%
                             RS.close
                             objConn.close
                             Set RS = Nothing
                             Set objConn = Nothing %>
      
  </form>

  <form style="LEFT: 700px; POSITION: absolute; TOP: 2750px">
    <input onclick="javascript: history.go(-1)" type="button" value="Go Back">
  </form><%end if%>
 

   <form style="LEFT: 800px; POSITION: absolute; TOP: 2750px" id="frm" name="frm" action="exporttoexcel.asp" method="post">
      <input type ="Hidden" name="pbhaccounts" value="<%response.write request("pbhaccounts")%>">
       <input  type ="Hidden" name = "start1" value="<%response.write request("start1")%>">
        <input type ="Hidden" name="stop1" value="<%response.write request("stop1")%>">
      
     <input type="submit" value="Export To Excel" name="Excel">
  </form>
 
  <%
                         
                                          
                                           objRS1.close
                             objConn1.close
                             Set objRS1 = Nothing
                             Set objConn1 = Nothing
              %>
</body>
</html>









0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
@PID = patient_key int 4

@startdate = eventdate datetime 8
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
You're passing INT datatype a string when enclosing in '
0
 
LVL 20

Expert Comment

by:jitganguly
Comment Utility
Try this

sSQL = "EAP1 '" & cdate(startdate) & "', '" & cdate(StopDate) & "'," & PID

If PID is int thne don't put it in quotes
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
sSQL = "EAP1'"&startdate&"', '"&StopDate&"',"&PID

You'll need to validate PID has value though...

0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 
LVL 31

Expert Comment

by:alorentz
Comment Utility
And, of course, you need a space between SP name and params:

sSQL = "EAP1 '"&...
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
See...much easier to give answer when I have code to look at <wink>..
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
For jitganguly, got this error when I changed line to this:

sSQL = "EAP1 '" & cdate(startdate) & "', '" & cdate(StopDate) & "'," & PID

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC SQL Server Driver][SQL Server]Syntax error converting the varchar value '*' to a column of data type int.
0
 
LVL 20

Expert Comment

by:jitganguly
Comment Utility
So Pid is not coimgn as int then

do a response.write of PId and let me know
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
Alorentz,

got

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC SQL Server Driver][SQL Server]Syntax error converting the varchar value '*' to a column of data type int.
/PBHACCS/procpass.asp, line 59


when changed the line to this:

 sSQL = "EAP1 '"&startdate&"', '"&StopDate&"',"&PID
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
Did a response write of the SQLstr and got this as being passed: EAP1'10/01/2006', '10/31/2006','55'
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
1.  You need space between sp name and param
2.  Remove the ' around PID (it's still in your response.write)
0
 
LVL 20

Expert Comment

by:jitganguly
Comment Utility
>>Did a response write of the SQLstr and got this as being passed: EAP1'10/01/2006', '10/31/2006','55'

My earlier post did not have single quote

Try this

sSQL = "EAP1 '" & cdate(startdate) & "', '" & cdate(StopDate) & "'," & PID

If PID is int thne don't put it in quotes

0
 
LVL 31

Assisted Solution

by:alorentz
alorentz earned 300 total points
Comment Utility
Post procedure...it seems the the expected value for PID is Varchar.

It should be CREATE PROCEDURE ..... @startdate datetime, @enddate datetime, @pid INT AS ....
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
The Sp does have it as varchar

CREATE PROCEDURE [EAP1]
      @startdate as datetime,
      @stopdate as datetime,
             @PID as varchar
as

if OBJECT_ID('erwh..EAPINTAKE') is not null
 begin
  drop table eapintake
 end

if OBJECT_ID('tempdb..##temp1') is not null
 begin
  drop table ##temp1
 end

if OBJECT_ID('tempdb..##temp2') is not null
 begin
  drop table ##temp2
 end


set ansi_nulls off
Set nocount on

SELECT     dbo.evEAPSINTAKE.*, dbo.patient.age into ##temp1
FROM         dbo.Patient_Elg INNER JOIN dbo.evEAPSINTAKE ON dbo.Patient_Elg.Patient_Key = dbo.evEAPSINTAKE.Patient_Key
 INNER JOIN
                      dbo.Patient ON dbo.Patient_Elg.Patient_Key = dbo.Patient.Patient_Key
WHERE     (dbo.Patient_Elg.Payor_Key = @PID) AND (dbo.evEAPSINTAKE.Event_Date BETWEEN CONVERT(DATETIME, @startdate, 102) AND
                      CONVERT(DATETIME, @Stopdate, 102))AND dbo.evEAPSINTAKE.EAPSINTAKE211 = 'Referred to EAP Sessions'
ORDER BY dbo.evEAPSINTAKE.Event_Date

select Patient_Key,Age,
CASE EAPSINTAKE211
WHEN 'Referred to EAP Sessions' then 'Referred to EAP Sessions'
when 'Referred to MH Benefit' then 'Referred to MH Benefit'
when 'Referred to work Life Benefit' then 'Referred to work Life Benefit'
When 'Referred to Community Resource' then 'Referred to Community Resource'
when 'Informaion Only' then 'Information Only'
when 'Management / H.R Consult' then 'Management / H.R Consult'
when 'SAP Evaluation' then 'SAP Evaluation'
when 'Referred to Non PBH MH Benefit' then 'Referred to Non PBH MH Benefit'
when 'NULL' then 'not indicated'
end AS TYPE_OF_REFERRAL,
Case EAPSINTAKE210
When 'R-Routine' then 'R-Routine'
When 'LTE-Life Threatening Emer.'   then 'LTE-Life Threatening Emer.'
When 'NLTE-Non-Life Threatening Emer.'    then 'NLTE-Non-Life Threatening Emer.'
When 'U-Urgent' then 'U-Urgent'
End as Access,
Case EAPSINTAKE8
when 'Male' then 'Male'
when 'Female' then 'Female'
end as Gender,
case EAPSINTAKE14  
when '1 - 5 years'Then '1 - 5 years'
when '10 - 20 years'Then '10 - 20 years'
when '5 - 10 years'Then  '5 - 10 years'
when '6 months - 1 year'Then '6 months - 1 year'
when 'Over 20 years'Then 'Over 20 years'
when 'Under 6 months'Then 'Under 6 months'
when 'Undisclosed'Then 'Undisclosed'
end as Lenght_Of_Employment,
case EAPSINTAKE7
when 'African American'then 'African American'
when 'Asian'then 'Asian'
when 'Caucasian'then  'Caucasian'
when 'Hispanic'then 'Hispanic'
when 'Multicutural'then 'Multicutural'
when 'Native American' then 'Native American'
when 'Undisclosed'then 'Undisclosed'
end as Race,
case EAPSINTAKE6  
when 'Dependent'then 'Dependent'
when 'Employee/Member'then 'Employee/Member'
when 'Manager / H.R.'then  'Manager / H.R.'
when 'Spouse'then 'Spouse'
when 'Student(CAPS)'then 'Student(CAPS)'
end as Client_Category,
Case EAPSINTAKE15        
When 'Administration / Managment'then'Administration / Managment'
When 'All Other Departments'then'All Other Departments'
When 'CNA'then'CNA'
When 'Clerical'then'Clerical'
When 'Customer Service'then'Customer Service'
When 'Distribution'then'Distribution'
When 'Enginering and Building Services'then'Enginering and Building Services'
When 'Faculty Non-Tenured'then'Faculty Non-Tenured'
When 'Faculty Tenured'then'Faculty Tenured'
When 'Field Services'then'Field Services'
When 'Gas Processing'then'Gas Processing'
When 'Materials Management'then'Materials Management'
When 'N/A'then'N/A'
When 'Nurses ( RN )                           'then'Nurses (RN)'
When 'Other Profesional'then'Other Profesional'
When 'Physician'then'Physician'
When 'Service / Maintance'then'Service / Maintance'
When 'Technical'then'Technical'
When 'Transporation'then'Transporation'
End As Job_Category,EAPSINTAKE58 as Work_Life_Issues,EAPSINTAKE59 as Career_Planning,
EAPSINTAKE60 as Legal,EAPSINTAKE61 as Child_Care,EAPSINTAKE62 as Elder_Care,
EAPSINTAKE63 as Financial,EAPSINTAKE64 as Other,
Case EAPSINTAKE23
when 'No' then 'No'
when 'Yes' then 'Yes'
end as Forensic_Issues,EAPSINTAKE24 as Workers_Compensation,EAPSINTAKE25 as Motor_Vehicle_Accident,EAPSINTAKE26 as Disability,
EAPSINTAKE27 as Court_stipulated_Treatment,EAPSINTAKE28 as Mandated_Substance_Abuse_Evaluation,
EAPSINTAKE29 as Job,EAPSINTAKE30 as Absenteeism,EAPSINTAKE31 as Fit_Duty_Safety,EAPSINTAKE32 as Lateness,EAPSINTAKE33 as Positive_Drug_Screen,EAPSINTAKE34 as Productivity_Quality_of_work,EAPSINTAKE35 as C0_Wrk_Relationship,EAPSINTAKE36 as Super_Relation,EAPSINTAKE37 as Disability_Med_Leave,EAPSINTAKE38 as Wrk_Place_Violence_ThreatsByClients,
EAPSINTAKE39 as Wrk_Place_Violence_ThreatsagainstClients,EAPSINTAKE40 as Enviro_Viol_at_wrk,EAPSINTAKE41 as Stress,EAPSINTAKE42 as Behavioral_Health,EAPSINTAKE43 as Anxiety,EAPSINTAKE44 as Depression,EAPSINTAKE45 as Other_Mood_disorder,EAPSINTAKE46 as Stress1,EAPSINTAKE47 as Grief_Loss,EAPSINTAKE48 as Eating_Problems,
EAPSINTAKE49 as Psychosis,EAPSINTAKE50 as Learning_Problems,EAPSINTAKE51 as Marital_Relationship,EAPSINTAKE52 as Family_Problems,EAPSINTAKE53 as Domestic_Violence,EAPSINTAKE54 as Sub_Abuse_By_Client,EAPSINTAKE55 as Another_Sub_Abuse_By_Client,EAPSINTAKE56 as Sexual_Issue,EAPSINTAKE57 as Other1
into ##temp2 from ##temp1

select  Patient_Key, Age, TYPE_OF_REFERRAL, Access, Gender, Lenght_Of_Employment,Race,Client_Category,
Job_Category, Work_Life_Issues, Career_Planning, Legal, Child_Care, Elder_Care, Financial, Other, Forensic_Issues,
Workers_Compensation, Motor_Vehicle_Accident, Disability, Court_stipulated_Treatment, Mandated_Substance_Abuse_Evaluation, Job,  Absenteeism,
Fit_Duty_Safety, Lateness, Positive_Drug_Screen, Productivity_Quality_of_work, C0_Wrk_Relationship,
Super_Relation Disability_Med_Leave, Wrk_Place_Violence_ThreatsByClients, Wrk_Place_Violence_ThreatsagainstClients,
Enviro_Viol_at_wrk, Stress, Behavioral_Health, Anxiety, Depression, Other_Mood_disorder, Stress1, Grief_Loss, Eating_Problems,
Psychosis, Learning_Problems, Marital_Relationship, Family_Problems, Domestic_Violence, Sub_Abuse_By_Client,
Another_Sub_Abuse_By_Client Sexual_Issue, Other1
into EAPINTAKE from ##temp2
group by Patient_Key,Age,
TYPE_OF_REFERRAL, Access, Gender, Lenght_Of_Employment,Race,Client_Category,
Job_Category, Work_Life_Issues, Career_Planning, Legal, Child_Care, Elder_Care, Financial, Other, Forensic_Issues,
Workers_Compensation, Motor_Vehicle_Accident, Disability, Court_stipulated_Treatment, Mandated_Substance_Abuse_Evaluation, Job,  Absenteeism,
Fit_Duty_Safety, Lateness, Positive_Drug_Screen, Productivity_Quality_of_work, C0_Wrk_Relationship,
Super_Relation, Disability_Med_Leave, Wrk_Place_Violence_ThreatsByClients, Wrk_Place_Violence_ThreatsagainstClients,
Enviro_Viol_at_wrk, Stress, Behavioral_Health, Anxiety, Depression, Other_Mood_disorder, Stress1, Grief_Loss, Eating_Problems,
Psychosis, Learning_Problems, Marital_Relationship, Family_Problems, Domestic_Violence, Sub_Abuse_By_Client,
Another_Sub_Abuse_By_Client, Sexual_Issue, Other1


set ansi_defaults off
declare @colvar varchar(100)
declare dq cursor for Select column_name from information_schema.columns where table_name = 'EAPINTAKE'
open dq
fetch next from dq into @colvar
while (@@fetch_status = 0)
begin
--print @colvar
execute('select
 ' + @colvar +
 ', count(' + @colvar + ') as total,
convert (decimal(10,2), convert(float,count(' + @colvar + '))/convert(float,12000)*100) as Penetration
from eapintake
group by ' + @colvar)
fetch next from dq into @colvar
end
close dq
deallocate dq
select    COUNT(*) eighteen,00000 twentyfive,00000 thirtyfive,00000 fortyfive,00000 sixty,00000 other  from EAPINTAKE a
WHERE age  < 19
UNION ALL
select   0000, COUNT(*) ,00000,00000,00000,00000     from EAPINTAKE a
WHERE age between 19 AND 25
UNION ALL
select   0000, 00000,COUNT(*) ,00000,00000,00000     from EAPINTAKE a
WHERE age between 26 AND 35
UNION ALL
select   0000, 00000,00000,count(*),00000,00000     from EAPINTAKE a
WHERE age between 36 AND 45
UNION ALL
select   0000, 00000,00000,00000,count(*),00000     from EAPINTAKE a
WHERE age between 46 AND 60
UNION ALL
select 0000, 00000,00000,00000,00000,count(*)     from EAPINTAKE a
WHERE  age >60
GO
0
 
LVL 20

Accepted Solution

by:
jitganguly earned 200 total points
Comment Utility
Then try this

sSQL = "EAP1 '" & cdate(startdate) & "', '" & cdate(StopDate) & "','" & PID  & "'"
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
Hey guys, it's working

I changes the SP varchar like you said to int and took the qoutes off of PID
0
 
LVL 2

Author Comment

by:jaze95
Comment Utility
Thanks alot for your help!!!!!!!!!!!


~J
0
 
LVL 20

Expert Comment

by:jitganguly
Comment Utility
Should have been equal split
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
>> Should have been equal split

Nah...I should have gotten more <wink>
0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…

744 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

18 Experts available now in Live!

Get 1:1 Help Now