Ik heb een Database met de volgende onderdelen: Naam, adres, telefoonnummer en dan nog een flink aantal check boxen. Zoals N2 AAA ,N2 AAB, N2 AAC en N2 AAD. Nu is het de bedoeling dat ik met een ASP script bijvoorbeeld N2 AAB intoets en dat het script kijkt of de checkbox is aangevinkt, dit doe ik met behulp van Where ... is True. Hier onder zie je mijn script. Please help me.
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="/adovbs.inc"-->
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=c:\inetpub\wwwroot\BPV.mdb"
objConn.Open
Dim strNaam
strNaam = Trim(Request("Naam"))
Dim strSQL
strSQL = "SELECT naam, adres, plaats, telnr, pleider FROM BPV WHERE LIKE ' " & _
strNaam & "%' = True ORDER BY naam"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
If objRS.EOF then
Response.Write "Voor deze richting zijn er geen bedrijven aangemeld"
Else
Response.Write "<B>Deze bedrijven komen voor de keuze in aanmerking " & _
UCase(strNaam) & ":</B><BR>"
Do While Not objRS.EOF
Response.Write objRS("naam") & _
FormatCurrency(objRS("adres")) &_
FormatCurrency(objRS("plaats")) &_
FormatCurrency(objRS("telnr")) &_
FormatCurrency(objRS("pleider")) & "<BR>"
objRS.MoveNext
Loop
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="/adovbs.inc"-->
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=c:\inetpub\wwwroot\BPV.mdb"
objConn.Open
Dim strNaam
strNaam = Trim(Request("Naam"))
Dim strSQL
strSQL = "SELECT naam, adres, plaats, telnr, pleider FROM BPV WHERE LIKE ' " & _
strNaam & "%' = True ORDER BY naam"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
If objRS.EOF then
Response.Write "Voor deze richting zijn er geen bedrijven aangemeld"
Else
Response.Write "<B>Deze bedrijven komen voor de keuze in aanmerking " & _
UCase(strNaam) & ":</B><BR>"
Do While Not objRS.EOF
Response.Write objRS("naam") & _
FormatCurrency(objRS("adres")) &_
FormatCurrency(objRS("plaats")) &_
FormatCurrency(objRS("telnr")) &_
FormatCurrency(objRS("pleider")) & "<BR>"
objRS.MoveNext
Loop
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
Voor 90% juist zijn is nog niet zo goed als stilte.