Takker, fik så en ny fejl omkring expecting loop...
Her er hele koden:
<%
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM Brodre Where Godkendt = 'Ja';")
intRecords = Cint(objRs("records"))
objRs.Close
Set objRs = Nothing
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
intPage = Cint(1)
else
intPage = Cint(intPage)
end if
intPageSize = Cint(20)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
if intPageSize < intRecords then
intPages = Cint(intRecords/intPageSize)+1
elseif intPageSize = intRecords then
intPages = Cint(intRecords/intPageSize)
else
intPages = Cint(intRecords/intPageSize)
end if
Set objRs = Conn.Execute("SELECT * FROM Brodre Where Godkendt = 'Ja' ORDER BY Fornavn LIMIT " & intStart & ", " & intPageSize & ";")
if objRs.EOF or objRs.BOF then
Response.Write "<br>" & "<h5><center><i>Der var ikke flere brødre i logen...</i></center></h5>"
else
Response.Write "<table><tr><td></td></tr></table>"
Do until objRs.EOF
strSQL1 = "SELECT Start FROM Brodre Where ID = '" & Replace(objRs("ID"),"'","''") & "'"
Set rs1 = Conn.Execute(strSQL1)
START = rs1("Start")
rs1.close
strSQL2 = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where UID = " & objRs("ID")
Set rs2 = Conn.Execute(strSQL2)
SUM_IN = rs2("sum_ind")
SUM_DE = rs2("sum_deb")
SUM_KR = rs2("sum_kre")
INDBETALT = (SUM_IN - SUM_KR + SUM_DE)
dato = start
months = Datediff ("m",dato,date)
KONTIGENT = ((months+1)*150)
SALDO = (-KONTIGENT+SUM_DE)+(-500+SUM_IN)-(SUM_KR)
If SALDO >= "0" Then
Betaling_ok = "Ja"
Else
Betaling_ok = "Nej"
End If
Navn = objRs("Fornavn") & " " & objRs("Efternavn")
If objrs("RangID") = 0 Then
RANG = "Webmaster"
Elseif objrs("RangID") = 1 Then
RANG = "Formand"
Elseif objrs("RangID") = 2 Then
RANG = "Næstformand"
Elseif objrs("RangID") = 3 Then
RANG = "Kassér"
Elseif objrs("RangID") = 4 Then
RANG = "Medlem"
Elseif objrs("RangID") = 5 Then
RANG = "<font color=""orange"">Prøve medlem</font>"
Else
RANG = "<font color=""red"">Passiv medlem</font>"
End if
If session("login_admin") = "JA" Then
LINK = "<td width=""235px""><a href=""brodre_detail.asp?menuid=" & Request.querystring("MenuID") & "&uid="& objrs("ID") & """ title=""Vis detaljer for " &Navn& """><b>" & Navn & "</b></a></td>"
Elseif objRs("ID") = session("ID") Then
LINK = "<td width=""235px""><a href=""brodre_detail.asp?menuid=" & Request.querystring("MenuID") & "&uid="& objrs("ID") & """ title=""Vis detaljer for " &Navn& """><b>" & Navn & "</b></a></td>"
Else
LINK = "<td width=""235px"">" & Navn & "</td>"
End if
Response.Write "<table width=""675px"" align=""center"" style=""font-size:14;""><tr>"
Response.Write LINK
Response.Write "<td width=""130px"">" & RANG & "</td>"
Response.Write "<td width=""90px"">" & objRs("Mobil") & "</td>"
Response.Write "<td width=""170px""><a href=""mailto:" & objRs("Email") & """>" & objRs("Email") & "</a></td>"
BETALT = "<td width='50px' align='center'><img border='0' src='images/flueben.gif' alt='" &Navn& " har betalt'></td>"
IKKE_BETALT = "<td width='50px' align='center'><img border='0' src='images/kryds.gif' alt='" &Navn& " har udestående!'></td>"
If session("login_admin") = "JA" Then
If Betaling_ok = "Ja" Then
Response.Write BETALT
Else
Response.Write IKKE_BETALT
End if
Else
if objRs("ID") = session("ID") AND Betaling_ok = "Ja" Then
Response.Write BETALT
Elseif objRs("ID") = session("ID") AND Betaling_ok = "Nej" Then
Response.Write IKKE_BETALT
Else
Response.Write "<td width='50px' align='center'></td>"
End if
End if
Response.Write " </tr></table>"
Response.Write "<hr align=""center"" width=""675px"" style='color: #404040;'>"
objRs.MoveNext
Loop
end if
objRs.Close
Set objRs = Nothing
Conn.Close
Set Conn = Nothing
