Sideliste skal også være over medlemmerne
Hvis i kigger på www.mustangklubben.dk/medlemmer så kan i nederst, under alle medlemmerne så sidelisten (1,2,3 osv). Den vil jeg også meget gerne have til at stå over medlemmerne, men kan ikke rigtigt få det til at virke. Hjælp!Her kommer hele koden, undskyld rodet:
<!-- #include virtual="/include/asp/incStandard.asp" -->
<%Response.Buffer = True%>
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%= Application("strSiteTitel") %></title>
<!-- #include virtual="/include/asp/incHead.asp" -->
</head>
<body>
<!-- #include virtual="/include/asp/incLogoMenu.asp" -->
<%
Dim strSql, strSideListe, strSoeg, strRandomMedlemsNavn,strRandomMedlemsBillede, strRandomMedlemsBilledeText
Dim intCurrentPage, intTotalRecords, intPageSize, intStart, intEnd, intCurrentRecord, intPages, intCounter, intTotalPicture, intIndex, intRandomMedlemsNr
Dim dtmOpdateret
Dim blnOpdateret
Dim arMedlemmer, arrBilleder
Dim objRs
'---- Hvilken side skal vises
intCurrentPage = strToDbl(getQuerystring("page"))
If (not isnumeric(intCurrentPage)) Then
intCurrentPage = 1
end if
'--- Har vi søgt på noget?
strSoeg = Replace(Request("soeg"), "'", "''")
strSql = "SELECT medlemsnr, navn, bil FROM Medlem WHERE Aktiv=" & application("dbBooleanTrue")
if (strSoeg <> "") then
strSql = strSql & " AND medlemsnr = '" & strSoeg & "' OR navn like '%" & strSoeg & "%' OR bil like '%" & strSoeg & "%' "
end if
strSQL = strSQL & " ORDER BY medlemsnr"
set objRS = objConn.execute(strSql)
If (not objRS.EOF) then
arMedlemmer = objRS.GetRows()
End if
objRS.close
set objRS = nothing
if (isArray(arMedlemmer)) then
intTotalRecords = UBound(arMedlemmer, 2)
end if
if (not isNumeric(intTotalRecords) or intTotalRecords = "") then
intTotalRecords = -1
end if
'Array konstanter
CONST dbMedlemsnr = 0
CONST dbNavn = 1
CONST dbBil = 2
%>
<table cellspacing="0" cellpadding="0" class="tblContent" border=0 >
<tr>
<td class="conContentCell">
<table cellspacing="0" cellpadding="0" width="100%" >
<tr>
<td width="100%" valign="top" colspan=5>
<!-- BEGYND -->
<form action=default.asp method=post ID="Form1">
<table class="conContentConcent" border="0" cellspacing="0" cellpadding="0" ID="Table1">
<tr>
<td class="conContentTitle" width="100%" colspan=2>
Søg på medlem
</td>
</tr>
<td >Nedenunder findes en oversigt over klubbens medlemmer.<br> <br>
Vi har for tiden <%=intTotalRecords %> aktive medlemmer<br><br>Hvis det enkelte medlem har mere information at byde på kan man trykke på medlemsnummeret hvorefter informationen vil fremkomme.</td>
<%
'-- Hent et billede fra hukommelsen medmindre det allerede er hentet
if (session("RandomMedlemsBillede") = "") then
call getRandomPicture %>
<td align=right>
<%
'**********************************************************************************************************
'* /include/incThumbnail.asp : visThumbnail(strAbsolutFileName, strFileName, intX, intY, strAltText) *
'**********************************************************************************************************
call visThumbnail( server.Mappath(Application("Upload") & Application("MedlemsBilledeUpload") & session("RandomMedlemsBillede")), Application("Upload") & Application("MedlemsBilledeUpload") & session("RandomMedlemsBillede"), 150, 113, "Klik for at se større")
%>
<br>
<span class="txtContentSmallPad"><a href="/medlemmer/visMedlem.asp?id=<%=session("RandomMedlemsNr")%>">MCD <%=session("RandomMedlemsNr")%>, <%=session("RandomMedlemsNavn") %></span></a></td>
<%
'Nulstil billedet igen så det henter et nyt. Dette skal kun ske på medlemssiden
session("RandomMedlemsBillede") = ""
end if %>
<tr>
<td colspan=2><input class="inText" type=text name=soeg value="<%=strSoeg%>"> <input class="inButton" type=submit name=soegknap value="Søg på medlem" ID="Submit1"></td>
</tr>
</table>
</form>
<div class="conContentSpaceLink"></div>
<table ID="Table3"width=100%>
<tr>
<td>
<%
if (strSoeg <> "") then%>
<font color=red><%=intTotalRecords + 1%> medlemmer fundet</font>
<%end if%>
</td>
<td align=right>
<!--
Sorteret efter
<SELECT NAME="Sorter" ID="Select1">
<OPTION>Medlemsnr</OPTION>
<OPTION>Sidst opdateret</OPTION>
</SELECT>
-->
</td>
</tr>
</table>
<table class="conContentConcent" ID="Table2">
<tr>
<td txtContentTitle width="130"><b>Medlemsnr</b></td>
<td txtContentTitle width="170"><b>Navn</b></td>
<td txtContentTitle><b>Bil</b></td>
</tr>
<%
If (IsArray(arMedlemmer)) then
intPageSize = Application("Medlemmer_Per_Side") - 1
intStart = ((intCurrentPage - 1) + ((intCurrentPage - 1) * intPageSize))
intEnd = intStart + intPageSize
intCurrentRecord = intStart
'---- Der er blevet slettet records siden bruger var her sidst.
If (intCurrentRecord > intTotalRecords) then
Response.redirect("?page=1")
End if
Do
%>
<tr <%if (intCurrentRecord mod 2 = 0) then %>class="conContentTitleColor"<%end if%>>
<td width="105">
<a href="visMedlem.asp?id=<%=arMedlemmer(dbMedlemsnr, intCurrentRecord)%>"><%=arMedlemmer(dbMedlemsnr, intCurrentRecord)%>
<%
'**********************************
'* Har medlemmet nogle billeder? *
'**********************************
strSql = "SELECT * FROM MedlemsBillede WHERE Medlemsnr='" & arMedlemmer(dbMedlemsnr, intCurrentRecord) & "'"
set objRs = objConn.Execute(strSql)
if (not objRs.Eof) then%>
<img src="/images/camera_icon.Gif" border=0>
<%
'**************************************
'* Er medlemmet opdateret for nylig? *
'* inden for 14 dage? *
'**************************************
blnOpdateret = false
do while not objRs.Eof
dtmOpdateret = objRs.Fields("dato")
if (isDate(dtmOpdateret)) then
if (DateDiff("d", dtmOpdateret, Date()) < 14) then
blnOpdateret = true
end if
end if
objRs.MoveNext
Loop
if (blnOpdateret) then
%>
<img src="/images/opdateret.jpg" width=57 border=0>
<%
end if
end if
objRs.Close
set objRs = Nothing
%>
</a>
</td>
<td width="200"><%=arMedlemmer(dbNavn, intCurrentRecord)%></td>
<td><%=arMedlemmer(dbBil, intCurrentRecord)%></td>
</tr>
<%
intCurrentRecord = intCurrentRecord + 1
'---- true på sidste side
If (intCurrentRecord > intTotalRecords) Then
Exit Do
End if
Loop While (intCurrentRecord <= intEnd)
Erase arMedlemmer
'---- Generer side link liste
intPages = intTotalRecords / (intPageSize + 1)
'---- Rund op fra 1,2 til 2 (1,2 + 1 - (1,2 - 1) = 2)
intPages = CInt(intPages + 1 - (intPages - int(intPages)))
If (intPages > 1) then
'---- Tilbage knap
If (intCurrentPage > 1) then
strSideListe = "<a href=?page=" & (intCurrentPage - 1) & "&soeg=" & strSoeg & ">«</a> "
End if
For intCounter = 1 to intPages
If (intCurrentPage <> intCounter) then
strSideListe = strSideListe & "<a href=?page=" & intCounter& "&soeg=" & strSoeg & ">" & intCounter & "</a>"
Else
strSideListe = strSideListe & "<span class=valgtSide>" & intCounter & "</span>"
End if
If (intCounter < intPages) then
strSideListe = strSideListe & ", "
End if
Next
'---- Frem knap
If (intCurrentPage < intPages) then
strSideListe = strSideListe & " <a href=?page=" & (intCurrentPage + 1) & "&soeg=" & strSoeg & ">»</a>"
End if
End if
%>
<tr>
<td colspan=3 align=right class=SideListeTd><%= strSideListe %></td>
</tr>
<%
end if
%>
</table>
</td>
</tr>
</table>
</td>
<td class="conColumn">
<!-- #include virtual="/include/asp/columns/incRightTeaser.asp" -->
<!-- #include virtual="/include/asp/columns/incBrugerProfil.asp" -->
<!-- #include virtual="/include/asp/columns/incOnlinebrugere.asp" -->
</td>
<td class="conColumnSpace"> </td>
</tr>
</table>
<!-- #include virtual="/include/asp/incFooter.asp" -->
</body>
</html>
<%
endPage()
%>
