<%
if request.querystring("sort")="d" or request.querystring("sort")="" then
ordning=" ORDER by datum DESC"
elseif request.querystring("sort")="p" then
ordning=" ORDER by Pris"
elseif request.querystring("sort")="r" then
ordning=" ORDER by rubrik"
elseif request.querystring("sort")="ks" then
ordning=" ORDER by KopesSaljes DESC"
else
ordning=" ORDER by datum DESC"
end if
SQL = "SELECT * FROM annonsplats"
srch=request.form("searchStr")
srch=replace(srch,"'","")
if srch<>"" then
SQLWhere=" WHERE rubrik like '%" & srch & "%' OR annonstext like '%" & srch & "%'"
SQL=SQL & SQLWhere
' response.write(SQL)
' response.end
end if
SQL= SQL & ordning
set rstemp = server.createobject("ADODB.recordset")
rstemp.open SQL, conn, 1, 2
'Set rstemp = conn.Execute(SQL)
i=0
do while not rsTemp.eof
i=i+1
rsTemp.moveNext
loop
if srch="" then
message="Just nu finns det " & i & " annonser i databasen."
else
message="Din sökning på " & chr(34) & srch &chr(34) & " gav " & i & " träff"
if i=1 then message=message & "." else message = message & "ar."
end if
if not (rsTemp.bof) then rstemp.moveFirst
session.LCID=2057
%>
BMCK - Annonsmarknad