Fields fel???

Ja antar att det var en del som saknades här, eftersom detta bara skulle lista ut en adress ur databasen, helt utan att bry sig om vilken.

If Request.Form("knapp") = "Sök" Then
SQL = "SELECT * From Adresser"
End If
rs.Open SQL, fritid

...är inte så bra, för om Request.Form("knapp") inte är "Sök" så kommer rs.Open att försöka exekvera en tom SQL-sats.

Felet verkar dock bero på att du inte har någon kolumn i databasen som heter "Kundnamn".

Det är just det som är grejen. Jag har en kolumn som heter kundnamn därför förstår jag inte varför felet uppstår.
Vad ska jag använda istället för

If Request.Form("knapp") = "Sök" Then
SQL = .....
?

Har du fler vägar in i skriptet? Jag menar: kan skriptet köras utan att man trycker på knappen "knapp" med värdet "Sök"?

Nej, det körs bara om man trycker på "knapp". Hoppas ni eller ngn kan hitta en lösning eller ett annat alternativ för att kunna köra skriptet.

Varför har du då en if-sats, som kollar om man tryckt på rätt knapp?

Ta bort if-satsen, så ska du se att det funkar bättre.

Tack för hjälpen men vad ska jag skriva istället då? Får nu detta felmeddelande:
Programsats förväntas.
/fritidsok/fritid_sok_ok.asp, rad 14
=Request.form("frisok")

Den första sidan har följande kod:

<FORM METHOD = "POST" ACTION = "fritid_sok_ok.asp">
<TABLE BORDER = 1>
<TR>
<TD>Stad:
<TD><INPUT TYPE = "TEXT" NAME = "frisok">
<TD><INPUT TYPE = "SUBMIT" VALUE = "Sök">
</TR>

Som du ser så hänvisar den till en annan sida som ser ut som följer:

<%
Set fritid = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\fritidsok\FritidKund.mdb"%>

<%=Request.form("frisok")
SQL = "SELECT * From Adresser"
rs.Open SQL, fritid
%>

<H2>Sökresultat:</H2>
<TABLE BORDER = 1>
<TR>
<TD ALIGN = CENTER><B>Ort</B>
<TD ALIGN = CENTER><B>Namn</B>
</TR>
<%
Do While Not rs.EOF
%>
<TR>
<TD><A HREF = fritid_htl.asp?Kund=<%=rs("Kundnamn")%>><%=rs("Kundnamn")%></A>
<TD><%=rs("Ort")%><BR>
</TR>
<%
rs.MoveNext
Loop
%>

Hoppas ni ser ngn lösning.
Tack på förhand!

ändra
<%=Request.form("frisok")
SQL = "SELECT * From Adresser"
rs.Open SQL, fritid
%>

till

<%
SQL = "SELECT * From Adresser WHERE kundnamn LIKE '%" & Request.form("frisok") & "%' OR ort LIKE '%" & Request.form("frisok") & "%'"
rs.Open SQL, fritid
%>

Gjorde som du sa men fick då istället följande felmedelande:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10'

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 2 förväntades.

/fritidsok/fritid_sok_ok.asp, rad 16

Vad gör man för att lösa detta?
Tack på förhand!