VP-ASP :: Shopping Cart Software

Shopping Cart Software Solutions for anywhere in the World

US/Canada(Toll Free): +1 888 587 2278
Europe/UK: +44 (020) 7193 9408
Australia/New Zealand: +61 3 9016 4497

VP-ASP Shopping Cart Customer Forum

Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 VPCart Forum
 General help me questions
 Variable Undefined Error
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

cvelzke
Starting Member

12 Posts

Posted - August 30 2007 :  10:42:12  Show Profile  Visit cvelzke's Homepage  Reply with Quote
I'm getting the following Microsoft VBScript Runtime Error when bringing up shopcustcontact.asp and shopcustadmin.asp.

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'dbc'

/shopfileio.asp, line 1824

This occured after replacing <h2> tags with <img> tags in my shoppage_header.htm file. All other pages are working fine.

Thanks!

support
Administrator

4266 Posts

Posted - August 31 2007 :  00:51:32  Show Profile  Visit support's Homepage  Reply with Quote
Hi there,

Can you paste the actual line of code so we can see what has been done?

Thanks
cam

VP-ASP Support
Go to Top of Page

cvelzke
Starting Member

12 Posts

Posted - August 31 2007 :  08:17:33  Show Profile  Visit cvelzke's Homepage  Reply with Quote
I'm guessing this is what you need to see. . .

Sub Handle_translate (value,parsearray, ParseRs)
'****************************************************************
' [Translate cdescription products]
' [translate catdescription categories]
'*****************************************************************
dim tokens, fieldname, table, idfield, idvalue, currentvalue
dim fieldvalue, fieldtype, rc, ucfieldname
tokens=parsearray(ptokens)
fieldvalue=value
fieldname=tokens(1)
table=tokens(2)
if table = "" then
table = getsess("table")
end if
if table="" then
table="products"
else
table=lcase(table)
end if
if fieldname="" then
value=" Unknown field to translate "
exit sub
end if
idfield=parsearray(pidfield)
idvalue=parsearray(pidvalue)
' get current value in database
ucfieldname=ucase(fieldname)
value=translatelanguage(dbc, table, fieldname,idfield, idvalue, fieldvalue)
end sub

Thanks,
Carl
Go to Top of Page

support
Administrator

4266 Posts

Posted - August 31 2007 :  08:21:05  Show Profile  Visit support's Homepage  Reply with Quote
Hi Carl,

This is going to be best posted in our online help desk at:

https://www.vpasp.com/virtprog/helpdesk/

Thanks
Cam

VP-ASP Support
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000