Hey tweakers,
Ik krijg de volgende error bij het maken van m`n pagina
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/run2day/admin/CMS_bekijk_orders.asp, line 131
Dit komt uit de volgende code;
bovenaan de pagina heb ik staan;
<!-- #include virtual="adovbs.inc" -->
Dit bestand staat ook in dezelfde folder.
Ik heb al gezocht op google & got.. En heb enkele dingen geprobeerd, maar ik krijg het niet werken.
iemand een idee?
Ik krijg de volgende error bij het maken van m`n pagina
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/run2day/admin/CMS_bekijk_orders.asp, line 131
Dit komt uit de volgende code;
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
| 'database connectie maken
Dim strCon
Dim objCon
Dim accessDB
Dim aantalRecords
Dim aantalPaginas
Dim huidigePagina
Dim SQLOrdr
Dim objRec
Dim recordsGetoond
Dim I
Dim recordsperpag
'URL naar database, makkelijk te veranderen.
accessDB = server.mappath("../database/main_database.mdb")
strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCon = strCon & accessDB & ";"
aantalRecords = 10
' De pagina die getoond moet worden.
if Request.QueryString("pagina") = "" Then
huidigePagina = 1
Else
huidigePagina = CInt(Request.QueryString("pagina"))
End if
Set objCon = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.Recordset")
objCon.Open strCon
' De SQL query om de gegevens uit de database te halen, deze kan verschillen
SQLOrdr = "SELECT * FROM winkelwagen;"
objRec.Open SQLOrdr, strCon', adOpenStatic, adLockReadOnly, adCmdText
'Controle om te kijken of de database niet leeg is
'Zet het aantal records in Pagesize
objRec.PageSize = aantalRecords
' Zet het aantal records in cachesize
objRec.CacheSize = aantalRecords
' Tel het aantal pagina's
aantalPaginas = objRec.PageCount
' zorg ervoor dat de huidige pagina niet buiten het aantal pagina's valt.
if huidigePagina > aantalPaginas Then
huidigePagina = aantalPaginas
End if
if huidigePagina < 1 Then
huidigePagina = 1
End if
' Wanneer er geen records zijn geef een melding.
if aantalPaginas = 0 Then
Response.Redirect("artikelen_index.asp?msg=n") |
bovenaan de pagina heb ik staan;
<!-- #include virtual="adovbs.inc" -->
Dit bestand staat ook in dezelfde folder.
Ik heb al gezocht op google & got.. En heb enkele dingen geprobeerd, maar ik krijg het niet werken.
iemand een idee?