Hi

can anyone help me with this rather traitorous question

I'm putting a small search page in a friend's website (which is not 
cf-enabled, unfortunately)

The search results code I want is (in coldfusion):

<cfquery name="get_titles" datasource="gaslight_cf" dbtype="ODBC">
SELECT tbl_category.category, shstock.BOOKNUM, shstock.TITLE, 
shstock.Author, shstock.PRICE, shstock.CategoryID
FROM tbl_category INNER JOIN shstock ON tbl_category.category_id = 
shstock.CategoryID
WHERE 0=0

<CFLOOP INDEX="i" FROM="1" TO="#ListLen(Title, ' ')#">   AND Title LIKE 
'%#ListGetAt(Title, i, " ")#%' </CFLOOP>
<CFLOOP INDEX="i" FROM="1" TO="#ListLen(Author, ' ')#">   AND Author LIKE 
'%#ListGetAt(Author, i, " ")#%' </CFLOOP>
<CFIF Len(FORM.Category_id)>
AND shstock.CategoryID=#FORM.Category_id#
</CFIF>

ORDER BY Title

</CFQUERY>


Is anyone able to translate the middle bit to VBScript for me, please
ie
<CFLOOP INDEX="i" FROM="1" TO="#ListLen(Title, ' ')#">   AND Title LIKE 
'%#ListGetAt(Title, i, " ")#%' </CFLOOP>
<CFLOOP INDEX="i" FROM="1" TO="#ListLen(Author, ' ')#">   AND Author LIKE 
'%#ListGetAt(Author, i, " ")#%' </CFLOOP>
<CFIF Len(FORM.Category_id)>
AND shstock.CategoryID=#FORM.Category_id#
</CFIF>


MTIA

Seamus

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Your ad could be here. Monies from ads go to support these lists and provide more 
resources for the community. http://www.fusionauthority.com/ads.cfm
FAQ: http://www.thenetprofits.co.uk/coldfusion/faq
Archives: http://www.mail-archive.com/[email protected]/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists

Reply via email to