My search form is found at:

[url]http://munzamedia.co.uk/markasp/basic%20DB%20project%20-%20netskills/search.htm[/url]

...but when I enter a search, there is an error message about my output.asp
file. This asp file contains this code:

--------------------------------------------------------------------

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<BODY>

<%
If request.querystring("company")= "" then %>
<p>Try Again</p>
<%
response.end
end if
'the above lines 5-10 check t osee if NOTHING has been entered into the search
box. If there is nothing, it will print to the screen 'try again'. Otherwise it
will carry on reading the rest of this page's ASP.

'Set ObjDbConnection = Server.Createobject("ADODB.Connection")
'ObjDbConnection.Open "MHTESTDB"
'dsn connection
'The above lines make a database connection, and open up my connection for
this site (which is unthank and is called MHTESTDB)
'It knows to open the database called 'mark_school.mdb' from unthank because I
told it to link to that database when I set up the connection.

'dsn less connection
DIM objConnection
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & Server.MapPath ("/mydatabase.mdb") & ";"
objConnection.Open
'sets up the database connection to the root directory of the server i.e.
ftp.munzamedia.co.uk/mydatabase.mdb


SQLQuery = "SELECT * FROM customers WHERE company LIKE '"
SQLQuery = SQLQuery & request.Querystring ("company") & "%'"
'takes the word/s entered into the search form and processes them to create an
SQL query. It will search the 'company' column and compare the results with the
search form output. If the search box results are like the company fields in
the database, we will get a result output. So if the user enters 'o', they will
get the result of 'orange'.

'Or, for a more simple search (user has to enter exact spelling of the record):
'SQLQuery = "SELECT * FROM customers WHERE company = '"
'SQLQuery = SQLQuery & request.Querystring ("company") & "'"

DIM RScompanysearch
Set RScompanysearch = ObjDbConnection.Execute(SQLQuery)
'creates a recordset called RSCompanysearch which is where the info from the
DB gets stored when queried.
%>

Your search results:<br><br>

<%
count=0

'declares VAR count = 0

Do While Not RSCompanysearch.Eof
'keep doing this until you reach the end of the file
%>


<%=RSCompanysearch("company")%>
<%count=count+1
'if there is a field found that matches, 1 gets added to count.
%>

<BR>


<%
RSCompanysearch.Movenext
Loop
%>

<%If count <1 then%>
Sorry nothing matches <%=request.Querystring ("company")%>
<%end if
'If no records have bee nfound (i.e. if count still = 0, display 'sorry
nothing matches'. This code combined with the code in lines 5-10 checks against
two different scenarios where the results don't match or no search has taken
place.
%>

</BODY>
</HTML>

------------------------------------------------

Can someone help me please? Are there good resources online I can use to help
me with simple searcheable databases, and in displaying the data found from
databases on webpages?

Thanks.
Mark