Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
salve galera tenho esse pequeno codigo para me gerar um tipo de relatorio mais quando eu seleciono da o seguinte erro
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/includes/r_pacote.asp, line 35
sendo que estou no meu limite de conhecimento , nao sei mais o que fazer!
segue o codigo abaixo:
****
<!--#include file="inclusao.asp"-->
<%
If Session("responsavel")="" Then Response.redirect("../default.asp")
operadora = request("operadora")
%>
<html>
<head>
<title></title>
<link href="../style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript"><!--
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}//-->
</script>
</head>
<body class="body">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" align="center">
<tr>
<td colspan="7" height="20">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#0074C1">
<tr height="30">
<td class="branca"><div align="center"><b>OPERADORA <%=operadora%></b></div></td>
</tr>
</table>
</td>
</tr><%
Set rs = Server.CreateObject("ADODB.recordset")
Call abre_conn
sql = "Select * from C_DESPESA_MENSAL where PROVEDOR = '"& OPERADORA &"'"
rs.cursorlocation = 3
linha 35 rs.open sql, conn
IF rs.recordcount <> 0 then%>
<tr bgcolor="#FFFFFF">
<td class="lista"><b>Mes/Ano Referente</b></td>
<td class="lista"><b>Serv. de Telecom</b></td>
<td class="lista"><b>Multas</b></td>
<td class="lista"><b>Instalações</b></td>
<td class="lista"><b>Alug. Equip.</b></td>
<td class="lista"><b>Descontos</b></td>
<td class="lista"><b>TOTAL Com Impostos</b></td>
</tr><%
While not rs.eof
Valor_Servico = cdbl(rs("Valor_Servico")) + cdbl(rs("Valor_Pro_Rata"))
%>
<tr bgcolor="#FFFFFF">
<td class="negrito"><b><%=rs("Mes_Ano")%></b></td>
<td class="lista"><%=FormatCurrency(Valor_Servico)%></td>
<td class="lista"><%=FormatCurrency(rs("Valor_Multa"))%></td>
<td class="lista"><%=FormatCurrency(rs("Valor_Instalacao"))%></td>
<td class="lista"><%=FormatCurrency(rs("Valor_Equipamento"))%></td>
<td class="lista"><%=FormatCurrency(rs("Valor_Desconto"))%></td>
<td class="negrito"><b><%=FormatCurrency(rs("Valor_Total"))%></b></td>
</tr><%
rs.movenext
Wend
%>
<tr bgcolor="#FFFFFF" height="30">
<td colspan="7"><div align="center">
<input name="Imprimir" type="button" class="botao" id="Imprimir" value="Imprimir" onClick="MM_callJS('print()')">
</div></td>
</tr>
</table><%
ELSE
%>
<tr bgcolor="#FFFFFF">
<td class="lista" colspan="7">Despesa não Lançada</td>
</tr>
</table><%
END IF
rs.close
Call fecha_conn
Set rs = nothing
%>
Carregando comentários...