README.md

Description

Hi Friends,This is my 2nd submission in PSC. I am sure you will like this ADO Search Engine Function. Vote for me if you like it. Feel free to give his to your friends. You Commends and suggestion are welcomed.Please vote, thank you! johnmanavalan@hotmail.com or Call Me 00-91-487-422353

More Info

Submitted On
By	John Manavalan
Level	Intermediate
User Rating	3.2 (16 globes from 5 users)
Compatibility	ASP (Active Server Pages), HTML, VbScript (browser/client side)

Category |ASP Server Object Model World |ASP / VbScript Archive File |

Source Code

Public Function search(a)
' Name: ADO Search Engine Function
' By: JohnManavalan@hotmail.com
' PLEASE take the time and vote for Me
' http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=7655&lngWId=4
search = "select * from search where"
Dim words
For Each words In Split(a, " ")
If Len(Trim(words)) > 0 Then search = search & " keyword LIKE '%" & words & "%' and "
Next
search = Mid(search, 1, Len(search) - 5)
End Function