HJÆLP - stadig fejl
hvad pokker er der galt her.jeg får denne fejlmeddellelse:
---
ADODB.Recordset error \'800a0bb9\'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/datateam/forhandler/produktdatabase/locate.asp, line 122
---
her er HELE den lange kode :-)
----
<%@ LANGUAGE=\"VBSCRIPT\" %>
<%Response.Expires = 0%>
<% if Request.Cookies(\"datateam\") = \"\" then Response.Redirect \"../main.asp\" %>
<html>
<head>
<meta NAME=\"GENERATOR\" Content=\"Microsoft FrontPage 4.0\">
<meta HTTP-EQUIV=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<title>Forhandler Katalog</title>
</head>
<body bgcolor=\"#FFFFFF\">
<script LANGUAGE=\"javascript\">
<!--
function setCookie(name, value, expire) {
document.cookie = name + \"=\" + escape(value)
+ ((expire == null) ? \"\" : (\"; expires=\" + expire.toGMTString()))
}
function getCookie(Name) {
var search = Name + \"=\"
if (document.cookie.length > 0) { // if there are any cookies
offset = document.cookie.indexOf(search)
if (offset != -1) { // if cookie exists
offset += search.length
// set index of beginning of value
end = document.cookie.indexOf(\";\", offset)
// set index of end of cookie value
if (end == -1)
end = document.cookie.length
return unescape(document.cookie.substring(offset, end))
}
}
}
function register(name) {
var today = new Date()
var expires = new Date()
expires.setTime(today.getTime() + 1000*60*60*24*365)
setCookie(\"datateam\", name, expires)
}
var today = new Date()
var yourname = getCookie(\"datateam\")
if (yourname == null) {
//register(today.getTime())
alert(\'locate\')
}
function se(nummer){
location.href=\"se.asp?varenummer=\"+nummer;
}
//-->
</script>
<%
Public dbTeam
Public rsTeam
Dim strSQL
\' Open a connection to Biblio
Set dbTeam = Server.CreateObject(\"ADODB.Connection\")
dbTeam.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"datateam.mdb\")
\' Build SQL statement
strSQL = \"SELECT varegruppe, varegruppenr, varenummer, varetekst, apris, system FROM varer \"
\'Her SKAL grupperes på VAREGRUPPE
strSQL = strSQL & \"WHERE varegruppenr = \"& Request.QueryString(\"varegr\")
strSQL = strSQL & \" order by varetekst\"
\'End If
\' Run the query
Set rsTeam = Server.CreateObject(\"ADODB.Recordset\")
rsTeam.Open strSQL, dbTeam, 3
%>
<!-- Build the results table -->
<%
If rsTeam.BOF and rsTeam.EOF Then%>
<h2 align=\"center\">Sorry, no results! Please try again!</h2>
<%Else
\' Populate the cursor
rsTeam.MoveLast
rsTeam.MoveFirst
End If
If rsTeam.RecordCount > 200 Then%>
<%Else%>
<h2 align=\"center\"><font face=\"Verdana\" size=\"3\">Forhandler Katalog</font></h2>
<div align=\"center\"><center>
<%
Public dbSystem
Public rsSystem
Dim systemSQL
\' Open a connection to Biblio
Set dbTeam = Server.CreateObject(\"ADODB.Connection\")
dbTeam.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"datateam.mdb\")
\' Build SQL statement
systemSQL = \"SELECT overskrift, linie1, linie2, linie3, linie4, linie5, linie6, linie7, linie8 from systemer \"
\'Her SKAL grupperes på system
systemSQL = systemSQL & \"WHERE system = \"& rsTeam(\"system\")
\' Run the query
Set rsSystem = Server.CreateObject(\"ADODB.Recordset\")
rsSystem.Open systemSQL, dbSystem, 3
If not rsSystem.BOF and not rsSystem.EOF Then
Response.Write(\"<table BORDER=0 cellspacing=0>\")
Response.Write(\"<tr><td><strong><font face=Verdana size=2>\")
%>
<%=rsSystem(\"overskrift\")%>
<%
Response.Write(\"</font></strong></td></tr>\")
Response.Write(\"<tr><td><font face=Verdana size=2>\")
%>
<%=rsSystem(\"linie1\")%>
<%
Response.Write(\"</font></td></tr>\")
Response.Write(\"<tr><td><font face=Verdana size=2>\")
%>
<%=rsSystem(\"linie2\")%>
<%
Response.Write(\"</font></td></tr>\")
Response.Write(\"<tr><td><font face=Verdana size=2>\")
%>
<%=rsSystem(\"linie3\")%>
<%
Response.Write(\"</font></td></tr>\")
Response.Write(\"<tr><td><font face=Verdana size=2>\")
%>
<%=rsSystem(\"linie4\")%>
<%
Response.Write(\"</font></td></tr>\")
Response.Write(\"<tr><td><font face=Verdana size=2>\")
%>
<%=rsSystem(\"linie5\")%>
<%
Response.Write(\"</font></td></tr>\")
Response.Write(\"<tr><td><font face=Verdana size=2>\")
%>
<%=rsSystem(\"linie6\")%>
<%
Response.Write(\"</font></td></tr>\")
Response.Write(\"<tr><td><font face=Verdana size=2>\")
%>
<%=rsSystem(\"linie7\")%>
<%
Response.Write(\"</font></td></tr>\")
Response.Write(\"<tr><td><font face=Verdana size=2>\")
%>
<%=rsSystem(\"linie8\")%>
<%
Response.Write(\"</font></td></tr>\")
Response.Write(\"</table></center>\")
Response.Write(\"<br><br>\")
End If
\' Close database
rsSystem.Close
dbSystem.Close
Set rsSystem = Nothing
Set dbSystem = Nothing
%>
<%If Not rsTeam.BOF Then%>
<table BORDER=\"1\" cellspacing=\"0\" width=\"90%\">
<tr>
<th><font face=\"Verdana\" size=\"2\">Varenr</font></th>
<th><font face=\"Verdana\" size=\"2\">Varetekst</font></th>
<th><font face=\"Verdana\" size=\"2\">Pris</font></th>
<th><font face=\"Verdana\" size=\"2\">Antal</font></th>
<th><font face=\"Verdana\" size=\"2\">Bestil</font></th>
</tr>
<%
Do While Not rsTeam.EOF
%>
<%Response.Write(\"<form action=basket.asp method=post name=resultat>\")%>
<tr>
<td nowrap><input type=\"hidden\" name=\"varenummer\" value=\"<%=rsTeam(\"varenummer\")%>\"><p align=\"center\"><font face=\"Verdana\" size=\"2\"><a HREF=\"java script:se(\'<%=Server.URLEncode(rsTeam(\"varenummer\"))%>\')\"><%=rsTeam(\"varenummer\")%></a></font></td>
<td><input type=\"hidden\" name=\"varetxt\" value=\"<%=rsTeam(\"varetekst\")%>\"><p align=\"left\"><font face=\"Verdana\" size=\"2\"><%=rsTeam(\"varetekst\")%></font> </td>
<td><input type=\"hidden\" name=\"prisen\" value=\"<%=rsTeam(\"apris\")%>\"><p align=\"right\"><font face=\"Verdana\" size=\"2\"><%=rsTeam(\"apris\")%></font> </td>
<td><input type=\"hidden\" name=\"varegruppe\" value=\"<%=rsTeam(\"varegruppe\")%>\"><input type=\"hidden\" name=\"varegruppenr\" value=\"<%=rsTeam(\"varegruppenr\")%>\"><p align=\"center\"><input TYPE=\"text\" SIZE=\"2\" NAME=\"antal\" value=\"1\"> </td>
<td valign=\"top\" align=\"center\" nowrap><input type=\"image\" src=\"../../images/bestil.gif\" name=\"Bestil\" value=\"Bestil\" border=\"0\" WIDTH=\"51\" HEIGHT=\"15\"></td>
</tr>
<%Response.Write(\"</form>\")%>
<%
rsTeam.MoveNext
Loop
%>
</table>
</center></div><%End If%>
<%End If%>
<%
\' Close database
rsTeam.Close
dbTeam.Close
Set rsTeam = Nothing
Set dbTeam = Nothing
%>
</body>
</html>
---------------
for at få de mange dejlige poin SKAL DET BARE FUNGERE
