Ik ben bezig met een heel simpel formuliertje nu wil ik door de records lopen. Maar dit werkt niet zoals ik het wil. Als ik move previous doe dan krijg ik de volgende fout melding
De code die ik gebruik is staat hier onder. Ik heb hier al op tweakers gezocht en kon niks vinden msdn kon ik eveneens al weinig tot niks vinden.
Ik hoop dat jullie de oploosing hebben alvast bedankt !
code:
1
2
3
4
5
| ADODB.Recordset error '800a0c93' De bewerking is in deze context niet toegestaan. /opdracht19.asp, line 37 |
De code die ik gebruik is staat hier onder. Ik heb hier al op tweakers gezocht en kon niks vinden msdn kon ik eveneens al weinig tot niks vinden.
Ik hoop dat jullie de oploosing hebben alvast bedankt !
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
| <% option explicit %>
<HtmL>
<body>
<h1>ProductenBeheer</h1>
<table>
<form action="opdracht19.asp">
<%
Dim con
Dim rstproduct
Dim record
record= Request.querystring("record")
if record ="" then
record =1
End if
Set con= server.Createobject("ADODB.connection")
con.open "Data source=c:\groothandel.mdb; provider=microsoft.jet.oledb.4.0;"
Set rstProduct= server.Createobject("ADODB.recordset")
rstproduct.open "Select * from product where productcode >="& record, con, 2, 2
rstproduct.movefirst
IF rstproduct.bof = true Then
response.write "((vorige"
Else
rstproduct.moveprevious
Response.write "<a href=opdracht19.asp?record=" & rstproduct("Productcode") & ">((vorige</a> "
End if
IF rstproduct.Eof Then
response.write "volgende))<br>"
Else
rstproduct.Movenext
Response.write " <a href=opdracht19.asp?record=" & rstproduct("Productcode") & ">volgende))</a>"
'rstproduct.MovePrevious
End if
%> |
[ Voor 30% gewijzigd door Wokker op 20-05-2004 14:46 ]
Het oneindige X 0