Ok, ihr wolltet es nicht anders --> hier der Ganze Code ;-)
Ich muss praktisch am anfang die Rechnungsnummer mit der vorhergehenden
vergleichen und versuchen dementsprechen
die Zeile <tr> mit rowspan oder so zu �ffnen.. wichtig ist mir nur wie ich
den wert der vorhergehenden invoiceid behalten kann und
mit der neuen vergleichen!
Danke
Matthias
____________________________________________________________________________
____________
Response.write "<table border=1 bordercolor=#000120 cellspacing=2
cellpadding=3 align=center>"
.Write "<tr>"
.Write "<th nowrap bgcolor=#f0f8ff><font
size=2><b>UserID</b> </th>"
.Write "<th nowrap bgcolor=#f0f8ff><font
size=2><b>Domain</b> </th>"
.Write "<th nowrap bgcolor=#f0f8ff><font
size=2><b>InvType</b> </th>"
.Write "<th nowrap bgcolor=#f0f8ff><font
size=2><b>InvoiceID</b> </th>"
.Write "<th nowrap bgcolor=#f0f8ff><font
size=2><b>InvDate</b> </th>"
.Write "<th nowrap bgcolor=#f0f8ff><font
size=2><b>DatePaid</b> </th>"
.Write "<th nowrap bgcolor=#f0f8ff><font
size=2><b>Status</b> </th>"
.Write "<th nowrap bgcolor=#f0f8ff><font
size=2><b>Amount</b> </th>"
.Write "</tr>"
end with
If Not (RS.EOF AND RS.BOF) Then
while not rs.eof
Response.Write "<tr>"
if vartype(rs.fields("userid")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("N/A")
Response.Write "</td>"
else
Response.Write "<td nowrap><font size=2>"
Response.Write rs.fields("userid")
Response.Write "</td>"
end if
if vartype(rs.fields("domain")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("N/A")
Response.Write "</td>"
else
Response.Write "<td nowrap><font size=2>"
Response.Write rs.fields("domain")
Response.Write "</td>"
end if
if vartype(rs.fields("invoicetype")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("N/A")
Response.Write "</td>"
else
Response.Write "<td nowrap><font size=2>"
Response.Write rs.fields("invoicetype")
Response.Write "</td>"
end if
if vartype(rs.fields("invoiceid")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("N/A")
Response.Write "</td>"
else
Response.Write "<td nowrap><font size=2>"
invoicedet = rs.fields("invoiceid")
useridtogive = rs.fields("userid")
Response.Write "<a href=#" & "target=_parent" & " onclick="
& "window.open('invoicedet.asp?userid=" & useridtogive &
"','','resizable=yes,scrollbars=yes,statusbar=no,toolbar=no,menubar=no,width
=600,height=300');return false;>" & invoicedet & "</a>"
Response.Write "</td>"
end if
if vartype(rs.fields("invdate")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("N/A")
Response.Write "</td>"
else
Response.Write "<td nowrap><font size=2>"
Response.Write rs.fields("invdate")
Response.Write "</td>"
end if
if vartype(rs.fields("datepaid")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("N/A")
Response.Write "</td>"
else
Response.Write "<td nowrap><font size=2>"
Response.Write rs.fields("datepaid")
Response.Write "</td>"
end if
if vartype(rs.fields("status")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("N/A")
Response.Write "</td>"
else
statuscheck = rs.fields("status")
select case statuscheck
case "Paid":
Response.Write "<td nowrap bgcolor=#00ff00><font size=2>"
Response.Write rs.fields("status")
Response.Write "</td>"
case else
Response.Write "<td nowrap bgcolor=#ffffff><font size=2>"
Response.Write rs.fields("status")
Response.Write "</td>"
end select
end if
if vartype(rs.fields("prodprice")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("0 �")
Response.Write "</td>"
else
if vartype(rs.fields("quantity")) = vbNull then
Response.Write "<td nowrap><font size=2>"
Response.Write("N/A")
Response.Write "</td>"
else
vat = rs.fields("exvat")
select case vat
case 0:
price = rs.fields("prodprice")
amount = rs.fields("quantity")
wvat = price * amount
evat = 0.175
total = wvat + (wvat * evat)
Response.Write "<td nowrap><font
size=2>"
totalwvat = int((total * (10 ^ 2) +
0.5)) / (10 ^ 2)
Response.Write "�" & totalwvat
'Response.Write round(total, 2) & "
�"
Response.Write "</td>"
case else
price = rs.fields("prodprice")
amount = rs.fields("quantity")
wivat = price * amount
Response.Write "<td nowrap><font size=2>"
totalwivat = int((wivat * (10 ^ 2) + 0.5))
/ (10 ^ 2)
Response.Write "�" & totalwivat
'Response.Write round(wivat, 2) & " �"
Response.Write "</td>"
end select
end if
end if
Response.Write "</tr>"
rs.movenext
wend
else
end if
with Response
.write"</table>"
.write "</body>"
.write "</html>"
end with
rs.close
set rs = nothing
db.close
set db = nothing
~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~
Intrexx.BizWalker + ODBC/OLEDB-Daten = ASP-Formular
ATTACK! Download Intrexx CRM-Studio Now! http://www.intrexx.com
_______________________________________________
Database.asp mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/database.asp
