Als redelijke ASP beginner heb ik een FAQ gemaakt met Access en ASP. Op de pagina zie je alle vragen als je erop klikt krijg het antwoord. Nu wil ik ook een search inbouwen maar daar gaat iets mis. Ik krijg een Type Mismatch foutmelding in regel 36.
Dit is mijn code. Kan iemand mij weer even op weg helpen?
15<form action=question.asp method=post>
16<input type=text name=zoekstring value=<%=request("zoekstring")%> >
17<input type=submit name=submit value=Zoeken>
18
19 </form>
20
21
22
23
24<!--#include file = connection.asp -->
25
26
27
28 <ol>
29 <%
30 Dim rsFAQ
31 Set rsFAQ = Server.CreateObject("ADODB.Recordset")
32 rsFAQ.Open "SELECT id, vraag FROM FAQ ORDER BY views DESC ", _
33 Application("strConn")
34
35 if trim(request("zoekstring")) <> "" then
36 rsFAQ = rsFAQ & " where (vraag like """ & trim(request("zoekstring")) & "%"") "
37 end if
38
39
40 Do While Not rsFAQ.EOF
41 Response.Write "<li><b><a href=""answer.asp?ID=" & rsFAQ("ID") & _
42 """>"
43 Response.Write rsFAQ("vraag") & "</a></b></li>"
44 rsFAQ.MoveNext
45 Loop
46 If rsFAQ.BOF Then
47 Response.Write "<p>Er is geen informatie beschikbaar!</p>" & vbNewLine
48 End If
49
50 rsFAQ.Close
51 %></ol>
52
53
54 </body>
55 </html>
Dit is mijn code. Kan iemand mij weer even op weg helpen?
15<form action=question.asp method=post>
16<input type=text name=zoekstring value=<%=request("zoekstring")%> >
17<input type=submit name=submit value=Zoeken>
18
19 </form>
20
21
22
23
24<!--#include file = connection.asp -->
25
26
27
28 <ol>
29 <%
30 Dim rsFAQ
31 Set rsFAQ = Server.CreateObject("ADODB.Recordset")
32 rsFAQ.Open "SELECT id, vraag FROM FAQ ORDER BY views DESC ", _
33 Application("strConn")
34
35 if trim(request("zoekstring")) <> "" then
36 rsFAQ = rsFAQ & " where (vraag like """ & trim(request("zoekstring")) & "%"") "
37 end if
38
39
40 Do While Not rsFAQ.EOF
41 Response.Write "<li><b><a href=""answer.asp?ID=" & rsFAQ("ID") & _
42 """>"
43 Response.Write rsFAQ("vraag") & "</a></b></li>"
44 rsFAQ.MoveNext
45 Loop
46 If rsFAQ.BOF Then
47 Response.Write "<p>Er is geen informatie beschikbaar!</p>" & vbNewLine
48 End If
49
50 rsFAQ.Close
51 %></ol>
52
53
54 </body>
55 </html>