Søgning i Access database med ASP

<%
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
Set rs = Conn.Execute(\"select * from tabel where firmanavn like %\'\" & Request.form(\"firmanavn\") & \"\'% OR Telefon like %\'\" & Request.form(\"telefon\") & \"\'&\")
Do until rs.eof

Response.Write rs(\"firmanavn\") & \"<br>\"

rs.movenext
loop
rs.close
set rs = Nothing
conn.close
set conn =nothing
%>

Gem som search.asp

  <%
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
Set rs = Conn.Execute(\"select * from tabel where firmanavn like \'%\" & Request.form(\"firmanavn\") & \"%\' OR Telefon like \'%\" & Request.form(\"telefon\") & \"%\'&\")
Do until rs.eof

Response.Write rs(\"firmanavn\") & \"<br>\"

rs.movenext
loop
rs.close
set rs = Nothing
conn.close
set conn =nothing
%>

search.asp

<%
if request.form(\"Firmanavn\") = \"\" AND request.form(\"telefon\") <> \"\" then
SQL = \"select from dintabel where telefon like \'%\" & request.form(\"telefon\") & \"%\'\"
elseif request.form(\"Firmanavn\") <> \"\" AND request.form(\"telefon\") = \"\" then
SQL = \"select from dintabel where firmanavn like \'%\" & request.form(\"firmanavn\") & \"%\'\"
else
SQL = \"select from dintabel where firmanavn like \'%\" & request.form(\"firmanavn\") & \"%\' OR telefon like \'%\" & request.form(\"telefon\") & \"%\'\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
conn.execute(SQL)

if rs.eof then %>
Intet resultat
<%
else
do until rs.eof %>
<%=rs(\"telefon\") %><BR>
<%=rs(\"firmanavn\") %><BR><BR>
<% rs.movenext
loop
end if
set rs = nothing
conn.close
set conn = nothing %>

Der mangler sørme en end if i min :-)

<%
if request.form(\"Firmanavn\") = \"\" AND request.form(\"telefon\") <> \"\" then
SQL = \"select from dintabel where telefon like \'%\" & request.form(\"telefon\") & \"%\'\"
elseif request.form(\"Firmanavn\") <> \"\" AND request.form(\"telefon\") = \"\" then
SQL = \"select from dintabel where firmanavn like \'%\" & request.form(\"firmanavn\") & \"%\'\"
else
SQL = \"select from dintabel where firmanavn like \'%\" & request.form(\"firmanavn\") & \"%\' OR telefon like \'%\" & request.form(\"telefon\") & \"%\'\"
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
conn.execute(SQL)

if rs.eof then %>
Intet resultat
<%
else
do until rs.eof %>
<%=rs(\"telefon\") %><BR>
<%=rs(\"firmanavn\") %><BR><BR>
<% rs.movenext
loop
end if
set rs = nothing
conn.close
set conn = nothing %>

Netsrac>>>

Jeg får følgende fejl:

Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access-driver] SELECT-sætningen indeholder et reserveret ord eller argument, der er stavet forkert eller mangler, eller tegnsætningen er ikke korrekt.

/rnn/search.asp, linje 23

Har du ændret navnet dintabel til navnet på din tabel og navnet database.mdb til navnet på din database ?

Og hedder kollonnerne i tabellen firmanavn og telefon ?

har har nogle gode søge funktioner, se på www.zequenze.dk/fbn/drinks/searchform.asp, hvis det var noget så skriv på : mark.mikkelsen@mail.dk eller icq 92064248

Netsrac>>>

Jeg har lige kigget efter igen...
Og alt som det skal være!!

Doooh, dumme slag til mig, har fundet fejlen, der mangler en * :

<%
if request.form(\"Firmanavn\") = \"\" AND request.form(\"telefon\") <> \"\" then
SQL = \"select * from dintabel where telefon like \'%\" & request.form(\"telefon\") & \"%\'\"
elseif request.form(\"Firmanavn\") <> \"\" AND request.form(\"telefon\") = \"\" then
SQL = \"select * from dintabel where firmanavn like \'%\" & request.form(\"firmanavn\") & \"%\'\"
else
SQL = \"select * from dintabel where firmanavn like \'%\" & request.form(\"firmanavn\") & \"%\' OR telefon like \'%\" & request.form(\"telefon\") & \"%\'\"
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
conn.execute(SQL)

if rs.eof then %>
Intet resultat
<%
else
do until rs.eof %>
<%=rs(\"telefon\") %><BR>
<%=rs(\"firmanavn\") %><BR><BR>
<% rs.movenext
loop
end if
set rs = nothing
conn.close
set conn = nothing %>

Netsrac>>>

okay, den fandt jeg også selv... *s*
men nu kommer følgende fejl!!


Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01a8\'

Et objekt er obligatorisk: \'rs\'

/rnn/search.asp, linje 22

<%
if request.form(\"Firmanavn\") = \"\" AND request.form(\"telefon\") <> \"\" then
SQL = \"select * from dintabel where telefon like \'%\" & request.form(\"telefon\") & \"%\'\"
elseif request.form(\"Firmanavn\") <> \"\" AND request.form(\"telefon\") = \"\" then
SQL = \"select * from dintabel where firmanavn like \'%\" & request.form(\"firmanavn\") & \"%\'\"
else
SQL = \"select * from dintabel where firmanavn like \'%\" & request.form(\"firmanavn\") & \"%\' OR telefon like \'%\" & request.form(\"telefon\") & \"%\'\"
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
Set rs = conn.execute(SQL)

if rs.eof then %>
Intet resultat
<%
else
do until rs.eof %>
<%=rs(\"telefon\") %><BR>
<%=rs(\"firmanavn\") %><BR><BR>
<% rs.movenext
loop
end if
set rs = nothing
conn.close
set conn = nothing %>

Damn da osse, brug den bjarke-b postede, der mangler også en set rs =

Okay det virker....

Men, hvis jeg kun indtaster telefon nr i søge feltet kommer alle poster i databasen frem!

og det må der ikke... kun det firma som passer til telefon nummeret

<%
if request.form(\"Firmanavn\") = \"\" AND request.form(\"telefon\") <> \"\" then
SQL = \"select * from dintabel where telefon = \'\" & request.form(\"telefon\") & \"\'\"
elseif request.form(\"Firmanavn\") <> \"\" AND request.form(\"telefon\") = \"\" then
SQL = \"select * from dintabel where firmanavn = \'\" & request.form(\"firmanavn\") & \"\'\"
else
SQL = \"select * from dintabel where firmanavn = \'\" & request.form(\"firmanavn\") & \"\' OR telefon = \'\" & request.form(\"telefon\") & \"\'\"
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
Set rs = conn.execute(SQL)

if rs.eof then %>
Intet resultat
<%
else
do until rs.eof %>
<%=rs(\"telefon\") %><BR>
<%=rs(\"firmanavn\") %><BR><BR>
<% rs.movenext
loop
end if
set rs = nothing
conn.close
set conn = nothing %> 

Netsrac>>>

Okay... nu er vi ved at være der...
men nu når jeg kun udfylder telefon feltet,
kan den ikke finde noget!

Hm...dette burde egentligt kunne gøre det:

<%
SQL = \"select * from dintabel where firmanavn = \'\" & request.form(\"firmanavn\") & \"\' OR telefon = \'\" & request.form(\"telefon\") & \"\'\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
Set rs = conn.execute(SQL)

if rs.eof then %>
Intet resultat
<%
else
do until rs.eof %>
<%=rs(\"telefon\") %><BR>
<%=rs(\"firmanavn\") %><BR><BR>
<% rs.movenext
loop
end if
set rs = nothing
conn.close
set conn = nothing %> 

Netsrac>>>

nej, virker ikke! heller det nye du skrev!

Hm...det burde virke, er du sikker på at du angiver det nøjagtigt som det står i databasen ? Ellers kan du lige sende databasen til eksperten@cnh.dk så skal jeg kigge på det.

jeg har fået det til at virke...
Og du få dine point....

Og utrolig mange tak for hjælpen!

Så lidt :-)