|
mitchman
Starting Member
8 Posts |
 Posted - October 20 2005 : 07:46:10
|
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 |
 |
|
All Forums
suppress the additional feature cost ie. [2.00]
New Topic
Printer Friendly
Topic 
TrustGuard - PCI Security Scanner
