<% '******************************************************************************* '* XUD Copyright 1995-2003 XCENT - www.xcent.com * '* XUD is a trademark of XCENT * '* This notice may not be removed from this source code file * '******************************************************************************* sCMD = UCase(Trim(RequestValue("CMD"))) iMonth = FVal(RequestValue("Month")) If iMonth = 0 Then iMonth = Month(Now) lYear = FVal(RequestValue("Year")) If lYear = 0 Then lYear = Year(Now) Set objErr = Server.CreateObject("Scripting.Dictionary") If gbEnabled Then OpenDBConn If IsUserLoggedIn Then DoPageHeader TableHead Select Case sCMD Case "SHOWBILL": ShowBill Case Else ShowBill End Select TableFoot DoPageFooter Else Response.Redirect "XUDLogin.asp?ReturnTo=" & Server.URLEncode("XUDViewBill.asp") End If CloseDBConn Else Response.Redirect "XUDDisabled.asp" End If Set objErr = Nothing Sub TableHead Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write " " & gsTabTextOpen & GLS_VBCellTitle & gsTabTextClose & "   " Response.Write "

" End Sub Sub TableFoot Response.Write "

" ShowNavBar End Sub Sub ShowBill Response.Write "" Response.Write "" Response.Write "" Response.Write "" If FVal(iMonth) > 0 AND Len(Trim(lYear)) > 0 Then If giServerDateFormat = 1 Then vStartPeriod = CDate("1/" & iMonth & "/" & lYear ) If iMonth < 12 Then vEndPeriod = CDate("1/" & iMonth + 1 & "/" & lYear) Else vEndPeriod = CDate("1/1/" & lYear + 1) End If Else vStartPeriod = CDate(iMonth & "/1/" & lYear ) If iMonth < 12 Then vEndPeriod = CDate(iMonth + 1 & "/1/" & lYear) Else vEndPeriod = CDate("1/1/" & lYear + 1) End If End If sSQL = "SELECT Sum(tahTotal) As calcTotal FROM tblXUDTransactionHistory WHERE tahRegID = " & SQLVal(glUserID) & _ " AND tahDateInserted < " & SQLDate(vStartPeriod) fPreviousBalance = 0 Set rsTransactions = gobjConnect.Execute(sSQL) If Not rsTransactions.Eof Then fPreviousBalance = FVal(rsTransactions("calcTotal")) End If rsTransactions.Close Set rsTransactions = Nothing fTotal = fPreviousBalance sSQL = "SELECT * FROM tblXUDTransactionHistory WHERE tahREGID = " & SQLVal(glUserID) & _ " AND tahDateInserted < " & SQLDate(vEndPeriod) & _ " AND tahDateInserted >= " & SQLDate(vStartPeriod) & _ " ORDER BY tahDateInserted" Set rsTransactions = gobjConnect.Execute(sSQL) Response.Write "" Response.Write "" End If Response.Write "" Response.Write "

" & gsSectionTitleOpen & GLS_VBChooseDate & gsSectionTitleClose & "

" Response.Write "" Response.Write "" Response.Write " " Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write "" Response.Write "" & GLS_TextMonth1 & "" Response.Write "" & GLS_TextMonth2 & "" Response.Write "" & GLS_TextMonth3 & "" Response.Write "" & GLS_TextMonth4 & "" Response.Write "" & GLS_TextMonth5 & "" Response.Write "" & GLS_TextMonth6 & "" Response.Write "" & GLS_TextMonth7 & "" Response.Write "" & GLS_TextMonth8 & "" Response.Write "" & GLS_TextMonth9 & "" Response.Write "" & GLS_TextMonth10 & "" Response.Write "" & GLS_TextMonth11 & "" Response.Write "" & GLS_TextMonth12 & "" Response.Write "" Response.Write " " Response.Write "" For lYearLoop = Year(Now) - 2 to Year(Now) Response.Write "" & lYearLoop & "" Next Response.Write "" Response.Write " " Response.Write " " Response.Write " " Response.Write "

" & gsSectionTitleOpen & GLS_VBYourBill & gsSectionTitleClose & "

" Response.Write "" Response.Write "" Response.Write " " Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" iLineFlag = True sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" If Not rsTransactions.EOF Then Do While Not rsTransactions.EOF sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo) sSystemType = UCase(Trim("" & rsTransactions("tahSystemType"))) sTransType = UCase(Trim("" & rsTransactions("tahTransType"))) Response.Write "" Response.Write "" Select Case sSystemType Case "AUC", "WB": Response.Write "" Case "CAD": Response.Write "" Case "DIR": Response.Write "" Case "MSG": Response.Write "" Case "PAY": Response.Write "" Case "SYS", "ADM", "NRC", "NRG": Response.Write "" Case Else Response.Write "" End Select Response.Write "" Response.Write "" If FVal(rsTransactions("tahTotal")) < 0 Then Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If fTotal = fTotal + FVal(rsTransactions("tahTotal")) Response.Write "" Response.Write "" rsTransactions.MoveNext Loop Else Response.Write "" End If rsTransactions.Close Set rsTransactions = Nothing sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" sSQL = "SELECT SUM(tahTotal) As varCalcTotal FROM tblXUDTransactionHistory " & _ " WHERE tahRegID = " & SQLVal(glUserID) Set rsTotal = gobjConnect.Execute(sSQL) If Not rsTotal.EOF Then fTotalOwed = FVal(rsTotal("varCalcTotal")) Else fTotalOwed = 0 End If rsTotal.Close Set rsTotal = Nothing If (fTotalOwed > 0) Then sRubAcctType = "" sSQL = "SELECT rubAcctTYpe FROM tblXUDRegUserBilling " & _ " WHERE rubRegID = " & SQLVal(glUserID) Set rsRubBillType = gobjConnect.Execute(sSQL) If Not rsRubBillType.EOF Then sRubAcctType = "" & rsRubBillType("rubAcctType") End If rsRubBillType.Close Set rsRubBillType = Nothing If (UCase(sRubAcctType) = "EMAIL") Or (UCase(sRubAcctType) = "PAYPAL") Or (UCase(sRubAcctType) = "NOCHEX") Then sSQL = "SELECT * FROM tblXUDBillingCardTypes " & _ " WHERE bctCode IN (" & SQLStr("EMAIL") & ", " & SQLStr("PAYPAL") & ", " & SQLStr("NOCHEX") & ")" Set rsBillType = gobjConnect.Execute(sSQL) If Not rsBillType.EOF Then Response.Write "" Response.Write "" Response.Write "" End If rsBillType.Close Set rsBillType = Nothing End If End If Response.Write " " & gsColumnHeadOpen & GLS_VBDescription & gsColumnHeadClose & " " & gsColumnHeadOpen & GLS_VBInfo & gsColumnHeadClose & " " & gsColumnHeadOpen & GLS_VBRefNum & gsColumnHeadClose & " " & gsColumnHeadOpen & GLS_VBTransDate & gsColumnHeadClose & " " & gsColumnHeadOpen & GLS_VBCredit & gsColumnHeadClose & " " & gsColumnHeadOpen & GLS_VBDebit & gsColumnHeadClose & " " & gsColumnHeadOpen & GLS_VBRunningBalance & gsColumnHeadClose & " " & gsPlainTextopen & GLS_VBBalanceForward & gsPlainTextClose & "    " & gsPlainTextopen & vStartPeriod & gsPlainTextClose & "       " & gsPlainTextopen & DispCurrency(fTotal) & gsPlainTextClose & " " & gsPlainTextopen Select Case sSystemType Case "AUC": '**Auction If FVal(rsTransactions("tahSystemID")) > 0 Then Response.Write "" & TrimToEllip(rsTransactions("tahDescription"), 25) & "" & Chr(13) & Chr(10) Else Response.Write TrimToEllip(rsTransactions("tahDescription"), 25) & " " End If Case "CAD": '**Classified Ad If FVal(rsTransactions("tahSystemID")) > 0 Then Response.Write "" & TrimToEllip(rsTransactions("tahDescription"), 25) & "" & Chr(13) & Chr(10) Else Response.Write TrimToEllip(rsTransactions("tahDescription"), 25) & " " End If Case Else Response.Write TrimToEllip(rsTransactions("tahDescription"), 25) & " " End Select Response.Write gsPlainTextClose & " " & gsPlainTextOpen & GLS_SysTypeAuc & gsPlainTextClose & " " & gsPlainTextOpen & GLS_SysTypeCad & gsPlainTextClose & " " & gsPlainTextOpen & GLS_SysTypeDir & gsPlainTextClose & " " & gsPlainTextOpen & GLS_SysTypeMsg & gsPlainTextClose & " " & gsPlainTextOpen & "PAY" & gsPlainTextClose & " " & gsPlainTextOpen & GLS_SysTypeSys & gsPlainTextClose & " " & gsPlainTextOpen & GLS_SysTypeUnknown & gsPlainTextClose & " " & gsPlainTextopen & rsTransactions("tahReference") & gsPlainTextClose & "  " & gsPlainTextopen & DispShortDate(rsTransactions("tahDateInserted")) & gsPlainTextClose & "   " & gsPlainTextopen & DispCurrency(Abs(rsTransactions("tahTotal"))) & gsPlainTextClose & "      " & gsPlainTextopen & DispCurrency(Abs(rsTransactions("tahTotal"))) & gsPlainTextClose & "  " & gsPlainTextOpen & DispCurrency(fTotal) & gsPlainTextClose & " " & gsFormTextopen & GLS_VBNoTransactions & gsFormTextClose & " " & gsPlainTextopen & "" & GLS_VBTotal & "" & gsPlainTextClose & "   " & gsSectionTitleOpen If fTotal > 0 Then Response.Write GLS_VBAcctDue Else Response.Write GLS_VBAcctCredit End If Response.Write gsSectionTitleClose & "  " & gsPlainTextopen & "" & DispCurrency(fTotal) & "" & gsPlainTextClose & "   " & gsVBPayYourBill & " " Response.Write "" Response.Write "" Do While Not rsBillType.EOF sPaymentTypeCode = "" & rsBillType("bctCode") sProviderLogin = "" & rsBillType("bctProviderLogin") sProviderCurrCode = "" & rsBillType("bctProviderCurrCode") If (sPaymentTypeCode = "PAYPAL") Then ShowPayPalButton sProviderLogin, fTotalOwed, sProviderCurrCode End If If (sPaymentTypeCode = "NOCHEX") Then ShowNOCHEXButton sProviderLogin, fTotalOwed End If rsBillType.MoveNext Loop Response.Write " " & gsPlainTextOpen & Replace(GLS_VBOutstandingBal, "%AMOUNT%", DispCurrency(fTotalOwed)) & gsPlainTextClose & " " Response.Write " " Response.Write " " Response.Write "

" End Sub Sub ShowPayPalButton(psPayPalEmail, pfAmount, psCurrCode) Dim bDebug : bDebug = False Response.Write "" & GLS_PayWithPayPal & "
" Response.Write "" 'PayPal Button information If bDebug Then Response.Write "

" & vbCrLf Else Response.Write "" & vbCrLf End If Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" Response.Write "" ShowHTMLFile "XUDHtmlTxt/XUDUsePayPal.htm" Response.Write "" End Sub Sub ShowNOCHEXButton(psNOCHEXEmail, pfAmount) Response.Write "" & GLS_PayWithNOCHEX & "
" Response.Write "" 'PayPal Button information Response.Write "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" Response.Write "" ShowHTMLFile "XUDHtmlTxt/XUDUseNOCHEX.htm" Response.Write "" End Sub %>