Please Help Advanse Search, two parts are working, the 3rd to connect.

**Bob Barrows [MVP]** · Aug 21 '08, 07:55 PM

Re: Please Help Advanse Search, two parts are working, the 3rd to conn

Old Pedant wrote:
*************** ****

>
*NEVER* bother checking BOF. Pointless.

.... unless navigation in the recordset has occurred, or records have
been deleted from it. :-)

If you had added " ... immediately after opening the recordset." I would
have had no comment.
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

**=?Utf-8?B?T2xkIFBlZGFudA==?=** · Aug 21 '08, 08:35 PM

Re: Please Help Advanse Search, two parts are working, the 3rd to

"Bob Barrows [MVP]" wrote:

If you had added " ... immediately after opening the recordset." I would
have had no comment.

Yah, I know. But in 8 years of writing ASP code (which I no longer do
except for a couple of pro bono non-profit org sites) I never once had a
reason to use or need a BOF test. I think the exceptions are so rare that
saying "never" is better than bothering to describe the exceptions that will
(in practice) not be encountered.

Oh...and in over 86,000 posts I made on the ASPMessageBoard site, answering
all sorts of questions, never once did anybody have any code that needed the
BOF test, either. ( http://www.aspmessageboard.com/scripts/topPosters.asp )

Sometimes, even for an old pedant, it's not worth expounding the theory when
the practice is so overwhelmingly one-sided.

It's nice to meet somebody even more pedantic than I am. <grin/>

p.s.: Actually, I gave myself that name because of my penchant for
correcting English syntax, not code syntax. <grin style="monstrou s" />

**iahamed via WebmasterKB.com** · Aug 23 '08, 05:25 AM

Re: Please Help Advanse Search, two parts are working, the 3rd to

Hello Bob Barrows, and Old Pedant,

I thank you so much for the response I am sorry for the late reply, and thank
you for the speedy response to help the needy. I am testing my code.

Thank you so much Old Pedant.

Old Pedant wrote:

>If you had added " ... immediately after opening the recordset." I would
>have had no comment.

>
>Yah, I know. But in 8 years of writing ASP code (which I no longer do
>except for a couple of pro bono non-profit org sites) I never once had a
>reason to use or need a BOF test. I think the exceptions are so rare that
>saying "never" is better than bothering to describe the exceptions that will
>(in practice) not be encountered.
>
>Oh...and in over 86,000 posts I made on the ASPMessageBoard site, answering
>all sorts of questions, never once did anybody have any code that needed the
>BOF test, either. ( http://www.aspmessageboard.com/scripts/topPosters.asp )
>
>Sometimes, even for an old pedant, it's not worth expounding the theory when
>the practice is so overwhelmingly one-sided.
>
>It's nice to meet somebody even more pedantic than I am. <grin/>
>
>p.s.: Actually, I gave myself that name because of my penchant for
>correcting English syntax, not code syntax. <grin style="monstrou s" />

--
Message posted via http://www.webmasterkb.com

**=?Utf-8?B?T2xkIFBlZGFudA==?=** · Aug 23 '08, 07:45 PM

Re: Please Help Advanse Search, two parts are working, the 3rd to

"iahamed via WebmasterKB.com " wrote:

My Database Table Name is "1SalaryDB"

TABLE name??? Or FIELD name???

In either case, you need to put the name between [...] because a name that
starts with a digit will be seen as a number and then an error, otherwise.

If it's the TABLE name, then you need to code
SQL = "SELECT * FROM [1SalaryDB] WHERE 1=1 "

If it's the FIELD name, then leave the table name alone and change

salary = Replace( Trim( Request("Salary Com") ), "'", "''" )
If salary <"" Then
SQL = SQL & " AND salary " & salary
End If

To

salary = Replace( Trim( Request("Salary Com") ), "'", "''" )
If salary <"" Then
SQL = SQL & " AND [1SalaryDB] " & salary
End If

************

No matter what, your code doing
SQL = SQL & " AND " & 1SalaryDB & " LIKE '%" & keyword & "%' "
makes no sense at all.

You can't have a VBScript variable that starts with a digit.

**iahamed via WebmasterKB.com** · Aug 24 '08, 05:55 AM

Re: Please Help Advanse Search, two parts are working, the 3rd to

salary = Replace( Trim( Request("Salary Com") ), "'", "''" )
If salary <"" Then
SQL = SQL & " AND [1SalaryDB] " & salary
End If

I am confused with the "whatToSear ch", and the above "salary" in the detailed
given. However adding SQL = "SELECT * FROM Employees WHERE 1=1 " makes my
rest of the Search options codes collapse that is:

If Request.Form("A SPDBCatSearch") = "LastName" Then
SQL = SQL & " WHERE LastName LIKE '%" & Request.Form("k eyword") & "%'"
End If

If Request.Form("A SPDBCatSearch") = "Title" Then
SQL = SQL & " WHERE Title LIKE '%" & Request.Form("k eyword") & "%'"
End If

If Request.Form("A SPDBCatSearch") = "Division" Then
SQL = SQL & " WHERE Division LIKE '%" & Request.Form("k eyword") & "%'"
End If

Thank for the Help Anyway I will find someone to Code the third part for me.

Good luck Old Pedant.

--
Message posted via WebmasterKB.com

http://www.webmasterkb.com/Uwe/Forums.aspx/asp/200808/1

**=?Utf-8?B?T2xkIFBlZGFudA==?=** · Aug 26 '08, 07:35 PM

Re: Please Help Advanse Search, two parts are working, the 3rd to

"iahamed via WebmasterKB.com " wrote:

Set aspdbweb = Server.CreateOb ject("ADODB.Con nection")
aspdbweb = "Provider=Micro soft.Jet.OLEDB. 4.0; Data Source=" & Server.MapPath
("employees.mdb ") & ";"
>
>
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'aspdbweb'
/GoodASPDBsearch/Searchengineres ults.asp, line 37
>
Line no 37 is: Set rsglobal = aspdbweb.Execut e( SQL )

************

Sorry! Minor typo on my part.

The problem is actually on this line:
aspdbweb = "Provider=Micro soft.Jet.OLEDB. 4.0; Data Source=" &
Server.MapPath ("employees.mdb ") & ";"

That SHOULD be

aspdbweb.OPEN "Provider=Micro soft.Jet.OLEDB. 4.0; " _
& "Data Source=" & Server.MapPath( "employees.mdb" ) & ";"

I don't know how/why I put an equals sign there instead of the call to .OPEN

See, though, it DOES help to tell us what errors you get! This one was an
easy fix to find, once I saw the error message and you told me what line had
the error! Good posting.

**iahamed via WebmasterKB.com** · Aug 27 '08, 04:05 AM

Re: Please Help Advanse Search, two parts are working, the 3rd to

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/GoodASPDBsearch/Searchengineres ults.asp, line 13

Thats the error I get Sir, and I did try with other various connection
methods its just asking the line no 13.

aspdbweb.OPEN "Provider=Micro soft.Jet.OLEDB. 4.0; " & "Data Source=" & Server.
MapPath("employ ees.mdb") & ";"

Other connection methods I tried:
'aspdbweb.Open "Provider=Micro soft.Jet.OLEDB. 4.0; Data Source=" & "" &
Request.ServerV ariables("APPL_ PHYSICAL_PATH") & "employees. mdb"

Thank you.

Rgds.

Old Pedant wrote:

>Set aspdbweb = Server.CreateOb ject("ADODB.Con nection")
>aspdbweb = "Provider=Micro soft.Jet.OLEDB. 4.0; Data Source=" & Server.MapPath

>[quoted text clipped - 6 lines]

>>
>Line no 37 is: Set rsglobal = aspdbweb.Execut e( SQL )

>
>************
>
>Sorry! Minor typo on my part.
>
>The problem is actually on this line:
aspdbweb = "Provider=Micro soft.Jet.OLEDB. 4.0; Data Source=" &
>Server.MapPa th ("employees.mdb ") & ";"
>
>That SHOULD be
>
aspdbweb.OPEN "Provider=Micro soft.Jet.OLEDB. 4.0; " _
& "Data Source=" & Server.MapPath( "employees.mdb" ) & ";"
>
>I don't know how/why I put an equals sign there instead of the call to .OPEN
>
>See, though, it DOES help to tell us what errors you get! This one was an
>easy fix to find, once I saw the error message and you told me what line had
>the error! Good posting.

--
Message posted via WebmasterKB.com

http://www.webmasterkb.com/Uwe/Forums.aspx/asp/200808/1

**=?Utf-8?B?T2xkIFBlZGFudA==?=** · Aug 27 '08, 11:25 PM

Re: Please Help Advanse Search, two parts are working, the 3rd to

"iahamed via WebmasterKB.com " wrote:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/GoodASPDBsearch/Searchengineres ults.asp, line 13
>
Thats the error I get Sir, and I did try with other various connection
methods its just asking the line no 13.
>
aspdbweb.OPEN "Provider=Micro soft.Jet.OLEDB. 4.0; " & "Data Source=" & Server.
MapPath("employ ees.mdb") & ";"

I can't see how the actual connection string used would have any impact on
that particular error message.

When it complains about "object required" inevitably that means that you are
using an expression of the form
objectName.meth odOrPropertyNam e
and the "objectName " is not really an object.

If you have those two lines in a row *EXACTLY* as

Set aspdbweb = Server.CreateOb ject("ADODB.Con nection")
aspdbweb.Open "Provider=Micro soft.Jet.OLEDB. 4.0; " _
& "Data Source=" & Server.MapPath( "employees.mdb" ) & ";"

Then I honestly have no idea what the cause of that error is.

If you want to, post the full code (at least, say, the first 50 lines?)
here. Again.

**=?Utf-8?B?T2xkIFBlZGFudA==?=** · Aug 28 '08, 08:45 PM

Re: Please Help Advanse Search, two parts are working, the 3rd to

"iahamed via WebmasterKB.com " wrote:

ASP Code as requested to paste:
------------------------------------------------------
<%
>
Dim SQL
>
'aspdbweb.Open "Provider=Micro soft.Jet.OLEDB. 4.0; Data Source=" & "" &
Request.ServerV ariables("APPL_ PHYSICAL_PATH") & "employees. mdb"
aspdbweb.OPEN "Provider=Micro soft.Jet.OLEDB. 4.0; " & "Data Source=" & Server.
MapPath("employ ees.mdb") & ";"
>
'Set aspdbweb = Server.CreateOb ject("ADODB.Con nection")
'aspdbweb = "Provider=Micro soft.Jet.OLEDB. 4.0; Data Source=" & Server.MapPath
("employees.mdb ") & ";"
>
'My Old SQL = "SELECT * FROM Employees"
'WHERE 1=1 is sneaky trick so we can use AND for other conditions
SQL = "SELECT * FROM Employees WHERE 1=1"
>
' the REPLACE calls are to protect against SQL injection
whatToSearch = Replace( Trim( Request("ASPDBC atSearch") ), "'", "''" )
keyword = Replace( Trim( Request("Keywor d") ), "'", "''" )
>
.. et cetera ...

If you would GET RID of all the commented-out lines, you would easily see
your problem. And, indeed, it is EXACTLY what I said it was. Thus:

<%
Dim SQL
aspdbweb.OPEN "Provider=Micro soft.Jet.OLEDB. 4.0; " & "Data Source=" &
Server.MapPath( "employees.mdb" ) & ";"

SQL = "SELECT * FROM Employees WHERE 1=1"

' the REPLACE calls are to protect against SQL injection
whatToSearch = Replace( Trim( Request("ASPDBC atSearch") ), "'", "''" )
keyword = Replace( Trim( Request("Keywor d") ), "'", "''" )

.... et cetera ...

See? After we get rid of your commented-out code, it is easy to see that
you are doing
aspdbweb.OPEN
but you are *NOT* doing
Set aspdbweb = Server.CreateOb ject("ADODB.Con nection")
*before* the OPEN line!!!

You MUST MUST MUST create objects *BEFORE* you try to use them!

I know that lots of beginners leave in old code just so they don't have to
retype it if they change their minds. I think that's a mistake. Instead,
keep copies of your files (I make copies with the copy dates in their names.
Example: I'll copy "test.asp" to "test.20080828. asp") and then really and
truly get rid of the deleted code. Now it's easier to see what code is
*ACTUALLY* in there!

**iahamed via WebmasterKB.com** · Aug 30 '08, 07:25 AM

Re: Please Help Advanse Search, two parts are working, the 3rd to

As you said the changes were made but I cannot Understand the querry Sir,
which was disseminated by you. This style I am not Sure: please bear with me
for being ignorant.

If salary <"" Then
SQL = SQL & " AND [1SalaryDB] " & salary
End If

The error is on that now:

Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression '1SalaryDB'.
/GoodASPDBsearch/Searchengineres ults.asp, line 32

1SalaryDB is the Field name Sir, and the Table name is: Employees.

Thank you for your patience.

--
Message posted via WebmasterKB.com

http://www.webmasterkb.com/Uwe/Forums.aspx/asp/200808/1

**=?Utf-8?B?T2xkIFBlZGFudA==?=** · Aug 30 '08, 09:27 PM

Re: Please Help Advanse Search, two parts are working, the 3rd to

"iahamed via WebmasterKB.com " wrote:

As you said the changes were made but I cannot Understand the querry Sir,
which was disseminated by you. This style I am not Sure: please bear with me
for being ignorant.
>
If salary <"" Then
SQL = SQL & " AND [1SalaryDB] " & salary
End If
>
The error is on that now:
>
Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression '1SalaryDB'.
/GoodASPDBsearch/Searchengineres ults.asp, line 32
>
1SalaryDB is the Field name Sir, and the Table name is: Employees.

It's time to debug.

*IN PLACE OF* the line
Set rsglobal = aspdbweb.Execut e( SQL )
in your code, put in these two lines (just temporarily!)
Response.Write "DEBUG SQL: " & SQL
Response.End
and then show me what that DEBUG output shows you.

But going back and forth like this in the forum is way too slow. Why don't
you just email me the results???

Also, email me both the FORM page and this form processing page, just so I
can make sure I didn't mislead you.

You can send them to me at either the address this group gives for me or at
asp ATSIGN juncojunction PERIOD com
(that is, where ATSIGN is @ and PERIOD is . )

Look for a response from "bill wilkinson"

**iahamed via WebmasterKB.com** · Aug 31 '08, 04:15 AM

Re: Please Help Advanse Search, two parts are working, the 3rd to

Sir thank you so much when add that code it did propound the values as pure
write and no error! O!
However When run the app it encounters the issue.

Sir I did mail to asp ATSIGN juncojunction PERIOD com thank you so much for
the help. And may your generosity full fill your needs in all ways.

Thank you So much Old Pedant.

Thank you.

--
Message posted via WebmasterKB.com

http://www.webmasterkb.com/Uwe/Forums.aspx/asp/200808/1

Please Help Advanse Search, two parts are working, the 3rd to connect.

Please Help Advanse Search, two parts are working, the 3rd to connect.

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment