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
 suppress the additional feature cost ie. [2.00]
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

mitchman
Starting Member

8 Posts

Posted - October 12 2005 :  08:53:09  Show Profile  Reply with Quote
How can I suppress the additional feature cost ie. [2.00] from the selectlist dropdown functionality?

bluesky
VP-ASP Super User

302 Posts

Posted - October 13 2005 :  05:18:07  Show Profile  Reply with Quote
I would like to know to , it a bit of a dogs dinner the way it shows the extra to add its confusing and unattractive , anybody any ideas how to tidy this up

PAUL

Go to Top of Page

mitchman
Starting Member

8 Posts

Posted - October 20 2005 :  07:46:10  Show Profile  Reply with Quote
I was able to make this work by modifying this sub on shopproductfeaturesgenerate.asp:


Sub GenerateSelectList
Dim PArray,PArrayCount, selectlistvalue,images,display
dim checkname, valuename,pos,sselecttemp
images=""
' A select list is actually data in the products table selectlist field
If not isnull(strfeatureOther) Then
GetSelectListValue strfeatureother, selectlistvalue
if selectlistvalue="" then
exit sub
else
strselectlist=selectlistvalue
end if
end if
If isNull(strSelectList) then exit sub
dim i
valuename=fprefix & Prodindex & "FeatureValue" & fcount
checkname=fprefix & Prodindex & "Feature" & fcount
sSelect = ProdFeatureCaption & strFeatureCaption & ProdFeatureCaptionEnd
sSelect = sSelect & "<select size=1 name='" & valuename & "'>"
sSelect = sSelect & "<option selected>" & getlang("langCommonSelect") & "</option>"

Parray=Split(strSelectList,",")

Parraycount=ubound(parray)

for i = 0 to parraycount

pos = InStrRev(Parray(i), "[")
if pos > 0 then

pos=pos-1

display = left(Parray(i),pos)
else
display = Parray(i)
end if
sSelect = sSelect & "<option value="&Parray(i)&">" & display & "</option>"
next
sSelect= sSelect & "</select>"
addfeatureimage images
If images<>"" Then
writefeatureimages images
end if
Response.write sSelect
Response.Write "<input type=hidden name='" & checkname& "' value=" & Chr(34) & lngFeatureid & Chr(34) & ">"
end Sub




Edited by - mitchman on October 20 2005 07:46:47
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000