fejl: Sub or Function not defined

Det kommer an på så meget... Kan man komme til se hele din kode?

den er lang :)
Jeg tror hellere jeg vil give dig et udpluk - det er en søgeside:

...
<%
Dim objRec, antal
antal = 0
Set Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("mappearkiv.mdb")
objRec.Open "SELECT * FROM faner WHERE nummer like '%" & hvilket & "%' OR navn like '%" & hvilket & "%'",conn,1,3
antal = objRec.recordcount
%>
<table width="100%"border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" id="AutoNumber1">
<% if antal > 0 then
    Response.write "<tr><td><h2>Der var " & antal & " fundne emner, der matchede '"&hvilket&"'</h2></b><p></td></tr>"
    While Not objRec.EOF
    Response.write "<tr>"
    Response.write "<td><h3>mappenr.: " & markString(objRec("nummer"),hvilket) & "</h3></td>"
    Response.write "<td><h3>Mappenavn: " & markString(objRec("navn"),hvilket) & "</h3></td>"
    Response.write "<td><h3>Asvarlig: " & markString(objRec("Ansvarlig"),hvilket) & "</h3></td>"
    Response.write "</tr>"
    Response.write "<tr>"
    Response.write "<td><h3>Selskab: " & markString(objRec("selskab"),hvilket) & "</h3></td>"
    Response.write "<td><h3>Oprettet: " & markString(objRec("opretdato"),hvilket) & "</h3></td>"
    if ObjRec("arkivdato") = "" then
    Response.write "<td><h3>Arkiveret: ikke arkiveret</h3></td>"
    else   
    Response.write "<td><h3>Arkiveret: " & markString(objRec("arkivdato"),hvilket) & "</td>"
    end if
    Response.write "</tr>"

    Response.write "<tr><td colspan='3'><h3>indhold af mapen:</h3></td></tr>"
if ObjRec("descr_1") like "'%" &hvilket& "%'" then
    Response.write "<tr><td colspan='3'><h3>" & markString(objRec("title_1"),hvilket) & "</h3><h4>" & markString(objRec("descr_1"),hvilket) & "</h4>"
end if
    Response.write "</tr>"
    objRec.MoveNext
Wend
objRec.Close
Set objRec = Nothing
Conn.Close
Set conn = Nothing
%>

...

Sådan kan du jo ikke skrive

if ObjRec("descr_1") like "'%" &hvilket& "%'" then
    Response.write "<tr><td colspan='3'><h3>" & markString(objRec("title_1"),hvilket) & "</h3><h4>" & markString(objRec("descr_1"),hvilket) & "</h4>"
end if

prøv det her i stedet:

if ObjRec("descr_1") = hvilket then
    Response.write "<tr><td colspan='3'><h3>" & markString(objRec("title_1"),hvilket) & "</h3><h4>" & markString(objRec("descr_1"),hvilket) & "</h4>"
end if

Jeg kan ikke bruge = for det er en description, og hvis søgeordet er i description, så skal man se hele indholdet

Så prøv med inStr.:

if InStr(1,ObjRec("descr_1"), hvilket, 1) > 0 then
    Response.write "<tr><td colspan='3'><h3>" & markString(objRec("title_1"),hvilket) & "</h3><h4>" & markString(objRec("descr_1"),hvilket) & "</h4>"
end if

COOL!
Thanx