Lidt ekstra til mit script

hvem kan gøre sådan at mit search.asp script skriver.. Der blev desværre ikke fundet noget.

?

her er scriptet..

<%@ LANGUAGE="VBSCRIPT" %>

<%
Dim strConnect

' husk at æmdre DIN_DATABASE.mdb til din databases navn!
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
'Input navnet i formen hedder searchword...
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

' Ændre DIN_TABEL til den tabel som du vil søge i
set firstSQL = objConn.Execute("SELECT * FROM info WHERE "&firstSQL1&" ORDER BY dato ASC;") %>


<% While Not firstSQL.EOF
'Herunder udskrives resultaterne
%>

<p align="center">&nbsp;
<br>

Title: <a href="<%= firstSQL("link") %>"><%= firstSQL("title") %></a> <br>
Date: <%= firstSQL("dato") %><br>
Type: <%= firstSQL("type") %><br><br>



<%
firstSQL.MoveNext
Wend
%>

<%
    objConn.Close
    Set resultat = Nothing
%>