savvymedias
VP-CART New User
191 Posts |
Posted - September 26 2007 : 08:31:55
|
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 |
|
|