Seamus,
I wrote the VBScript you needed, however I have a couple questions.
Will your Title variable ever have spaces in it?
If so, you will need to change your delimiter from
a space to something more reliable like a pipe or comma.
In the sections where I response.write, you will most likely want to change
them to variables, appending each new SQL statement to the previous.
Here is a working VBScript example:
<pre>
<code>
<%
' author: Joseph DeVore
' date: Saturday, November 17, 2001
dim arTitle, arAuthor, i
' create temp list of titles
title="this_example that_example his_example"
' create temp list of authors
author="devore forta helms"
' split lists into arrays
arTitle = split(Title," ")
arAuthor = split(Author," ")
' loop over title array
for i=0 to ubound(arTitle)
' write response to client
response.write("AND Title LIKE '%" & arTitle(i) & "%'" & vbcrlf)
next
' loop over author array
for i=0 to ubound(arAuthor)
' write response to client
response.write("AND Author LIKE '%" & arAuthor(i) & "%'" & vbcrlf)
next
' if length of form.category_id
if len(request.form("category_id")) then
' write response to client
response.write("AND shstock.CategoryID=" & request.form("category_id") & ""
& vbcrlf)
end if
%>
</code>
</pre>
Let me know what you think or if you have any questions.
Joseph DeVore
VeloxWeb Technologies
-----Original Message-----
From: Seamus Campbell [mailto:[EMAIL PROTECTED]]
Sent: Friday, November 16, 2001 8:40 PM
To: CF-Talk
Subject: traitorous question re VBScript
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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Structure your ColdFusion code with Fusebox. Get the official book at
http://www.fusionauthority.com/bkinfo.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
