hvorfor ud skriver alle nummer først.
scriptet findes næsten nederest
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
<style type="text/css">
<!--
..font { font-family: "Times New Roman", Times, serif; font-size: 10px;
font-style: normal; line-height: normal; font-weight: normal; font-variant:
normal; color: 452105}
-->
</style>
</head><body bgcolor="#f2d5b3">
<%
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect("fejl-soeg.htm")
Else
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT * FROM salg WHERE"
strSQL = strSQL & " (overskrift LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (beskrivelse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (katagori LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (pris LIKE '%" & strKeyword & "%')"
Dim MyString, LeftString
strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("databse.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<center><p>Søgeresultat</p></center>"
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Do While Not rs.EOF
Response.Write "<tr><td><b>" & rs("overskrift") & "</td></b>"
response.write "<td>" & "<img src='" & rs("billede") & "'>" & "</td>"
Response.Write "</tr>" & "<tr>"
Response.Write "<td>" & rs("katagori") & "</td></tr>"
Response.Write "<tr><td>" & rs("beskrivelse") & "</td></tr>"
Response.Write "<tr><td>" & rs("pris") & "</td></tr>"
MyString = rs("tlf")
LeftString = Left(MyString, 4)
response.write leftstring & "XXXXXX"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<b>"
Response.Write "<p>Der er ikke fundet noget på denne søgning</p></b>"
End If
myConn.Close
Set myConn = Nothing
%>