/search.asp?=Boom

i dit form tag skal du skrive GET i stedet for POST

og så husk at bruge request.querystring i stedet for request.form til at hente variablerne fra formen.

<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
<link rel="stylesheet" href="../css/Default.css" type="text/css">
</head><body>

<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("index.htm")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Username, alder, fdag, Bynavn, fornavn, efternavn, msn, icq, email, Fritext FROM Users WHERE"
strSQL = strSQL & "(Username LIKE '" & strKeyword & "')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("boomsystem.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN, "username", ""

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<p></p>"

Do While Not rs.EOF
Response.Write "<table border=1 align='center' height='199' width='326'>"
Response.Write "<tr>"
Response.Write "<td width='89'>Nickname:</td>"
Response.Write "<td width='180'>" & rs("Username") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='89'>Navn:</td>"
Response.Write "<td width='180'>" & rs("Fornavn") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='89'>Efternavn:</td>"
Response.Write "<td width='180'>" & rs("Efternavn") & "</td>"
Response.Write "</tr>"
Response.Write "<tr> "
Response.Write "<td width='89'>F&oslash;dselsdag</td>"
Response.Write "<td width='180'>" & rs("Fdag") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='89'>By:</td>"
Response.Write "<td width='180'>" & rs("Bynavn") & "</td>"
Response.Write "</tr>"
Response.Write " <tr>"
Response.Write "<td width='89'>Alder:</td>"
Response.Write "<td width='80'>" & rs("Alder") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='89'>E-mail:</td>"
Response.Write "<td width='180'>" & rs("Email") & "</td>"
  Response.Write "</tr>"
Response.Write " <tr>"
Response.Write "<td width='89'>ICQ#</td>"
Response.Write " <td width='180'>" & rs("ICQ") & "</td>"
Response.Write "</tr>"
Response.Write "  <tr> "
Response.Write "<td width='89'>MSN:</td>"
Response.Write "<td width='180'>" & rs("MSN") & "</td>"
Response.Write "  </tr>"
Response.Write "  <tr> "
Response.Write "    <td width='89'>&nbsp;</td>"
Response.Write "    <td width='180'>&nbsp;</td>"
Response.Write " </tr>"
'her 
Response.Write "</table>"

Response.Write "<table width='77%' border='1' height='31' align='center'>"
Response.Write " <tr> "
Response.Write "  <td height='23'> "
Response.Write "<div align='center'>Fritext for: " & rs("username") & "</div>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>" & rs("Fritext") & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<p> </p>"
rs.MoveNext
Loop

Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

</body>
</html>


her er koden til den fil

strKeyword = Trim(Request.Form("Keyword"))

ændres til:

strKeyword = Trim(Request.querystring("Keyword"))

takker det virker sq