<%
page = Cint(request.querystring("page"))
if page = 0 then page = 1
database = "Sql123456_4"
call dbConnect(objConn, database)
'Totale dei record
sek = request.form("keywords")
qstring = "keywords=" & server.URLEncode(sek)
function fixSQL(TheString)
TheString = replace(TheString,"'","''")
fixSQL = TheString
end function
strSQL = "SELECT COUNT(*) as tot FROM (SELECT id, NOME COLONNA1 FROM tabella1 WHERE NOME COLONNA1 LIKE '%" & sek & "%' UNION SELECT id, NOME COLONNA23, NOME COLONNA56, FROM tabella2 WHERE NOME COLONNA23 LIKE '%" & sek & "%' OR NOME COLONNA56 LIKE '%" & sek & "%' ) as total"
Set objRS = objConn.Execute(strSQL)
if not objRs.eof then
tot_record = Cint(objRS("tot"))
else
tot_record=0
end if
set objRS = nothing
pageSize = 15
inizio = (page - 1) * pageSize
pagine_totali = tot_record / pageSize
if pagine_totali - CInt(pagine_totali) > 0 then
pagine_totali = CInt(pagine_totali + 1)
else
pagine_totali = CInt(pagine_totali)
end If
strSQL = "SELECT * FROM (SELECT id, NOME COLONNA1 FROM tabella1 WHERE NOME COLONNA1 LIKE '%" & sek & "%' UNION SELECT id, NOME COLONNA23, NOME COLONNA56, FROM tabella2 WHERE NOME COLONNA23 LIKE '%" & sek & "%' OR NOME COLONNA56 LIKE '%" & sek & "%' ) as total order by id desc LIMIT "& inizio &","& pageSize
Set stRS = server.CreateObject("ADODB.Recordset")
stRS.Open strSQL, objConn
if tot_record > 0 then
for i=1 to PageSize
if strs.eof<>true and strs.bof<>true then
%>
i risultati devono essere:
NOME DELLA COLONNA dove è stata trovare la parola cercata
+ l'id della stessa colonna dove è stata trovare la parola cercata
<%
stRS.movenext
end if
next
else
%>
Non ci sono prodotti con il termine cercato
<%
end if
%>
<p align='center'>
<div class="paginazione">
<%
page = page
totPage = pagine_totali
Max = 9
startPage = page
EndPage = page + Max
if page > 1 then
Response.write("<a href=""search.asp?keywords=" & request.form("keywords") &"&page="& page -1 &"""><<</a>")
end if
if EndPage > totPage then EndPage = totPage
for i = StartPage to EndPage
If i = totPage then
Response.Write("")
Else
If i = page then
Response.Write("<b>" & i & "</b>")
else
Response.write ("<a href=""search.asp?keywords=" & request.form("keywords") &"&page=" & i & """> " & i & " </a> ")
end if
end if
next
if page < totpage then
Response.write ("<a href=""search.asp?keywords=" & request.form("keywords") &"&page=" & page +1 & """>>></a> ")
end if
%>