Hi,
Need your help please.I am getting the following error:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/mhld/information/ASP/ASP Learning/First DNAs.asp, line 14
[u]
First Page code:</u>
<html>
<body>
<form action="http://nww.ncumbria.nhs.uk/mhld/information/ASP/ASP Learning/First DNAs.asp" method="post">
<p> Outpatient Report:</p>
First DNAS:
<input type="radio" name="OPR"
value="select main_spect, attnd_month, pcg, sum(op_first_dnas)as sum from pims.vw_op_first_dnas where attnd_month>'2005/06'group by main_spect, attnd_month, pcg" checked="checked"></input>
<br>
Follow up DNAS:
<input type="radio" name="OPR"
value="select main_spect, attnd_month, pcg, sum(op_follow_up_dnas)as sum from pims.vw_op_followup_dnas where attnd_month>'2005/06' group by main_spect, attnd_month, pcg"></input>
<br>
First Attendances:
<input type="radio" name="OPR"
value="select main_spect, attnd_month, pcg, sum(op_first_atts_seen)as sum from pims.vw_op_first_atts where attnd_month>'2005/06' group by main_spect, attnd_month, pcg"></input>
<br>
Follow up Attendances:
<input type="radio" name="OPR"
value="select main_spect, attnd_month, pcg, sum(op_followup_atts_seen)as sum from pims.vw_op_followup_atts where attnd_month>'2005/06' group by main_spect, attnd_month, pcg"></input>
<br><br>
<input type="submit" value="Submit"/>
<input type="Reset" value="Reset"/>
</form>
</body>
</html>
[u]Main Page Code:</u>
<HTML>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>ONE ASP DNAS/ATTENDACES - Ongoing </TITLE>
<BODY>
<%
Dim paraval
paraval = Request.Form("OPR")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "PIMSP_MHLD","REPORT","REPORT"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
sql= " '" & paraval & "' "
%>
<TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><CAPTION><B> DNAS / ATTENDACES - Ongoing</B></CAPTION>
<THEAD>
<TR>
<TH BGCOLOR=#3399B7 BORDERCOLOR=#000000 >MAIN_SPECT</TH>
<TH BGCOLOR=#3399B7 BORDERCOLOR=#000000 >ATTND_MONTH</TH>
<TH BGCOLOR=#3399B7 BORDERCOLOR=#000000 >PCG</TH>
<TH BGCOLOR=#3399B7 BORDERCOLOR=#000000 >SUM</TH>
</TR>
</THEAD>
<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BGCOLOR=#7BB1C6 BORDERCOLOR=#c0c0c0 ><B><%=(rs.Fields("MAIN_SPECT"))%><BR></B></TD>
<TD BGCOLOR=#7BB1C6 BORDERCOLOR=#c0c0c0 ><B><%=(rs.Fields("ATTND_MONTH"))%><BR></B></TD>
<TD BGCOLOR=#7BB1C6 BORDERCOLOR=#c0c0c0 ><B><%=(rs.Fields("PCG"))%><BR></B></TD>
<TD BGCOLOR=#7BB1C6 BORDERCOLOR=#c0c0c0 ><B><%=(rs.Fields("SUM"))%><BR></B></TD>
</TR>
<%
rs.MoveNext
loop
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>
Thanks in Advance.
Thamil
ADODB.Recordset error '800a0bb9'
