473,219 Members | 1,906 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,219 software developers and data experts.

Urgent...Having problem debugging...Need help ASAP!

To start with here is the code:

Expand|Select|Wrap|Line Numbers
  1. Public Function Paymentget (s12MoRate)
  2. strCompanyCode = objXML.selectSingleNode("policy/companyCode").text
  3. strState = objXML.selectSingleNode("policy/insured/state").text
  5. set rsDownPayment = getCache("down_payment")
  7. dim tempPremium, totalTaxes
  9. totalTaxes = 0
  10. tempPremium = s12MoRate
  12. ' calculate the taxes so they can be front loaded in the payment schedule
  13. dim TaxCov
  14. for each TaxCov in objXml.selectNodes("//coverage[manOptSwitch='T']")
  15. taxRate = cdbl(TaxCov.selectSingleNode("../rate/coverage[@covCode = '" & TaxCov.selectSingleNode("coverageCode").text & "']/twelveMonth").text)
  16. tempPremium = tempPremium - taxRate
  17. totalTaxes = totalTaxes + taxRate
  18. next
  20. ' CLR - new filter as of 12/25/02 for new payplan table structure
  21. set rsDownPayment = applyFilterAndReloadRecordset(rsDownPayment, "a01_company = '" & objLogic.Company & "' or a01_company = '99'")
  22. set rsDownPayment = applyFilterAndReloadRecordset(rsDownPayment, "a02_state = '" & objLogic.BikeState & "' or a02_state = 'ZZ'")
  23. set rsDownPayment = applyFilterAndReloadRecordset(rsDownPayment, "min_premium <= " & tempPremium & " and b80_userline = '" & objLogic.userline & "' and profile = '" & objLogic.profile & "'")
  25. dim minimumPct
  26. dim payment
  27. dim installmentfee
  29. ' initialize payment percentage, amount, and fee to be full pay parameters as default
  30. minimumPct = 1
  31. payment = tempPremium
  32. installmentfee = 0
  33. ' now loop through available plans, and get the minimum that they can get in the policy
  34. while not rsDownPayment.eof
  36. if cdbl(rsDownPayment("m84_instpct")) < cdbl(minimumPct) then
  38. minimumPct = cdbl(rsDownPayment("m84_instpct"))
  39. payment = cdbl(rsDownPayment("m84_instpct")) * tempPremium
  40. installmentfee = rsDownPayment("first_installment_fee")
  42. end if
  43. rsDownPayment.MoveNext
  44. wend
  46. Paymentget = cdbl(payment) + cdbl(installmentFee) + cdbl(totalTaxes)
  48. End Function
  51. I have a few questions for the asp guru’s out there:
  52. Just a brief summary…this function works fine until the value of s12MoRate is less than 999. If it is more than 999 than the value for the Payment (s12MoRate) is 0, which is not right. 
  53. I am not good at asp & was wondering on how to debug the application starting from checking what value does s12MoRate has?? 
  54. Than how do I check the value for the following?
  55. set rsDownPayment = applyFilterAndReloadRecordset(rsDownPayment, "a01_company = '" & objLogic.Company & "' or a01_company = '99'")
  56. set rsDownPayment = applyFilterAndReloadRecordset(rsDownPayment, "a02_state = '" & objLogic.BikeState & "' or a02_state = 'ZZ'")
  57. set rsDownPayment = applyFilterAndReloadRecordset(rsDownPayment, "min_premium <= " & tempPremium & " and b80_userline = '" & objLogic.userline & "' and profile = '" & objLogic.profile & "'")
  58. Than check does the while loop execute and what value does payment gets (payment = cdbl(rsDownPayment("m84_instpct")) * tempPremium)??
Please wrap your code in CODE tags theres a sticky on how todo it

Mod iam_clint

Any help is appreciated ASAP…thanks a lot for yr time…bye
Jan 9 '07 #1
0 1119

Sign in to post your reply or Sign up for a free account.

Similar topics

by: Rahul S. | last post by:
Hey all: I need urgent information how to set the environment in Visual.NET wiritng in C. I am working with a licensed version of the Analyze 6.0 software from mayo clinic. I need to write...
by: Rahul S. | last post by:
Hey all: I need urgent information how to set the environment in Visual.NET wiritng in C. I am working with a licensed version of the Analyze 6.0 software from mayo clinic. I need to write...
by: Gordon Smith | last post by:
I have four (4) ASP.NET Web applications/Web sites on a IIS/6 - Windows Server 2003 production server. 3 of them work fine. I just installed the 4th one and it's Application_Start event is not...
by: Chris | last post by:
Hi, All my websites and webservices are down. I get the following message Server Error in '/mywebservices' Application....
by: Radhesh Reddy | last post by:
One of our clients is in need of following consultants Business analyst with I2 background Location: Overland park,KS Duration: 6 months+ startdate: ASAP Description and Skills We are...
by: archana | last post by:
Hi all, I am having one confusion regarding invoking web method of web service asychronously through windows applicaiton. What i am doing is i am having one long runing web method whose one...
by: IT Jobs | last post by:
Hi We are from Ventures IT Solutions, A Young Organisation based in Delhi, and is started with a vision to provide, quality services to our esteemed clients and candidates, We have some...
by: feltra | last post by:
Hi, The following is from my friend, who has some technical problem at present in accessing the web... I am writing for him... Kindly request your inputs ASAP, as he has some kind of deadline...
by: JMD | last post by:
A set of xsd files has been working fine for us at this site, but now it gives *intermittent* errors for someone at a different cite (who is consuming the code we are producing). Most of the time...
by: isladogs | last post by:
The next online meeting of the Access Europe User Group will be on Wednesday 6 Dec 2023 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, Mike...
by: veera ravala | last post by:
ServiceNow is a powerful cloud-based platform that offers a wide range of services to help organizations manage their workflows, operations, and IT services more efficiently. At its core, ServiceNow...
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 3 Jan 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). For other local times, please check World Time Buddy In...
by: mar23 | last post by:
Here's the situation. I have a form called frmDiceInventory with subform called subfrmDice. The subform's control source is linked to a query called qryDiceInventory. I've been trying to pick up the...
by: abbasky | last post by:
### Vandf component communication method one: data sharing ​ Vandf components can achieve data exchange through data sharing, state sharing, events, and other methods. Vandf's data exchange method...
by: jimatqsi | last post by:
The boss wants the word "CONFIDENTIAL" overlaying certain reports. He wants it large, slanted across the page, on every page, very light gray, outlined letters, not block letters. I thought Word Art...
by: fareedcanada | last post by:
Hello I am trying to split number on their count. suppose i have 121314151617 (12cnt) then number should be split like 12,13,14,15,16,17 and if 11314151617 (11cnt) then should be split like...
by: egorbl4 | last post by:
Скачал я git, хотел начать настройку, а там вылезло вот это Что это? Что мне с этим делать? ...
by: MeoLessi9 | last post by:
I have VirtualBox installed on Windows 11 and now I would like to install Kali on a virtual machine. However, on the official website, I see two options: "Installer images" and "Virtual machines"....

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.