Dynamisk saldo

Jeg er ikke ASP koder, men jeg hr brugt følgende løsning i PHP.

Tabel 1 (Medlemmer)
- ID
NAvn
Tabel 2 (Posteringer)Tabel 1 (Medlemmer)
- ID
- Navn
- Adresse
- osv
Tabel 2 (Posteringer)
- PostID
- MedlemID
- Tekst
- Beløb


Jeg har så når jeg viser medlemmet på skærmen at den lige gennemløber Tabellen Posteringer og fortæller mig hvad saldoen er. I "Posteringer" smider jeg 1 gang om måneden ind at de skylder kr. xxx i Kontigent

Der er selvfølgelig disse 2 tabeller jeg har:
Tabel 1 (Medlemmer)
- ID
- Navn
- Adresse
- osv
Tabel 2 (Posteringer)
- PostID
- MedlemID
- Tekst
- Beløb

Tak for svaret, men så langt var jeg kommet, jeg har nu selv løst det med følgende kode:

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
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 navn = '" & Replace(objRs("navn"),"'","''") & "'"
    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 navn = '" & Replace(objRs("navn"),"'","''") & "'"
    Set rs2 = Conn.Execute(strSQL2)

    SUM_IN = Rs2("sum_ind")
    SUM_DE = Rs2("sum_deb")
    SUM_KR = Rs2("sum_kre")
    INDBETALT = Rs2("sum_ind") + Rs2("sum_deb")

    dato = start
    months = Datediff ("m",dato,date)
    KONTIGENT = ((months+1)*150)
    SALDO = (-KONTIGENT+SUM_DE)+(-600+SUM_IN)

    If SALDO >= "0" Then
    Betaling_ok = "Ja"
    Else
    Betaling_ok = "Nej"
    End If

    Response.Write "<table width=""875px"" align=""center"" style=""font-size:14;""><tr><td width='75px'>" & objRs("Fornavn") & "</td>"
    Response.Write "<td width=""100px"">" & objRs("Efternavn") & "</td>"
    Response.Write "<td width=""140px"">" & objRs("Adresse") & "</td>"
    Response.Write "<td width=""75px"">" & objRs("Nr") & "</td>"
    Response.Write "<td width=""35px"">" & objRs("Postnr") & "</td>"
    Response.Write "<td width=""90px"">" & objRs("Bynavn") & "</td>"
    Response.Write "<td width=""85px"">" & objRs("Mobil") & "</td>"
    Response.Write "<td width=""150px""><a href=""mailto:" & objRs("Email") & """>" & objRs("Email") & "</td>"

Navn = objRs("Fornavn") & " " & objRs("Efternavn")
BETALT = "<td width='50px' align='center'><a href='regnskab_brodre.asp?navn=" & Navn & "'><img border='0' src='images/flueben.gif' alt='Har betalt'></a></td>"
IKKE_BETALT = "<td width='50px' align='center'><a href='regnskab_brodre.asp?navn=" & Navn & "'><img border='0' src='images/kryds.gif' alt='Har udestående!'></a></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=""880px"" style='color: #333333;'>"

  objRs.MoveNext
  Loop
  end if

objRs.Close
Set objRs = Nothing

Conn.Close
Set Conn = Nothing

if intPages < 2 then
  Response.Write ""
else
response.write "<div class=""navi""><center>"

'Forrige side
IF Clng(intPage) > 1 THEN
    Response.Write "<a href=""brodre.asp?page=" & intpage - 1 & """>" & "<img border='0' src='images/prev.gif'>" & "</a> "
Else
    Response.Write "<img border='0' src='images/prev_1.gif'> "
End IF

'Udskriver en "sideliste"
For i = 1 to intPages
  if i = intPage then
    Response.Write "<font color=""#FF6600"">" & i & "</font>"
  else
    Response.Write " <a href=""brodre.asp?page=" & i & """><u>" & i & "</u></a> "
  end if
next

'Næste side
If Clng(intPage) < Clng(intPages) Then
  Response.Write " <a href=""brodre.asp?page=" & intpage +1 & """>" & "<img border='0' src='images/next.gif'>" & "</a>"
Else
  Response.Write " <img border='0' src='images/next_1.gif'>"
End IF

response.write "</center></div>"
End if
%>

lukker