|
folgende fehlermeldung kann ich leider nicht
bearbeitet (stehe noch am anfang
meiner programmierkunst -
vielleicht schaut ja einr von euch ??
gruss
paul
ADODB.Recordset- Fehler '800a0bb9'
Die Argumente sind vom falschen Typ, liegen au�erhalb
des G�ltigkeitsbereiches oder sind miteinander unvereinbar.
/asp/lp1.asp, line
90
source :
<html>
<head>
<title>LP</title>
<meta
http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<style>
A
{text-decoration:none; font-family : Arial, Helvetica, sans-serif; font-size:
12; color : #3366CC; }
A:hover {text-decoration:underline;
color:red}
.A1 {text-decoration:none; font-family : Arial,
Helvetica, sans-serif; font-size: 20; color : #3366CC;
}
.Head1 {text-decoration:none; font-family : Arial,
Helvetica, sans-serif; font-size: 24; color : #3366CC;
}
</style>
<script
language="_javascript_">
function
sort(nr)
{
if (nr ==
1)
{
document.suche.sorti.value="LPTitel";
};
if
(nr ==
2)
{
document.suche.sorti.value="LPInterpret";
};
if
(nr == 3)
{
document.suche.sorti.value="LPPreis";
};
if
(nr == 4)
{
document.suche.sorti.value="Bestand";
};
};
</script>
</head>
<body>
<table width="99%" border="0" cellspacing="0"
cellpadding="2">
<tr>
<td
width="50%" align="center" class="Head1">-= Langspielplatten
=-</td>
</tr>
</table>
<hr><br>
<form name="suche"
action="" method="POST">
<input type="Hidden" name="sorti"
value="Titel">
<table width="99%" border="1" bordercolorlight="#000000"
bordercolordark="#000000">
<tr>
<td>
Suchwort:
<input type="Text" name="swort" <% if sart > 0 then %>value="<%=
swort %>" <% end if
%>>
</td>
<td>
Kategorie:
<select name="sart" size="1">
<option
value="1" <% if sart = 1 then %>SELECTED<% end if
%>>LPTitel</option>
<option value="2"
<% if sart = 2 then %>SELECTED<% end if
%>>LPInterpret</option>
<option
value="3" <% if sart = 3 then %>SELECTED<% end if
%>>LPPreis</option>
<option value="4"
<% if sart = 4 then %>SELECTED<% end if
%>>Bestand</option>
</select>
</td>
<td
align="center">
<input type="Submit"
value="Suchen">
</td>
<td
align="center">
<input type="button" value="alle
Daten anzeigen"
>
</td>
</tr>
</table>
</form>
<br><hr>
<%
DIM sql, rs, conn
select case sart
case 1 SQL = "SELECT * FROM
artikel WHERE LPTitel like '%"& swort & "%' "
case
2 SQL = "SELECT * FROM artikel WHERE LPInterpret like '%"& swort &
"%' "
case 3 SQL = "SELECT * FROM artikel WHERE LPPreis
like '%"& swort & "%' "
case 4 SQL = "SELECT * FROM
artikel WHERE Bestand like '%"& swort & "%' "
end select
select case sorti
case "LPTitel"
SQL = SQL & " ORDER BY LPTitel"
case "LPInterpret" SQL = SQL
& " ORDER BY LPInterpret"
case "LPPreis" SQL = SQL & "
ORDER BY LPPreis"
case "Bestand" SQL = SQL & " ORDER BY
Bestand"
end select
Set conn =
Server.CreateObject("ADODB.Connection")
Set rs =
Server.CreateObject("ADODB.Recordset")
conn.open
"movenet","",""
-----------------------------------------------------------------------------------------!!!!!!!!!!!!!!!!!!!!!!!
rs.Open sql, conn, 3, 3
if rs.recordcount > 0
then
%>
<table width="99%" border="1" bordercolorlight="#000000"
bordercolordark="#000000" bgcolor="#3366CC">
<tr
bgcolor="silver">
<td
align="center">
<font face="Arial, Helvetica,
sans-serif">
<a
href=""
class="A1">LPPreis</a>
</font>
</td>
<td
align="center">
<font size="2" face="Arial,
Helvetica, sans-serif">
<a
href=""
class="A1">LPTitel</a>
</font>
</td>
<td
align="center">
<font size="2" face="Arial,
Helvetica, sans-serif">
<a
href=""
class="A1">LPInterpret</a>
</font>
</td>
<td align="center">
<font face="Arial, Helvetica, sans-serif" font
color="#000066">
<a
href=""
class="A1">Bestand</a>
</font>
</td>
<td
align="center">
<font face="Arial, Helvetica,
sans-serif" font
color="#000066">
Details
</font>
</td>
</tr>
<%
while not rs.eof
%>
<tr>
<td bgcolor="#B6CCE4"
align="center">
<font face="Arial, Helvetica,
sans-serif">
<%
select
case rs("ToTrName")
case "CD"
response.write("<img src='' width='34' height='34' alt='CD'
border='0'>")
case "MC"
response.write("<img src='' width='33' height='23' alt='MC'
border='0'>")
case else
response.write(rs("ToTrName"))
end
select
%>
</font>
</td>
<td
bgcolor="#B6CCE4">
<font size="2" face="Arial,
Helvetica, sans-serif">
<%= rs("LPTitel")
%>
</font>
</td>
<td
bgcolor="#B6CCE4">
<font size="2" face="Arial,
Helvetica, sans-serif">
<%= rs("LPInterpret")
%>
</font>
</td>
<td bgcolor="#B6CCE4">
<font face="Arial, Helvetica,
sans-serif">
<%= rs("Bestand")
%>
</font>
</td>
</tr>
<%
rs.movenext
wend
%>
</table>
<%
else
%>
<div
align="center"><font face="Arial,Helvetica,sans-serif" size="+2">Leider
stehen zur Zeit keine Daten zur
Verf�gung</font></div>
<%
end
if
rs.close
conn.close
set rs = nothing
set
conn =
nothing
%>
</body>
</html>
| 