se lige det her script
Hej EksperterNu har jeg siddet i 4 timer og stirret mig blindt på det her script:
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</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("search.htm")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, navn, aar, dressur, spring, koen, farve, stg, avlsforbund, uddannelsesgrad, dato FROM heste WHERE"
strSQL = strSQL & " (navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (aar LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (dressur LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (spring LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (koen LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (farve LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (stg LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (alvsforbund LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (uddannelsesgrad LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (dato LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
myConn.Open strDSN
' 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>Søgeresultat</p>"
Response.Write "<table border=1>"
Response.Write "<tr><th>navn</th><th>aar</th><th>dressur</th><th>spring</th><th>koen</th><th>farve</th><th>stg</th><th>avlsforbund</th><th>uddannelsesgrad</th><th>dato</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("navn") & "</td>"
Response.Write "<td>" & rs("aar") & "</td>"
Response.Write "<td>" & rs("dressur") & "</td>"
Response.Write "<td>" & rs("spring") & "</td>"
Response.Write "<td>" & rs("koen") & "</td>"
Response.Write "<td>" & rs("farve") & "</td>"
Response.Write "<td>" & rs("stg") & "</td>"
Response.Write "<td>" & rs("avlsforbund") & "</td>"
Response.Write "<td>" & rs("uddannelsesgrad") & "</td>"
Response.Write "<td>" & rs("dato") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
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>
Problemet: DET VIRKER IKKE!!
Der kommer bare en Server 500 fejl frem, INGEN fejlbeskrivelse...
Se det selv her:
http://www.akhorses.dk/ASPRandersopen/search.htm
Jeg er ved at gå ud af mit gode skind nu.
