Waarom geeft mijn script maar een resultaat terwijl er veel meer zijn ? kijk voor vb hier:
http://www.autorecycler.nl/db_pulldown.asp
voor vragen <font color=red>vragen doen we hier en niet via elders anders hoef je het hier ook niet te vragen</font>
THNX
http://www.autorecycler.nl/db_pulldown.asp
voor vragen <font color=red>vragen doen we hier en niet via elders anders hoef je het hier ook niet te vragen</font>
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
67
68
69
70
71
72
73
74
75
| <%
Dim objDC, objRS
' Create and establish data connection
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
'Use this line to use Access
'objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driveronderdeel=25;MaxBufferSize=8192;Threads=20;", "username", "password"
'Our SQL Server code - use above line to use sample on your server
Set Conn = Server.CreateObject("ADODB.connection")
objDC.Open "w00321988_onderdelen_sql","u00321988s","ye94RSa3"
' Create recordset and retrieve values using the open connection
Set objRS = Server.CreateObject("ADODB.Recordset")
' Opening record set with a forward-only cursor (the 0) and in read-only mode (the 1)
' If a request for a specific onderdeel comes in, then do it o/w just show pulldown
' request record for requested onderdeel
objRS.Open "SELECT * FROM onderdelen WHERE onderdeel = '" & Request.QueryString("onderdeel") & "'", objDC, 0, 1
' Show selected record
If Not objRS.EOF Then
objRS.MoveFirst
%>
<table border="2">
<tr>
<td><strong>onderdeel Number</strong></td>
<td><strong>First Name</strong></td>
<td><strong>Last Name</strong></td>
<td><strong>Month's Sales</strong></td>
</tr>
<%= objRS.Fields("onderdeel") %>
<%= objRS.Fields("merk") %>
<%= objRS.Fields("type") %>
<%= objRS.Fields("bouwjaar") %>
<%
End If
objRS.Close
objRS.Open "SELECT DISTINCT onderdeel FROM onderdelen ORDER BY onderdeel", objDC, 0, 1
' Loop through recordset and display results
If Not objRS.EOF Then
objRS.MoveFirst
' the form below calls this file only this time with an onderdeel in the QueryString
%>
<form action="db_pulldown.asp" method="get">
<select name="onderdeel">
<option></option>
<%
' Continue until we get to the end of the recordset.
Do While Not objRS.EOF
' For each record we create a option tag and set it's value to the employee onderdeel
' The text we set to the employees first name combined with a space and then their last name
%>
<option value="<%= objRS.Fields("onderdeel") %>"><%= objRS.Fields("onderdeel")%></option>
<%
' Get next record
objRS.MoveNext
Loop
%>
</select>
<input type="submit" value="Submit" />
</form>
<%
End If
' Close Data Access Objects and free DB variables
objRS.Close
Set objRS = Nothing
objDC.Close
Set objDC = Nothing
%> |
THNX