Det virker næsten fint. Der er bare et lille problem.
Og jeg kan ikke selv finde fejlen. Den finde de rasultater men nu søger efter, men når man gerne vil se den næste side, så kommer den tilbage til søgemenuen.
Så her kommer lige koden igen. ::
<%
intPage = Request("sider")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
str = Request.Form("keyword")
if str = "" then
Response.Write "<table border='0'>"
Response.Write "<tr><td align='center' valign='top'>"
Response.Write "<center><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'><b>Søg efter elever.</b></font></center>"
Response.Write "</td></tr>"
Response.Write "<tr><td align='center' valign='top'>"
Response.Write "<form action='/sider/søg.asp' method='POST'>"
Response.Write "<input type='text' name='keyword' size='30'><br>"
Response.Write "<input type='submit' name='Action' value='Søg'>"
Response.Write "</form>"
Response.Write "</td></tr>"
Response.Write "</table>"
elseif str <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/log/2003.mdb")
arr = Split(str," ")
sqlWhere = ""
for i = lbound(arr) to ubound(arr)
if sqlWhere <> "" then sqlWhere = sqlWhere & " OR "
sqlWhere = sqlWhere & "(ForNavn LIKE '%" & arr(i) & "%'"
sqlWhere = sqlWhere & " OR MellemNavn LIKE '%" & arr(i) & "%'"
sqlWhere = sqlWhere & " OR EfterNavn LIKE '%" & arr(i) & "%'"
sqlWhere = sqlWhere & ")"
next
Set rs = Server.CreateObject("ADODB.recordset")
SQL = "select * from Elever"
if sqlWhere <> "" then SQL = SQL & " where " & sqlWhere & " order by KlasseNr"
rs.Open SQL, Conn, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 9
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
' Hvis der er fundet poster på søgningen
Response.Write "<table border='0' width='100%'><tr>"
Response.Write "<td align='left' valign='top'><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'><b>Søgeresultat med " & Str & "</b></font></p></td>"
Response.Write "<td align='right' valign='top'><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'><b>Side " & intPage & " af " & intPageCount & "</b></font></p></td>"
Response.Write "</tr></table>"
Response.Write "<table>"
antal = 0
maxPrRow = 3
Do While Not rs.EOF And intRecCount > 0
if antal = 0 then Response.Write "<tr>"
klasse_x = rs("KlasseNr")
x_ID = rs("ID")
x_link = rs("link")
x_fornavn = rs("ForNavn")
x_mellemnavn = rs("mellemnavn")
x_efternavn = rs("EfterNavn")
strVis = rs("visbillede")
x_table = 190
billede_td = 35
x_td1 = x_table - billede_td
response.write "<td width='33%' align='center' valign='top'>"
response.write "<table border='0' width='" & x_table & "'><tr><td width='" & x_td1 & "' bgcolor='#DDE4E7'>"
response.write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>" & x_fornavn & " " & x_efternavn & "</font></td>"
response.write "<td width='" & billede_td & "' rowspan='2' bgcolor='#DDE4E7' align='center'>"
response.write "<p align='center' style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"
if strVis = "ja" then
Response.Write "<a href='#' onClick=MM_openBrWindow('/sider/visbillede.asp?ID=" & x_ID & "','billede_" & x_fornavn & "','width=225,height=336')>"
end if
Response.Write "<img border='0' src='
http://www.hhx.dk/sider/pics/" If strVis = "ja" then
Response.Write "HH" & klasse_x & "/HH" & klasse_x & "_"
Response.Write "" & x_fornavn & ""
if x_mellemnavn <> "" then
Response.Write " " & x_mellemnavn & ""
end if
if x_efternavn <> "" then
Response.Write " " & x_efternavn & ""
end if
Response.Write ".jpg"
elseif strVis = "nej" then
Response.Write "intet.jpg"
else
Response.Write "onway.jpg"
end if
Response.Write "' width='35' height='52'>"
if strVis = "ja" then
Response.Write "</a>"
end if
Response.Write "</font></td>"
response.write "</tr><tr>"
response.write "<td width='" & x_td1 & "' bgcolor='#FFFFFF'><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"
Response.Write "<a href='
http://www.hhx.dk/hhx" & klasse_x & "/hhx" & klasse_x & "" & rs("link") & "' title='Se " & x_fornavn & "´s hjemmeside' target='_blank'>HHX" & klasse_x & "" & rs("link") & "</a></font></p>"
response.write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"
Response.Write "<a href='mailto:hhx" & klasse_x & "" & x_link & "@edu.selandia-ceu.dk' title='Mail til " & x_fornavn & "'>Mail</a></font></td>"
response.write "</tr></table>"
response.write "</td>"
antal = antal + 1
if antal = maxPrRow then
Response.Write "</tr>"
antal = 0
end if
intRecCount = intRecCount - 1
rs.MoveNext
Loop
Response.Write "</table>"
'paging udskriv links
Response.Write "<center><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>Gå til side<br>| "
For intNum = 1 To intPageCount
Response.Write "<a href=/sider/søg.asp?keyword=" & Server.URLencode(str) & "&sider=" & intNum & ">" & intNum & "</a> | "
Next
Response.Write "</font></center><center><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"
If Clng(intPage) > 1 Then
Response.Write "<a href=/sider/søg.asp?keyword=" & Server.URLencode(str) & "&sider=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=/sider/søg.asp?keyword=" & Server.URLencode(str) & "&sider=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
Response.Write "<br>"
Response.Write "<a href='/sider/søg.asp'>Ny søgning</a>"
Response.Write "</font></center>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"
Response.Write "Der er ikke fundet noget på denne søgning</font><br>"
Response.Write "Prøv igen<br>"
Response.Write "<form action='/sider/søg.asp' method='POST'>"
Response.Write "<input type='text' name='keyword' size='30'><br>"
Response.Write "<input type='submit' name='Action' value='Søg'>"
Response.Write "</form>"
End If
' Rydder op efter os
Conn.Close
Set Conn = Nothing
end If
%>
