Type mismatch: ’openDb’ ?!

HI.

If U have made a site whit U'r DB connection in a inklude file U have to inklude the site om that site where U want to inklude the file !!

U'r inklude site can look like this:

<%

Dim objConn

Sub OpenDataBase(strDBPath)
 
  Dim strProvider

  strProvider = ""
  strProvider = strProvider & "Provider=Microsoft.Jet.OLEDB.4.0;"
 strProvider = strProvider & "Data Source=" & strDBPath & ";"
  strProvider = strProvider & "Persist Security Info=False"
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open strProvider
 
End Sub

Sub CloseDataBase
 
  objConn.Close
  Set objConn = Nothing
End Sub

%>

Sub OpenDataBase(strDBPath)
is U'r connection whitout the place where U'r db is !!!

Sub CloseDataBase
is the funktion that close U'r connection/db !!!!

In U'r site where u have the inklude file U have a code that look like U'rs

Call OpenDataBase()

OPENDATABASE is like the SUB name in the connection site But U will get an error because U don't have write where U/the site can find the DB som changes the Call OpenDataBase() to:

Call OpenDataBase("d:\web\aspsoftware.dk\www\aero\aero.mdb")

Then the site will work and kan find the DB and remember the close funktion in u'r connection site Sub CloseDataBase !!!

Call CloseDataBase    U have to write this in u'r bottom of u'r site !!!

Hope U understand my english and that this will help U !!

no

Call OpenDataBase("U'r connection road")

Call CloseDataBase 

DSN shut be in the connection site !!!

No I use that script !!

Or I use the script like this:

MY connecting site:

<%
Dim connStr

Sub OpenDB

        connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
        connStr = connStr & Server.MapPath("../nyhedscript/db/db.mdb")
          
End Sub

Sub CloseDB
 
  rs.Close
  Set rs = Nothing
End Sub

%>

My site that will show something from the DB

TOP:
<!--#include file="u'r connectsite.asp"-->

CONNECT:
Call OpenDB
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "select [Name],[Age] from TEST " & _
  "ORDER BY [Id] DESC", connStr, 3, 4

U'R CODE and then:
Call CloseDB

IT works for me !!! 

Hi. If U want 2 know more about:

- call openDb()
- Sub OpenDB

then I can recommend this good site and the site owner is also the code master 2 this EX. and have made the EX.

http://www.futte.dk/

klik on "Kode Eksempler" and the on "Database Connection til Access databaseer"  then U can se an EX.

BUT the site is in DANISH but have some good EX. !!!!!