][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
Error Type:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/test/krc/tipsbasen/search.asp, line 82
*********
<% 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"))
'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,"'","''")
strKategori = Replace(strKategori,"'","''")
'End If
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 ID_no, forfatter, overskrift, tips, kategori, dato 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 ID_no, forfatter, overskrift, tips, kategori 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 ID_no, forfatter, overskrift, tips, kategori, dato FROM tipstabel "
strSQL = strSQL & " Order by " & StrSort
strSQL = strSQL & " " & StrRet
else
strSQL = "SELECT ID_no, forfatter, overskrift, tips, kategori 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
' 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 "<font face='verdana' size='1'><b>Søgekriterier</b><br>"
Response.Write "<br>"
Response.Write "<div align='center'>"
Response.Write "<table border='0' width='80%' 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='80%'>"
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='80%'>"
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='80%'>"
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=""view_search_selected.asp?ID=" & rs("ID_no") & """>"
' Response.Write "<td width='25%'><font face='verdana' size='1'>" & "<a href=""view_search_selected.asp?ID=" & rs("ID_no") & " & "" "" &"">"
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("tips"),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>
