Fejl: invalid procedure call
Hvorfor får jeg den fejl på linie 53, der jeg eksekverer (set RS = conn.execute(strSQL)):<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Rabatten Månad</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="jourblomman.css" rel="stylesheet" type="text/css">
</head>
<%
set conn = server.CreateObject("ADODB.CONNECTION")
DSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("jourblomman.mdb")
conn.Open DSN
if request.form("select") then
strSQL = "SELECT * FROM rabatten WHERE DatePart('mm', birthday)="& request.form("select") &" ORDER by "& request.querystring("val")
response.write strSQL
else
strSQL = "SELECT * FROM rabatten ORDER by "& request.querystring("val")
end if
%>
<body>
<form action="rabatten_month.asp?val=name" name="manad" method="post">
<select name="select" onchange='document.manad.submit()'>
<option value="01">Januari</option>
<option value="02">Februari</option>
<option value="03">Mars</option>
<option value="04">April</option>
<option value="05">Maj</option>
<option value="06">Juni</option>
<option value="07">Juli</option>
<option value="08">Augusti</option>
<option value="09">September</option>
<option value="10">Oktober</option>
<option value="11">November</option>
<option value="12">December</option>
</select>
</form>
<br>
<table width="800" border="0" cellspacing="2" cellpadding="0">
<tr align="left" valign="top">
<td><a href="rabatten_month.asp?val=name">NAMN</a></td>
<td><a href="rabatten_month.asp?val=birthday">FÖDELSEDAG</a></td>
<td><a href="rabatten_month.asp?val=address">ADRESS</a></td>
<td><a href="rabatten_month.asp?val=zipcode">POST NR</a></td>
<td><a href="rabatten_month.asp?val=city">ORT</a></td>
<td><a href="rabatten_month.asp?val=email">E-POST</a></td>
<td><a href="rabatten_month.asp?val=id">ID</a></td>
<td> </td>
</tr>
<tr align="left" valign="top" bgcolor="#CCCCCC">
<td colspan="8"><img src="bilder/1x1space.gif" width="1" height="1"></td>
</tr>
<%
set RS = conn.execute(strSQL)
while not rs.EOF
%>
<tr align="left" valign="top">
<td><%=rs("name")%></td>
<td><%=rs("birthday")%></td>
<td><%=rs("address")%></td>
<td><%=rs("zipcode")%></td>
<td><%=rs("city")%></td>
<td><%=rs("email")%></td>
<td><%=rs("id")%></td>
<td align="right"><a href="taBort.asp?id=<%=rs("id")%>&base=rabatten&side=rabatten_month.asp">TA BORT</a></td>
</tr>
<tr align="left" valign="top" bgcolor="#CCCCCC">
<td colspan="8"><img src="bilder/1x1space.gif" width="1" height="1"></td>
</tr>
<%
rs.moveNext
Wend
Conn.Close
Set Conn = Nothing
'response.write strSQL
%>
</table>
<br>
</body>
</html>
