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
 Customization
 Adding Fields to Affiliate Table
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

savvymedias
VP-ASP New User

191 Posts

Posted - September 25 2007 :  11:15:54  Show Profile  Visit savvymedias's Homepage  Reply with Quote
I need to add several (about ten) fields to the affiliate table. I added them to the database and to various pages, but I seem to be missing something, as the registration page says "Variable is undefined" on each one.

Does anyone have a list of pages that need to be altered? I did a search for all of the pages with the affiliate name and tried to change accordingly, but something is off.

Thanks.

savvymedias
VP-ASP New User

191 Posts

Posted - September 26 2007 :  08:31:55  Show Profile  Visit savvymedias's Homepage  Reply with Quote
Something is not being defined; however, I am not sure where I have missed a definition. I am getting errors on everything.

Microsoft VBScript runtime error '800a01f4'

Variable is undefined:


This is what I had originally done:

* Inserted fields into affiliate table of database:
group
title
checkfirstname
checklastname
checkgroup
checktitle
checkaddress
checkcity
checkstate
checkpostcode
checkphone
checkemail
blurb
image

* Added to Shopaffio.asp
Line 18
dim affstrgroup
dim affstrtitle
dim affstrcheckfirstname
dim affstrchecklastname
dim affstrcheckgroup
dim affstrchecktitle
dim affstrcheckaddress
dim affstrcheckcity
dim affstrcheckstate
dim affstrcheckpostcode
dim affstrcheckphone
dim affstrcheckemail
dim affstrblurb
dim affstrimage

Line 97
updateaff "group", affstrgroup
updateaff "title", affstrtitle
updateaff "checkfirstname", affstrcheckfirstname
updateaff "checklastname", affstrchecklastname
updateaff "checkgroup", affstrcheckgroup
updateaff "checktitle", affstrchecktitle
updateaff "checkaddress", affstrcheckaddress
updateaff "checkcity", affstrcheckcity
updateaff "checkstate", affstrcheckstate
updateaff "checkpostcode", affstrcheckpostcode
updateaff "checkphone", affstrcheckphone
updateaff "checkemail", affstrcheckemail
updateaff "blurb", affstrblurb
updateaff "image", affstrimage

Line 165
affstrgroup = ""
affstrtitle = ""
affstrcheckfirstname = ""
affstrchecklastname = ""
affstrcheckgroup = ""
affstrchecktitle = ""
affstrcheckaddress = ""
affstrcheckcity = ""
affstrcheckstate = ""
affstrcheckpostcode = ""
affstrcheckphone = ""
affstrcheckemail = ""
affstrblurb = ""
affstrimage = ""
Line 208
affstrTitle = cleanchars(Request.Form("affstrTitle"))
affstrGroup = cleanchars(Request.Form("affstrGroup"))
affstrcheckfirstname = cleanchars(Request.Form("affstrcheckfirstname"))
affstrchecklastname = cleanchars(Request.Form("affstrchecklastname"))
affstrcheckgroup = cleanchars(Request.Form("affstrcheckgroup"))
affstrchecktitle = cleanchars(Request.Form("affstrchecktitle"))
affstrcheckaddress = cleanchars(Request.Form("affstrcheckaddress"))
affstrcheckcity = cleanchars(Request.Form("affstrcheckcity"))
affstrcheckstate = cleanchars(Request.Form("affstrcheckstate"))
affstrcheckpostcode = cleanchars(Request.Form("affstrcheckpostcode"))
affstrcheckphone = cleanchars(Request.Form("affstrcheckphone"))
affstrcheckemail = cleanchars(Request.Form("affstrcheckemail"))
affstrblurb = cleanchars(Request.Form("affstrblurb"))
affstrimage = cleanchars(Request.Form("affstrimage"))

Line 293
DoField getlang("LangCustgroup"), affstrgroup
DoField getlang("LangCusttitle"), affstrtitle
DoField getlang("LangCustcheckfirstname"), checkfirstname
DoField getlang("LangCustchecklastname"), checklastname
DoField getlang("LangCustcheckgroup"), checkgroup
DoField getlang("LangCustchecktitle"), checktitle
DoField getlang("LangCustcheckaddress"), checkaddress
DoField getlang("LangCustcheckcity"), checkcity
DoField getlang("LangCustcheckstate"), checkstate
DoField getlang("LangCustcheckpostcode"), checkpostcode
DoField getlang("LangCustcheckphone"), checkphone
DoField getlang("LangCustcheckemail"), checkemail
DoField getlang("LangCustblurb"), blurb
DoField getlang("LangCustimage"), custimage



* Added to shopaffregister.asp

Line 84

Response.Write "<br><br>Please provide the following contact information for the group or organization. This is to whom the checks will be written and mailed.<br><br>"

CreateCustRow getlang("LangCustcheckgroup"),"affstrcheckgroup",checkgroup,"Yes"
CreateCustRow getlang("LangCustcheckfirstname"),"affstrcheckfirstname",checkfirstname,"Yes"
CreateCustRow getlang("LangCustchecklastname"),"affstrchecklastname",checklastname,"Yes"
CreateCustRow getlang("LangCustchecktitle"),"affstrchecktitle",checktitle,"Yes"
CreateCustRow getlang("LangCustcheckaddress"),"affstrcheckaddress",checkaddress,"Yes"
CreateCustRow getlang("LangCustcheckcity"),"affstrcheckcity",checkcity,"Yes"
CreateCustRow getlang("LangCustcheckstate"),"affstrcheckstate",checkstate,"Yes"
CreateCustRow getlang("LangCustcheckpostcode"),"affstrcheckpostcode",checkpostcode,"Yes"
CreateCustRow getlang("LangCustcheckphone"),"affstrcheckphone",checkphone,"Yes"
CreateCustRow getlang("LangCustcheckemail"),"affstrcheckemail",checkemail,"Yes"

Line 145
affstrTitle = cleanchars(Request.Form("affstrTitle"))
affstrGroup = cleanchars(Request.Form("affstrGroup"))
affstrcheckfirstname = cleanchars(Request.Form("affstrcheckfirstname")
affstrchecklastname = cleanchars(Request.Form("affstrchecklastname")
affstrcheckgroup = cleanchars(Request.Form("affstrcheckgroup")
affstrchecktitle = cleanchars(Request.Form("affstrchecktitle")
affstrcheckaddress = cleanchars(Request.Form("affstrcheckaddress")
affstrcheckcity = cleanchars(Request.Form("affstrcheckcity")
affstrcheckstate = cleanchars(Request.Form("affstrcheckstate")
affstrcheckpostcode = cleanchars(Request.Form("affstrcheckpostcode")
affstrcheckphone = cleanchars(Request.Form("affstrcheckphone")
affstrcheckemail = cleanchars(Request.Form("affstrcheckemail")
affstrblurb = cleanchars(Request.Form("affstrblurb")
affstrimage = cleanchars(Request.Form("affstrimage")

Line 183
If affstrgroup = "" Then
sError = sError & getlang("LangCustgroup") & "<br />"
End If
If affstrtitle = "" Then
sError = sError & getlang("LangCustTitle") & "<br />"
End If
If affstrcheckfirstname = "" Then
sError = sError & getlang("LangCustCheckFirstname") & "<br />"
End If
If affstrchecklastname = "" Then
sError = sError & getlang("LangCustchecklastname") & "<br />"
End If
If affstrcheckgroup = "" Then
sError = sError & getlang("LangCustcheckgroup") & "<br />"
End If
If affstrchecktitle = "" Then
sError = sError & getlang("LangCustChecktitle") & "<br />"
End If
If affstrcheckaddress = "" Then
sError = sError & getlang("LangCustCheckaddress") & "<br />"
End If
If affstrcheckcity = "" Then
sError = sError & getlang("LangCustCheckcity") & "<br />"
End If
If affstrcheckstate = "" Then
sError = sError & getlang("LangCustCheckState") & "<br />"
End If
If affstrcheckpostcode = "" Then
sError = sError & getlang("LangCustCheckpostcode") & "<br />"
End If
If affstrcheckphone = "" Then
sError = sError & getlang("LangCustCheckphone") & "<br />"
End If
If affstrcheckemail = "" Then
sError = sError & getlang("LangCustcheckemail") & "<br />"
End If
If affstrblurb = "" Then
sError = sError & getlang("LangCustblurb") & "<br />"
End If
If affstrimage = "" Then
sError = sError & getlang("LangCustimage") & "<br />"
End If

Edited by - savvymedias on September 26 2007 08:33:04
Go to Top of Page

Kidd
VP-ASP Super User

Australia
373 Posts

Posted - September 27 2007 :  08:11:11  Show Profile  Reply with Quote
you are using a different variables on your createcustrow i.e
checkgroup, when you are declaring this variable you declare it as affstrcheckgroup
Go to Top of Page

savvymedias
VP-ASP New User

191 Posts

Posted - September 27 2007 :  08:35:14  Show Profile  Visit savvymedias's Homepage  Reply with Quote
Thanks.

Sometimes the obvious just gets away. Support replied as well.

It is working fine, but now there are language errors, so I will be working through those.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000