[x]
Posted via EE Mobile

Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.
Question
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
9.5

Microsoft VBScript runtime error '800a01b6'

Asked by garethtnash in Active Server Pages (ASP)

Tags: Microsoft VBScript runtime error '800a01b6'

Hi there,

I'm hoping that some experts might be able to help me with a small problem that i'm having -
Basically I'm trying to connect to sagepay (Formerley Protx VSP Server) to process a transaction (payment)

I'm using ecart 4 from webassist, but having difficulties with it, as it seems to work when pointing towards a test account, but everything changes wehen we point it to a live environment.

Which is when we get the following error -

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'NotifyCheckout_Parameters.BillingAddress1'

/employer/confirm.asp, line 291

Where line 291 is -

      NotifyCheckout_Parameters.BillingAddress1 = "" & cStr(Request.Form("street1")) & ""

I've posted the full page source below, there are also a number of includes which I can add if needed -

Any thoughts much appreciated -
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../WA_eCart/WA_eCart_Definition_VB.asp" -->
<!--#include file="../WA_eCart/WA_eCart_Database_VB.asp" -->
<!--#include file="../WA_eCart/adverteCart_VB.asp" -->
<!--#include file="../WA_eCart/COScripts/Protx_VSPServer_VB.asp" -->
<%
if (Request.ServerVariables("Request_Method") = "POST") then
  Session("eCartCheckoutForm_state_province") = "" & cStr(Request.Form("state_province")) & ""
end if
%>
<%
if (Request.ServerVariables("Request_Method") = "POST") then
  Session("eCartCheckoutForm_country") = "" & cStr(Request.Form("country")) & ""
end if
%>
<%
if (Request.ServerVariables("Request_Method") = "POST") then
  Session("eCartCheckoutForm_shipping_state_province") = "" & cStr(Request.Form("shipping_state_province")) & ""
end if
%>
<%
if (Request.ServerVariables("Request_Method") = "POST") then
  Session("eCartCheckoutForm_shipping_country") = "" & cStr(Request.Form("shipping_country")) & ""
end if
 
%>
<!--#include file="../Connections/recruta2.asp" -->
<%
Dim ppdata__MMColParam
ppdata__MMColParam = "0"
If (Session("SITEID") <> "") Then 
  ppdata__MMColParam = Session("SITEID")
End If
%>
<%
Dim ppdata
Dim ppdata_cmd
Dim ppdata_numRows
 
Set ppdata_cmd = Server.CreateObject ("ADODB.Command")
ppdata_cmd.ActiveConnection = MM_recruta2_STRING
ppdata_cmd.CommandText = "SELECT JBSRegUN, JBSRegPD, JBSRegSG FROM dbo.JBSite WHERE JBSSiteID = ?" 
ppdata_cmd.Prepared = true
ppdata_cmd.Parameters.Append ppdata_cmd.CreateParameter("param1", 5, 1, -1, ppdata__MMColParam) ' adDouble
 
Set ppdata = ppdata_cmd.Execute
ppdata_numRows = 0
%>
<%
Dim Banner__MMColParam
Banner__MMColParam = "0"
If (Session("EMPLOYERID") <> "") Then 
  Banner__MMColParam = Session("EMPLOYERID")
End If
%>
<%
Dim Banner__MMColParam2
Banner__MMColParam2 = "0"
If (Session("SITEID") <> "") Then 
  Banner__MMColParam2 = Session("SITEID")
End If
%>
<%
Dim Banner
Dim Banner_cmd
Dim Banner_numRows
 
Set Banner_cmd = Server.CreateObject ("ADODB.Command")
Banner_cmd.ActiveConnection = MM_recruta2_STRING
Banner_cmd.CommandText = "SELECT JBCLID, JBCLBanner, JBCLSiteID, JBCLName FROM dbo.JBClient WHERE JBCLID = ? AND JBCLSiteID = ? AND JBCLBanner LIKE '%ClientImages%'" 
Banner_cmd.Prepared = true
Banner_cmd.Parameters.Append Banner_cmd.CreateParameter("param1", 5, 1, -1, Banner__MMColParam) ' adDouble
Banner_cmd.Parameters.Append Banner_cmd.CreateParameter("param2", 5, 1, -1, Banner__MMColParam2) ' adDouble
 
Set Banner = Banner_cmd.Execute
Banner_numRows = 0
%>
<%
Dim SiteBanner__MMColParam
SiteBanner__MMColParam = "0"
If (Session("SITEID") <> "") Then 
  SiteBanner__MMColParam = Session("SITEID")
End If
%>
<%
Dim SiteBanner
Dim SiteBanner_cmd
Dim SiteBanner_numRows
 
Set SiteBanner_cmd = Server.CreateObject ("ADODB.Command")
SiteBanner_cmd.ActiveConnection = MM_recruta2_STRING
SiteBanner_cmd.CommandText = "SELECT SiteBanner FROM dbo.SiteBanner WHERE SiteBannerSiteID = ? ORDER BY NewID()" 
SiteBanner_cmd.Prepared = true
SiteBanner_cmd.Parameters.Append SiteBanner_cmd.CreateParameter("param1", 5, 1, -1, SiteBanner__MMColParam) ' adDouble
 
Set SiteBanner = SiteBanner_cmd.Execute
SiteBanner_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  Recordset1__MMColParam = Session("SITEID") 
End If
%><%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_recruta2_STRING
Recordset1_cmd.CommandText = "SELECT JBSSiteID, JBSMetaTitle, JBSLogo, JBSMetaKeywords, JBSMetaDescription, JBSHomePageText, JBSURL, JBSURLShort FROM dbo.JBSite WHERE JBSSiteID = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim administrator__MMColParam
administrator__MMColParam = "0"
If (Session("EMPLOYEEID") <> "") Then 
  administrator__MMColParam = Session("EMPLOYEEID")
End If
%>
<%
Dim administrator__MMColParam2
administrator__MMColParam2 = "0"
If (Session("SITEID") <> "") Then 
  administrator__MMColParam2 = Session("SITEID")
End If
%>
<%
Dim administrator
Dim administrator_cmd
Dim administrator_numRows
 
Set administrator_cmd = Server.CreateObject ("ADODB.Command")
administrator_cmd.ActiveConnection = MM_recruta2_STRING
administrator_cmd.CommandText = "SELECT JBEID, JBEClientID, JBESiteID, JBELevel FROM dbo.JBEmployee WHERE JBEID = ? AND JBESiteID = ? AND JBELevel = 'a'" 
administrator_cmd.Prepared = true
administrator_cmd.Parameters.Append administrator_cmd.CreateParameter("param1", 5, 1, -1, administrator__MMColParam) ' adDouble
administrator_cmd.Parameters.Append administrator_cmd.CreateParameter("param2", 5, 1, -1, administrator__MMColParam2) ' adDouble
 
Set administrator = administrator_cmd.Execute
administrator_numRows = 0
%>
<%
Dim monthlyuser__MMColParam
monthlyuser__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  monthlyuser__MMColParam = Session("SITEID") 
End If
%>
<%
Dim monthlyuser__MMColParam2
monthlyuser__MMColParam2 = "0"
If (Session("EMPLOYERID")  <> "") Then 
  monthlyuser__MMColParam2 = Session("EMPLOYERID") 
End If
%>
<%
Dim monthlyuser
Dim monthlyuser_cmd
Dim monthlyuser_numRows
 
Set monthlyuser_cmd = Server.CreateObject ("ADODB.Command")
monthlyuser_cmd.ActiveConnection = MM_recruta2_STRING
monthlyuser_cmd.CommandText = "SELECT JBCLID, JBCLSiteID, JBCLAccountType, JBCLMStartDate, JBCLMEndDate FROM dbo.JBClient WHERE JBCLSiteID = ? AND JBCLAccountType = 'm' AND JBCLMStartDate <= GETDATE() AND JBCLMEndDate >= GETDATE() AND JBCLID = ?" 
monthlyuser_cmd.Prepared = true
monthlyuser_cmd.Parameters.Append monthlyuser_cmd.CreateParameter("param1", 5, 1, -1, monthlyuser__MMColParam) ' adDouble
monthlyuser_cmd.Parameters.Append monthlyuser_cmd.CreateParameter("param2", 5, 1, -1, monthlyuser__MMColParam2) ' adDouble
 
Set monthlyuser = monthlyuser_cmd.Execute
monthlyuser_numRows = 0
%>
<%
Dim ADVERTUSERS__MMColParam
ADVERTUSERS__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  ADVERTUSERS__MMColParam = Session("SITEID") 
End If
%>
<%
Dim ADVERTUSERS__MMColParam2
ADVERTUSERS__MMColParam2 = "0"
If (Session("EMPLOYERID")  <> "") Then 
  ADVERTUSERS__MMColParam2 = Session("EMPLOYERID") 
End If
%>
<%
Dim ADVERTUSERS
Dim ADVERTUSERS_cmd
Dim ADVERTUSERS_numRows
 
Set ADVERTUSERS_cmd = Server.CreateObject ("ADODB.Command")
ADVERTUSERS_cmd.ActiveConnection = MM_recruta2_STRING
ADVERTUSERS_cmd.CommandText = "SELECT JBCLID, JBCLSiteID, JBCLAccountType FROM dbo.JBClient WHERE JBCLSiteID = ? AND JBCLAccountType = 'a' AND JBCLID = ?" 
ADVERTUSERS_cmd.Prepared = true
ADVERTUSERS_cmd.Parameters.Append ADVERTUSERS_cmd.CreateParameter("param1", 5, 1, -1, ADVERTUSERS__MMColParam) ' adDouble
ADVERTUSERS_cmd.Parameters.Append ADVERTUSERS_cmd.CreateParameter("param2", 5, 1, -1, ADVERTUSERS__MMColParam2) ' adDouble
 
Set ADVERTUSERS = ADVERTUSERS_cmd.Execute
ADVERTUSERS_numRows = 0
%>
<%
Dim news__MMColParam
news__MMColParam = "0"
If (Session("SITEID") <> "") Then 
  news__MMColParam = Session("SITEID")
End If
%>
<%
Dim news
Dim news_cmd
Dim news_numRows
 
Set news_cmd = Server.CreateObject ("ADODB.Command")
news_cmd.ActiveConnection = MM_recruta2_STRING
news_cmd.CommandText = "SELECT JBNewsSiteID FROM dbo.JBNews WHERE JBNewsSiteID = ?" 
news_cmd.Prepared = true
news_cmd.Parameters.Append news_cmd.CreateParameter("param1", 5, 1, -1, news__MMColParam) ' adDouble
 
Set news = news_cmd.Execute
news_numRows = 0
%>
<%
Dim muser__MMColParam
muser__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  muser__MMColParam = Session("SITEID") 
End If
%><%
Dim muser__MMColParam2
muser__MMColParam2 = "0"
If (Session("EMPLOYERID")  <> "") Then 
  muser__MMColParam2 = Session("EMPLOYERID") 
End If
%><%
Dim muser
Dim muser_cmd
Dim muser_numRows
 
Set muser_cmd = Server.CreateObject ("ADODB.Command")
muser_cmd.ActiveConnection = MM_recruta2_STRING
muser_cmd.CommandText = "SELECT JBCLID, JBCLSiteID, JBCLAccountType, JBCLMStartDate, JBCLMEndDate FROM dbo.JBClient WHERE JBCLSiteID = ? AND JBCLAccountType = 'm' AND JBCLID = ?" 
muser_cmd.Prepared = true
muser_cmd.Parameters.Append muser_cmd.CreateParameter("param1", 5, 1, -1, muser__MMColParam) ' adDouble
muser_cmd.Parameters.Append muser_cmd.CreateParameter("param2", 5, 1, -1, muser__MMColParam2) ' adDouble
 
Set muser = muser_cmd.Execute
muser_numRows = 0
%>
<%
Dim valueclick__MMColParam
valueclick__MMColParam = "0"
If (Session("SITEID") <> "") Then 
  valueclick__MMColParam = Session("SITEID")
End If
%>
<%
Dim valueclick
Dim valueclick_cmd
Dim valueclick_numRows
 
Set valueclick_cmd = Server.CreateObject ("ADODB.Command")
valueclick_cmd.ActiveConnection = MM_recruta2_STRING
valueclick_cmd.CommandText = "SELECT EClickLink FROM dbo.JBAEClickMedia WHERE JBAEClickSiteID = ? AND ECLlickLive = 'y'" 
valueclick_cmd.Prepared = true
valueclick_cmd.Parameters.Append valueclick_cmd.CreateParameter("param1", 5, 1, -1, valueclick__MMColParam) ' adDouble
 
Set valueclick = valueclick_cmd.Execute
valueclick_numRows = 0
%>
<%
%>
<%
' WA eCart Notification Checkout Authentication
' Vendor: Protx Service: VSP Server FullName: Protx VSP Server
if ((Request.ServerVariables("Request_Method") = "POST") AND (inStr(Unescape(cStr(Request.ServerVariables("HTTP_REFERER"))),Unescape(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME"))) > 0)) then
	NotifyCheckout_TestingServer = true
	set NotifyCheckout_Parameters = new Protx_VSPServer_Authenticate_Object
	NotifyCheckout_Parameters.Vendor = ""
	NotifyCheckout_Parameters.VendorTxCode = "" & cStr(WAEC_getTimestamp()) & ""
	NotifyCheckout_Parameters.TxType = "PAYMENT"
	NotifyCheckout_Parameters.Amount = "" & cStr(WA_eCart_GrandTotal(adverteCart)) & ""
	NotifyCheckout_Parameters.CurrencyCode = "GBP"
	NotifyCheckout_Parameters.OrderDescription = "" & cStr(WAEC_getTimestamp()) & ""
	NotifyCheckout_Parameters.NotificationURL = "http://www.thesite.co.uk/employer/checkout_notify.asp"
	NotifyCheckout_Parameters.CustomerEmail = "" & cStr(Request.Form("email")) & ""
	NotifyCheckout_Parameters.BillingAddress1 = "" & cStr(Request.Form("street1")) & ""
	NotifyCheckout_Parameters.BillingPostCode = "" & cStr(Request.Form("postcode")) & ""
	NotifyCheckout_Parameters.BillingSurname = "" & cStr(Request.Form("lastname")) & ""
	NotifyCheckout_Parameters.BillingFirstnames = "" & cStr(Request.Form("firstname")) & ""
	NotifyCheckout_Parameters.BillingCity = "" & cStr(Request.Form("city")) & ""
	NotifyCheckout_Parameters.BillingCountry = "" & cStr(Request.Form("country")) & ""
	NotifyCheckout_Parameters.DeliveryAddress1 = ""
	NotifyCheckout_Parameters.DeliveryPostCode = ""
	NotifyCheckout_Parameters.DeliverySurname = ""
	NotifyCheckout_Parameters.DeliveryFirstnames = ""
	NotifyCheckout_Parameters.DeliveryCity = ""
	NotifyCheckout_Parameters.DeliveryCountry = ""
	NotifyCheckout_Parameters.ContactNumber = "" & cStr(Request.Form("phone")) & ""
	NotifyCheckout_Parameters.ContactFax = "" & cStr(Request.Form("fax")) & ""
	NotifyCheckout_Parameters.AllowGiftAid = "0"
	NotifyCheckout_Parameters.ApplyAVSCV2 = "0"
	NotifyCheckout_Parameters.Apply3DSecure = "0"
	NotifyCheckout_Parameters.UseSimulator = "true"
 
	NotifyCheckout_FailureRedirect = "checkout_failure.asp"
	set Protx_VSPServer_Auth = Protx_VSPServer_Authenticate(adverteCart, NotifyCheckout_Parameters, NotifyCheckout_TestingServer)
	if (Protx_VSPServer_Auth.Success) then
		adverteCart_redirStr = Protx_VSPServer_Auth.Redirect
	elseif (NotifyCheckout_FailureRedirect <> "") then
		Response.Redirect(NotifyCheckout_FailureRedirect)
		Response.End()
	end if
end if
%>
<%' WA eCart Store Cart Summary in Db
if ((Request.ServerVariables("Request_Method") = "POST") AND (inStr(Unescape(cStr(Request.ServerVariables("HTTP_REFERER"))),Unescape(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME"))) > 0))  then
  WA_connection = MM_recruta2_STRING
  WA_table = "dbo.JBOrder"
  WA_redirectURL = ""
  WA_indexField = "JBOrderID"
  WA_fieldNamesStr = "JBOSiteID|JBOClientID|JBOTokens|JBOTotalPrice|JBOTotalDiscount|JBOTotalTax|VendorTransCode|VSPTransID|SecurityKey|JBOPrice|JBOGrandTotal|OrderReferenceID"
  WA_fieldValuesStr = WA_eCDB_ConvertNumber("" & cStr( Session("SITEID") ) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr( Session("EMPLOYERID") ) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(adverteCart, "Quantity")) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(adverteCart, "TotalPrice")) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_GetDiscounts(adverteCart)) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_GetTax(adverteCart)) & "") & "|" & "" & cStr(Protx_VSPServer_Auth.VendorTxCode) & "" & "|" & "" & cStr(Protx_VSPServer_Auth.VPSTxId) & "" & "|" & "" & cStr(Protx_VSPServer_Auth.SecurityKey) & "" & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(adverteCart, "Price")) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_GrandTotal(adverteCart)) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(Session.SessionID) & "")
  WA_columnTypesStr = "none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|',none,''|',none,''|',none,''|none,none,NULL|none,none,NULL|none,none,NULL"
  WA_sessionName = "adverteCart_OrderID"
  indexFieldIndex = -1
  WA_fieldValues = Split(WA_fieldValuesStr,"|")
  WA_fieldNames = Split(WA_fieldNamesStr,"|")
  WA_columns = Split(WA_columnTypesStr,"|")
  set WA_editCmd = Server.CreateObject("ADODB.Command")
  updateFieldValue = ""
  WA_editCmd.ActiveConnection = WA_connection
  if (WA_redirectURL <> "" AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
    if (inStr(WA_redirectURL,"?") > 0)  then
	  WA_redirectURL = WA_redirectURL & "&"
	else
	  WA_redirectURL = WA_redirectURL & "?"
	end if
    WA_redirectURL = WA_redirectURL & Request.QueryString
  end if
  for i = 0 to Ubound(WA_fieldNames)
    if (WA_indexField  = WA_fieldNames(i)) then
      indexFieldIndex = i
      exit for
    end if
  next
  if (indexFieldIndex >= 0) then  updateFieldValue = WA_fieldValues(indexFieldIndex)
  if (updateFieldValue = "") then updateFieldValue = cStr(Session(WA_sessionName))
  updateColType = "none,none,NULL"
  if (indexFieldIndex >= 0)  then
     updateColType = WA_columns(indexFieldIndex)
  end if
  if (updateFieldValue <> "" AND updateFieldValue <> "undefined")  then
      valueForWhere = WA_generateInsertParams(Array(WA_indexField), Array(updateColType), Array(updateFieldValue), -1)
      sqlstr = "select " & WA_indexField & " from " & WA_table & " where " & WA_indexField & " = " & valueForWhere(2) & " order by " & WA_indexField & " DESC"
      set WA_eCartRecordset = Server.CreateObject("ADODB.Recordset")
      WA_eCartRecordset.ActiveConnection = WA_connection
      WA_eCartRecordset.Source = sqlstr
      WA_eCartRecordset.CursorType = 0
      WA_eCartRecordset.CursorLocation = 2
      WA_eCartRecordset.LockType = 1
      WA_eCartRecordset.Open()
	  if (NOT WA_eCartRecordset.EOF)  then  
	    updateFieldValue = cStr(WA_eCartRecordset.Fields.Item(WA_indexField).Value)
	  else
	    updateFieldValue = ""
	  end if
	  WA_eCartRecordset.Close()
  end if
  if (updateFieldValue <> "" AND updateFieldValue <> "undefined")  then
    updateParamsObj = WA_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, indexFieldIndex)
	  valueForWhere = WA_generateInsertParams(Array(WA_indexField), Array(updateColType), Array(updateFieldValue), -1)
	  WA_editCmd.CommandText = "update " & WA_table & " SET " & updateParamsObj(3) & " where " & WA_indexField & " = " & valueForWhere(2)
    WA_editCmd.Execute()
	  WA_editCmd.ActiveConnection.Close()
  else
    updateFieldValue = ""
    insertParamsObj = WA_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
    WA_editCmd.CommandText = "insert into " & WA_table & " (" & insertParamsObj(1) & ") values (" & insertParamsObj(2) & ")"
    WA_editCmd.Execute()
    WA_editCmd.ActiveConnection.Close()
  end if
  if (indexFieldIndex < 0)  then
	if (updateFieldValue = "")  then
      obj = WA_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, indexFieldIndex)
      sqlstr = "select " & WA_indexField & " from " & WA_table & " where " &  obj & " order by " & WA_indexField & " DESC"
      set WA_eCartRecordset = Server.CreateObject("ADODB.Recordset")
      WA_eCartRecordset.ActiveConnection = WA_connection
      WA_eCartRecordset.Source = sqlstr
      WA_eCartRecordset.CursorType = 0
      WA_eCartRecordset.CursorLocation = 2
      WA_eCartRecordset.LockType = 1
      WA_eCartRecordset.Open()
	  if (NOT WA_eCartRecordset.EOF)  then  Session(WA_sessionName) = WA_eCartRecordset.Fields.Item(WA_indexField).Value
	  WA_eCartRecordset.Close()
	else
	  Session(WA_sessionName) = updateFieldValue
	end if
  else
    Session(WA_sessionName) = WA_fieldValues(indexFieldIndex)
  end if
  if (WA_redirectURL <> "")  then
    Response.Redirect(WA_redirectURL)
  end if
end if
%>
<%
if (WA_eCart_IsEmpty(adverteCart))     then
  adverteCart_redirStr = "employer/tokencart.asp"'_redirStr
  adverteCart_cartAction = "RedirectIfEmpty"
end if
%>
<%
' WA eCart Redirect
if (adverteCart_redirStr <> "")     then
  Response.Redirect(adverteCart_redirStr)
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/client.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>Confirm Checkout</title>
<meta name="Robots" content="noindex,nofollow" />
<meta name="Revisit-After" content="10 days" />
<meta http-equiv="author" content="NetSolva" />
<meta http-equiv="X-UA-Compatible" content="IE=7" /><link href="../WA_eCart/CSS/eC_Refreshing_Nautica_Arial.css" rel="stylesheet" type="text/css" />
<link href="../WA_eCart/CSS/eC_Simple_Nautica_Arial.css" rel="stylesheet" type="text/css" />
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="code" -->
<link href="../styles/templatestyle.css" rel="stylesheet" type="text/css" media="all" />
<link href="../styles/formfields.css" rel="stylesheet" type="text/css" media="all" />
<script type="text/javascript" src="../scripts/formbuttonfever.js"></script>
<script src="../scripts/marquee.js" type="text/javascript"></script>
<link href="../styles/searchresults.css" rel="stylesheet" type="text/css" media="all" />
<link href="../styles/rss.css" rel="stylesheet" type="text/css" media="all" />
<!-- InstanceEndEditable -->
<script type="text/javascript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
 
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
 
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
 
function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<body>
<div id="wrapper">
  <div id="header"><!-- InstanceBeginEditable name="banner" -->
    <div id="banner">
<% If Not Banner.EOF Or Not Banner.BOF Then %>
<img src="<%=(Banner.Fields.Item("Banner").Value)%>" alt="<%=(Banner.Fields.Item("JBCLName").Value)%>" name="banner" border="0" id="banner2" />
        <%ELSE%>
        <% If Not valueclick.EOF Or Not valueclick.BOF Then %>
        <%=(valueclick.Fields.Item("EClickLink").Value)%>
        <%ELSE%>
		<img src="<%=(SiteBanner.Fields.Item("SiteBanner").Value)%>" />
		<% End If ' end Not valueclick.EOF Or NOT valueclick.BOF %>
	<% End If ' end Not Banner.EOF Or NOT Banner.BOF %></div>
  <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="logo" -->
    <div id="logo"><img src="../images/LOGO.gif" alt="<%=(Recordset1.Fields.Item("JBSURLShort").Value)%> local recruitment" width="224" height="46" /></div>
    <!-- InstanceEndEditable --></div>
  <!-- InstanceBeginEditable name="breadcrumbs" -->
  <div id="breadcrumbs"><a href="index.asp">Home</a> &gt;<a href="tokencart.asp">Buy Tokens</a> &gt; Confirm Order </div>
  <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="menubar" -->
  <div id="navbar">
    <ul>
      <li><a href="index.asp">Home</a></li>
      <% If Not news.EOF Or Not news.BOF Then %>
      <li><a href="news.asp">News</a></li>
      <% End If ' end Not news.EOF Or NOT news.BOF %>
      <li><a href="contactus.asp">Contact Us</a></li>
    </ul>
  </div>
  <!-- InstanceEndEditable -->
  <div id="mainarea"><!-- InstanceBeginEditable name="leftbar" -->
    <div id="leftbar">
      <ul class="navbl">
        <li>
          <h6>Recruiters / Employers</h6>
        </li>
        <% If Not muser.EOF Or Not muser.BOF Then %>
        <li><a href="livevacancies.asp">Vacancy Management</a></li>
        <% End If ' end Not muser.EOF Or NOT muser.BOF %>
        <% If Not ADVERTUSERS.EOF Or Not ADVERTUSERS.BOF Then %>
        <li><a href="livevacanciesac.asp">Vacancy Management</a></li>
        <% End If ' end Not ADVERTUSERS.EOF Or NOT ADVERTUSERS.BOF %>
        <% If Not monthlyuser.EOF Or Not monthlyuser.BOF Then %>
        <li><a href="searchcv.asp">Search Candidate CVs</a></li>
        <% End If ' end Not monthlyuser.EOF Or NOT monthlyuser.BOF %>
        <% If Not administrator.EOF Or Not administrator.BOF Then %>
        <li><a href="accountinfo.asp">Company Details</a></li>
        <% End If ' end Not administrator.EOF Or NOT administrator.BOF %>
        <li><a href="account.asp">Your Account</a></li>
        <% If Not administrator.EOF Or Not administrator.BOF Then %>
        <li><a href="accountusers.asp">Manage Users</a></li>
        <% End If ' end Not administrator.EOF Or NOT administrator.BOF %>
        <% If Not ADVERTUSERS.EOF Or Not ADVERTUSERS.BOF Then %>
        <li><a href="buytokens.asp">Buy Tokens</a></li>
        <% End If ' end Not ADVERTUSERS.EOF Or NOT ADVERTUSERS.BOF %>
        <% If Not ADVERTUSERS.EOF Or Not ADVERTUSERS.BOF Then %>
        <li><a href="tokenhistory.asp">Token History</a></li>
        <% End If ' end Not ADVERTUSERS.EOF Or NOT ADVERTUSERS.BOF %>
        <li><a href="logout.asp">Log Out</a></li>
      </ul>
    </div>
  <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="rightbar" -->
    <div id="rightbar">
      <% If Not ADVERTUSERS.EOF Or Not ADVERTUSERS.BOF Then %>
            <div id="advertise">
              <h4>Top up your Tokens</h4>
              <p> Need more tokens, topping up is quick and easy.</p>
              <a href="register.asp">Top up Now &gt;</a><img src="../images/card.jpg" alt="advertise" /></div>
        <% End If ' end Not ADVERTUSERS.EOF Or NOT ADVERTUSERS.BOF %>
      <% If Not monthlyuser.EOF Or Not monthlyuser.BOF Then %>
  <div id="cvdatabase">
    <ul>
      <li>
        <h4>CV Database</h4>
            </li>
            <li>
              <p><a href="searchcv.asp">Search the CV Database</a> &gt;</p>
            </li>
            <li></li>
            <li></li>
            <li></li>
          </ul>
  </div>
  <% End If ' end Not monthlyuser.EOF Or NOT monthlyuser.BOF %>
</div><div id="righteightdiv"></div>
    <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="maincontent" -->
 
<div id="maincontent">
      <h1>Order Confirmation</h1>
  <div class="eC_Simple_Nautica_Arial">
    <%
'WA eCart Show If Start
if (NOT WA_eCart_IsEmpty(adverteCart))     then
%>
	  <table class="eC_ShoppingCart" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <th>Name</th>
          <th  class="eC_PriceItem" >Price</th>
          <th  class="eC_PriceItem" >Quantity</th>
          <th  class="eC_PriceItem" >Total</th>
        </tr>
        <%
  while (NOT WA_eCart_EOF(adverteCart))
%>
        <tr>
          <td><%=WA_eCart_DisplayInfo(adverteCart, "Name")%></td>
          <td  class="eC_PriceItem" ><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_DisplayInfo(adverteCart, "Price"))%></td>
          <td  class="eC_PriceItem" ><%=WA_eCart_DisplayInfo(adverteCart, "Quantity")%></td>
          <td  class="eC_PriceItem" ><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_DisplayInfo(adverteCart, "TotalPrice"))%></td>
        </tr>
        <%
    set adverteCart = WA_eCart_MoveNext(adverteCart)
  wend
  set adverteCart = WA_eCart_MoveFirst(adverteCart)
%>
      </table>
	  <h3>Order Summary</h3>
	  <div class="eC_OrderSummary">
	    <table border="0" cellpadding="0" cellspacing="0" class="eC_CartSummary">
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetDiscounts(adverteCart) > 0 OR WA_eCart_GetCharges(adverteCart) > 0 OR WA_eCart_GetShipping(adverteCart) > 0 OR WA_eCart_GetTax(adverteCart) > 0)     then
%>
          <tr>
            <td class="eC_SummaryLabel">Sub-total</td>
            <td><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_TotalColumn(adverteCart, "TotalPrice"))%></td>
          </tr>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetDiscounts(adverteCart) > 0)     then
%>
          <tr>
            <td class="eC_SummaryLabel">Discounts</td>
            <td>-<%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_GetDiscounts(adverteCart))%></td>
          </tr>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetCharges(adverteCart) > 0)     then
%>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetShipping(adverteCart) > 0)     then
%>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <%
'WA eCart Merchandizing Show Start
'ecart="adverteCart"
if (WA_eCart_GetTax(adverteCart) > 0)     then
%>
          <tr>
            <td class="eC_SummaryLabel">VAT</td>
            <td><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_GetTax(adverteCart))%></td>
          </tr>
          <%
'WA eCart Merchandizing Show End
'ecart="adverteCart"
end if
%>
          <tr class="eC_SummaryFooter">
            <td class="eC_SummaryLabel">Total:</td>
            <td><%=WA_eCart_DisplayMoney(adverteCart, WA_eCart_GrandTotal(adverteCart))%></td>
          </tr>
        </table>
	  </div>
	  <%
'WA eCart Show If Middle
else
%><table><tr><td>The cart is empty</td></tr></table><%
'WA eCart Show If End
end if
%>
    
    <div class="eC_PurchaserInfoWrapper">
      <h3 class="eC_InfoHeader">Billing Information</h3>
	    <div class="eC_InfoContainer"><%=Request.Form("firstname")%>&nbsp;<%=Request.Form("lastname")%><br />
		    <%=Request.Form("street1")%><br />
		    <%=Request.Form("city")%>,&nbsp;<%=Request.Form("state_province")%>&nbsp;<%=Request.Form("postcode")%><br />
	      <%=Request.Form("country")%></div>
	</div>
		  
<div class="eC_Simple_Nautica_Arial">
  
  <div class="eC_CheckoutFormWrapper">
    <form name="ecart_checkout_form" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
      
      <table class="eC_ButtonWrapper" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td>
            <input type="hidden" name="cc_type" id="cc_type" value="<%=Session("eCartCheckoutForm_cc_type")%>" />
  <input type="hidden" name="cc_number" id="cc_number" value="<%=Session("eCartCheckoutForm_cc_number")%>" />
  <input type="hidden" name="exp_month" id="exp_month" value="<%=Session("eCartCheckoutForm_exp_month")%>" />
  <input type="hidden" name="exp_year" id="exp_year" value="<%=Session("eCartCheckoutForm_exp_year")%>" />
  <input type="hidden" name="cvv" id="cvv" value="<%=Session("eCartCheckoutForm_cvv")%>" />
  <input type="hidden" name="firstname" id="firstname" value="<%=Session("eCartCheckoutForm_firstname")%>" />
  <input type="hidden" name="lastname" id="lastname" value="<%=Session("eCartCheckoutForm_lastname")%>" />
  <input type="hidden" name="email" id="email" value="<%=Session("eCartCheckoutForm_email")%>" />
  <input type="hidden" name="phone" id="phone" value="<%=Session("eCartCheckoutForm_phone")%>" />
  <input type="hidden" name="fax" id="fax" value="<%=Session("eCartCheckoutForm_fax")%>" />
  <input type="hidden" name="street1" id="street1" value="<%=Session("eCartCheckoutForm_street1")%>" />
  <input type="hidden" name="street2" id="street2" value="<%=Session("eCartCheckoutForm_street2")%>" />
  <input type="hidden" name="city" id="city" value="<%=Session("eCartCheckoutForm_city")%>" />
  <input type="hidden" name="state_province" id="state_province" value="<%=Session("eCartCheckoutForm_state_province")%>" />
  <input type="hidden" name="postcode" id="postcode" value="<%=Session("eCartCheckoutForm_postcode")%>" />
  <input type="hidden" name="country" id="country" value="<%=Session("eCartCheckoutForm_country")%>" />
  <input type="image" name="Submit_order" id="Submit_order"  value="Checkout" alt="Submit order" src="../WA_eCart/Images/Cabo Sunset/Btn2_EN_submitorder.gif"  />            </td>
			  </tr>
        </table>
		  </form>
	  </div>
  </div>
  
	</div>
</div>
<!-- InstanceEndEditable --></div>
  <div id="footer"><!-- InstanceBeginEditable name="footerlinks" -->
    <div id="sitedesigned">© <span class="netsolva">Recruta Ltd</span> 2007 -
      <script src="../scripts/copyrightdate.js" type="text/javascript"></script>
    All Rights Reserved | <a href="../terms/termsandconditions.asp">Terms &amp; Conditions</a> | <a href="../terms/privacypolicy.asp">Privacy Policy</a> | <a href="../terms/disclaimer.asp">Disclaimer</a> | <a href="../admin/login.asp">Webmaster</a></div>
    <!-- InstanceEndEditable -->
    <div id="copyright">
      <div id="footer2">
        <div id="copyright2"><a href="http://www.recruta.co.uk/" target="_blank">Job Board Design and Hosting by Recruta</a></div>
      </div>
    </div>
</div></div>
 
</body>
<!-- InstanceEnd --></html>
<%
ppdata.Close()
Set ppdata = Nothing
%>
<%
Banner.Close()
Set Banner = Nothing
%>
<%
SiteBanner.Close()
Set SiteBanner = Nothing
%><%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
administrator.Close()
Set administrator = Nothing
%>
<%
monthlyuser.Close()
Set monthlyuser = Nothing
%>
<%
ADVERTUSERS.Close()
Set ADVERTUSERS = Nothing
%>
<%
news.Close()
Set news = Nothing
%><%
muser.Close()
Set muser = Nothing
%>
<%
valueclick.Close()
Set valueclick = Nothing
%>
[+][-]08/04/09 06:57 AM, ID: 25013845Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]08/04/09 06:59 AM, ID: 25013861Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]08/04/09 07:00 AM, ID: 25013877Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]08/04/09 07:01 AM, ID: 25013890Author Comment

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 30-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]08/04/09 07:13 AM, ID: 25014018Author Comment

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 30-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]08/04/09 07:21 AM, ID: 25014094Accepted Solution

View this solution now by starting your 30-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

About this solution

Zone: Active Server Pages (ASP)
Tags: Microsoft VBScript runtime error '800a01b6'
Sign Up Now!
Solution Provided By: Badotz
Participating Experts: 2
Solution Grade: A
 
[+][-]08/04/09 07:32 AM, ID: 25014222Assisted Solution

Assisted solutions are selected by the member who asked the question as a comment that contributed to their question's solution.

Start your 30-day free trial to view this Assisted Solution or ask the Experts your question.

 
[+][-]08/12/09 06:55 AM, ID: 25078721Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
 
Loading Advertisement...
20091111-EE-VQP-89 - Hierarchy / EE_QW_3_20080625