Ged i søgning - if sætning driller
Har brugt de sidste par dage på at lave en søge side til min database......ligenu kommer der en fejl...Jeg tror det er mine if-sætninger der driller. Skriv hvis I skal bruge yderligere information :<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
<link rel="stylesheet" type="text/css" href="stil.css">
</head><body bgcolor=#F9F9F9>
<%
'Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))
strKategori = Trim(Request.Form("Kategori"))
strSort = Trim(Request.Form("Sort"))
strRetning = Trim(Request.Form("Retning"))
strKeyword = Replace(strKeyword,"'","''")
strKategori = Replace(strKategori,"'","''")
strSort = Replace(strSort,"'","''")
strKategori = Replace(strKategori,"'","''")
if strRetning = "Stigende" then
strRet = "asc;"
end if
if strRetning = "Faldende" then
strRet = "desc;"
end if
' Opbygger en dynamisk SQL streng
If strKeyword <> "" then
If strkategori = "Alle" then
strSQL = "SELECT * FROM tipstabel WHERE"
strSQL = strSQL & " ((forfatter LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (overskrift LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (tips LIKE '%" & strKeyword & "%'))"
strSQL = strSQL & " Order by " & StrSort
strSQL = strSQL & " " & StrRet
Else
strSQL = "SELECT * FROM tipstabel WHERE"
strSQL = strSQL & " ((forfatter LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (overskrift LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (tips LIKE '%" & strKeyword & "%'))"
strSQL = strSQL & " AND (kategori = '" & strKategori & "')"
strSQL = strSQL & " Order by " & StrSort
strSQL = strSQL & " " & StrRet
End if
Else
If strkategori = "Alle" then
strSQL = "SELECT * FROM tipstabel "
strSQL = strSQL & " Order by " & StrSort
strSQL = strSQL & " " & StrRet
Else
strSQL = "SELECT * FROM tipstabel where"
strSQL = strSQL & " (kategori = '" & strKategori & "')"
strSQL = strSQL & " Order by " & StrSort
strSQL = strSQL & " " & StrRet
End if
End if
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tips.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Response.Write( strSQL )
' 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 "<div align='center'>"
Response.Write "<table border='0' width='100%' cellpadding='0' cellspacing='0'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#CCCCCC'>"
if strkeyword="" then
Response.Write "<font face='verdana' size='1'>Der er søgt efter <b> alle forekomster"
else
Response.Write "<font face='verdana' size='1'>Der er søgt efter <b>"&strkeyword
end if
Response.Write "<font face='verdana' size='1'></b> i kategorien <b>"&strkategori
Response.Write "<font face='verdana' size='1'></b>. Resultatet er sorteret efter <b>"&strsort
Response.Write "<font face='verdana' size='1'></b>,<b> "&strretning&".<br><br></b>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</div>"
Response.Write "<br>"
Response.Write "<div align='center'>"
Response.Write "<table border='0' width='100%'>"
Response.Write "<tr>"
Response.Write "<td align='left' width='50%'>"
Response.Write "<font face='verdana' size='2'><b>Søgeresultat</b>"
Response.Write "</td>"
Response.Write "<td align='right' width='50%'>"
Response.Write "<font face='verdana' size='1'><a href='search.htm' target='_self'>Ny søgning</a>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</div>"
Response.Write "<br>"
Response.Write "<div align='center'>"
Response.Write "<table border='0' width='100%'>"
Response.Write "<tr>"
Response.Write "<td width='20%'><font face='verdana' size='1'><b>Forfatter</td>"
Response.Write "<td width='25%'><font face='verdana' size='1'><b>Overskrift</td>"
Response.Write "<td width='35%'><font face='verdana' size='1'><b>Tips</td>"
Response.Write "<td width='20%'><font face='verdana' size='1'><b>Kategori</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td colspan='4'><hr size='1'>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</div>"
Do While Not rs.EOF
Response.Write "<div align='center'>"
Response.Write "<table border='0' width='100%'>"
Response.Write "<tr>"
Response.Write "<td width='20%'><font face='verdana' size='1'>" & rs("Forfatter") & "</td>"
Response.Write "<td width='25%'><font face='verdana' size='1'><a href=""#"" onclick=""window.open('view_search_selected.asp?ID="&rs("ID_no")&"','viewSel','height=350,width=550,top=209,screenY=209,left=237,screenX=237,toolbar=no,scrollbars=yes,menubar=no');return false;"">"
Response.Write (rs("Overskrift"))
Response.Write ("</a>")
Response.Write "</td>"
Response.Write "<td width='35%'><font face='verdana' size='1'>" & left(rs("tip"),50) & "...</td>"
Response.Write "<td width='20%'><font face='verdana' size='1'>" & rs("kategori") & "</td>"
Response.Write "</tr>"
Response.Write "</div>"
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>
