Fejlmeddelse ved generering af Rapport
Hej AlleJeg har downloadet Ikonbanner fra www.dotnetindex.com.
Alt virker fint, undtagen når jeg skal generere en rapport inde i reports.asp
Der får jeg følgende fejlmeddelse:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/banner/ikonbanner/reports.asp, line 136
Hvad er der galt ??
reports.asp ser således ud:
<!--#include file="config.asp"-->
<!--#include file="checklogin.asp"-->
<html>
<head>
<title>I K O N B A N N E R M A N A G E R</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<center>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><img border="0" src="images/logo.gif"></td>
<td width="50%"></td>
</tr>
</table>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#B22929"><img border="0" src="images/spacer.gif" width="2" height="2"></td>
</tr>
</table>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#FFFFE8" height="20">
<a href="default.asp">Admin Home</a> |
<a href="addBanner.asp">Add Banner</a> |
<a href="reports.asp">Reports</a> |
<a href="settings.asp">Settings</a> |
<a href="logout.asp">Log Out</a></td>
</tr>
</table>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#B22929"><img border="0" src="images/spacer.gif" width="2" height="2"></td>
</tr>
</table>
</center>
<center>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<form method="POST" action="reports.asp">
<div align="center">
<center>
<table border="0" width="400" cellpadding="0">
<tr>
<td width="100%" bgcolor="#B22929"><b><font color="#FFFFFF"> Generate
Report :</font></b></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="400" cellspacing="1" cellpadding="0">
<tr>
<td width="143">Report Date :</td>
<td width="247"><select size="1" name="reportDate">
<option selected value="Today">Today</option>
<option value="Yesterday">Yesterday</option>
<option value="Last 7 Days">Last 7 Days</option>
<option value="Current Month">Current Month</option>
<option value="Last Month">Last Month</option>
</select></td>
</tr>
<tr>
<td width="143">Banner :</td>
<td width="247"> <select size="1" name="banner">
<option value="All Banners">All Banners</option>
<%
set cn = server.createobject("adodb.connection")
cn.open strCon
set rs = cn.execute("select bannerID, bannerName from banners order by bannerID desc")
do while not rs.eof
response.write "<option value="""& rs("bannerID") &""">"& rs("bannerName") &"</option>"
rs.movenext
loop
rs.close
set rs = nothing
cn.close
set cn = nothing
%>
</select></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="Generate" name="func"></p>
</form>
<center>
<table border="0" width="400" cellspacing="1" cellpadding="0">
<tr>
<td width="100%">
<%
if request.form("func") = "Generate" then
reportDate = request.form("reportDate")
banner = request.form("banner")
sql = "select logs.bannerID, logs.logDate, banners.bannerName, banners.imp, banners.clicks from logs "
sql = sql & " INNER JOIN banners on banners.bannerID = logs.bannerID "
sql = sql & " where "
select case reportDate
case "Today"
sql = sql & "datediff(""d"", logDate, Date()) = 0 "
case "Yesterday"
sql = sql & "datediff(""d"", logDate, Date()) = 1 "
case "Last 7 Days"
sql = sql & "datediff(""d"", logDate, Date()) <= 7 "
case "Current Month"
sql = sql & "Month(logDate) = month(Date()) "
case "Last Month"
sql = sql & "datediff(""m"", logDate, Date()) = 1 "
end select
if NOT banner = "All Banners" then
sql = sql & " AND logs.bannerID = " & banner
end if
sql = sql & " order by logDate desc"
set cn = server.createobject("adodb.connection")
cn.open strCon
set rs = cn.execute(sql)
do while not rs.eof
response.write "<b><a href=""edit.asp?bannerID=" & rs("bannerID") & """>" & rs("bannerName") & "</a></b><br>"
response.write "Date : " & formatDateTime(rs("logDate"), 1) & "<br>"
response.write "Imp : " & rs("imp") & "<br>"
response.write "Clicks : " & rs("clicks") & "<br><br>"
rs.movenext
loop
end if
%></td></tr></table></center></div>
<p> </td>
</tr>
</table>
</center>
<center>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#B22929"><img border="0" src="images/spacer.gif" width="2" height="2"></td>
</tr>
</table>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#FFFFE8" height="20"> <a href="http://www.dotnetindex.com"><b>Powered
By Ikon Banner</b></a></td>
</tr>
</table>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#B22929"><img border="0" src="images/spacer.gif" width="2" height="2"></td>
</tr>
</table>
</center></body>
</html>
