Vil ikke trække data fra DB'en

strSQL2 = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where UID = " & objRs("ID")

Prøv sådan...

//>Rune

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

Lukker....