den virker nu ikke af den grund:) men det er nu også ligemeget.. jeg ændre mit spørgsmål og afsætter gerne flere point hvis i da mener det bliver nødvendigt.
Jeg skal bruge et script der søger i rækken "titel" under joke i databasen.
hvis scriptet ikke finder noget skal den skrive "Der Blev Desværre Ikke Fundet Noget" jeg har lavet følgende script...
<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim strConnect
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("database.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
%>
<%
Set resultat = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
%>
<%
Dim strAryWords
Dim strValue
Dim firstSQL1
strValue = Request("searchword")
strAryWords = Split(strValue, " ")
Dim intCol
For intCol = 0 to UBound(strAryWords)
'Her søges der i Title
firstSQL1 = firstSQL1 & " (Title LIKE '%" & strAryWords(intCol) & "%')"
if intCol < UBound(strAryWords) then
firstSQL1 = firstSQL1 + " OR "
end if
Next
set firstSQL = objConn.Execute("SELECT * FROM joke WHERE "&firstSQL1&" ORDER BY dato ASC;") %>
<% While Not firstSQL.EOF
'Herunder udskrives resultaterne
%>
<p align="center"> <a href="
http://www.mitdomæne.dk" class="url">
Joke Fra mitdomæne.dk </a> <a href="
http://www.mitdomæne.dk/" class="url"></a>
<br>
Title: <a href="<%= firstSQL("url") %>"><%= firstSQL("title") %></a> <br>
Date: <%= firstSQL("dato") %><br>
Views: <%= firstSQL("Views") %><br><br>
<%
firstSQL.MoveNext
Wend
%>
<%
objConn.Close
Set resultat = Nothing
%>
men der er også fejl i den tror jeg... Hvis i mener scriptet er dårligt må i meget gerne lave det helt om:)