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
 Customize Search
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

skynet104
VP-ASP New User

92 Posts

Posted - October 22 2009 :  14:46:44  Show Profile  Reply with Quote
Before when using version 5.0 I just to have my shopquery.asp modified with the following code, in order to have the search eliminate the commans and spaces or when the first and last name were inverted, however in 6.5 i don't really know how to apply this code, here is the code:

on error resume next
firsttime="TRUE"
SQL = "SELECT * FROM Products "
if Request("wname") <>"" then
wname = request("wname")
fname = mid(wname,1,instr(wname," ")-1)
lname = mid(wname,instr(wname," ") + 1,len(wname))
else
fname = ucase(Request("fname"))
response.write("fname=" & fname & "] <br>")
lname = ucase(Request("lname"))
response.write("lname=" & lname & "] <br>")
end if
sql = "select * from products where hide=0 and cname like '" & lname & "%' and rtrim(cname) like '%" & fname & "'"
'sql = sql & " ORDER BY " & xSortProducts
'response.write ("sql=" & sql & "<br>")
'response.end
end sub
'
SUB AddSQL (strname,strvalue, SQL)
dim fieldtype
strname=Ucase(strname)
CheckValidField strname, rc, fieldtype
if rc>0 then
exit sub
end if
if Fieldtype ="Number" or FieldType="Currency" then

end if


Any Ideas?
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000