I am a brand newbie to asp, i will appreciate your help with the 

connection string for my script.



My code for connecting the asp to MsAccess is:

<%@ Language=VBScript %>

<% Option Explicit %>

<!-- #include file="db.asp" -->

<!-- #include file="adovbs.inc" -->

<%



<%

'create recordset to show database categories

Dim Conn, rsCatalog

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

While Not rsCatalog.EOF

%>      



However i keep getting this error message:

Vbscript runtime error ASP 0185 3219

no suitable driver line 114



I will appreciate your help..



Greg.

When you call "conn.open ConString"  where is ConString declared?  If the

variable is left empty you would get such an error.



You need to declare something like:



	Connstring = ":driver={Microsoft Access Driver

(*.mdb)};DBQ=Server.MapPath("DBName.mdb")



Give that a shot and see how it works.



-Eli



-----Original Message-----

From: Rich Debonair [mailto:debonair47@h...]

Sent: Saturday, December 08, 2001 3:05 PM

To: ASP Database Setup

Subject: [asp_database_setup] asp_MsAccess set up with suitable driver





I am a brand newbie to asp, i will appreciate your help with the 

connection string for my script.



My code for connecting the asp to MsAccess is:

<%@ Language=VBScript %>

<% Option Explicit %>

<!-- #include file="db.asp" -->

<!-- #include file="adovbs.inc" -->

<%



<%

'create recordset to show database categories

Dim Conn, rsCatalog

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

While Not rsCatalog.EOF

%>      



However i keep getting this error message:

Vbscript runtime error ASP 0185 3219

no suitable driver line 114



I will appreciate your help..



Greg.




$subst('Email.Unsub')






$subst('Email.Unsub').

Hi

It seems you have an extra delimiter at line #5.

LH



-----Original Message-----

From: Rich Debonair [mailto:debonair47@h...]

Sent: Saturday, December 08, 2001 11:05 PM

To: ASP Database Setup

Subject: [asp_database_setup] asp_MsAccess set up with suitable driver





I am a brand newbie to asp, i will appreciate your help with the

connection string for my script.



My code for connecting the asp to MsAccess is:

<%@ Language=VBScript %>

<% Option Explicit %>

<!-- #include file="db.asp" -->

<!-- #include file="adovbs.inc" -->

<%



<%

'create recordset to show database categories

Dim Conn, rsCatalog

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

While Not rsCatalog.EOF

%>



However i keep getting this error message:

Vbscript runtime error ASP 0185 3219

no suitable driver line 114



I will appreciate your help..



Greg.




$subst('Email.Unsub')






$subst('Email.Unsub').

Good catch there Liem.  However, the extra '<%' would have warranted an

error such as:



Expected statement

/myfile.asp, line 5

<%



Cheers,

Eli



-----Original Message-----

From: Liem Hoang [mailto:liemh@h...]

Sent: Saturday, December 08, 2001 3:50 PM

To: ASP Database Setup

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable

driver





Hi

It seems you have an extra delimiter at line #5.

LH



-----Original Message-----

From: Rich Debonair [mailto:debonair47@h...]

Sent: Saturday, December 08, 2001 11:05 PM

To: ASP Database Setup

Subject: [asp_database_setup] asp_MsAccess set up with suitable driver





I am a brand newbie to asp, i will appreciate your help with the

connection string for my script.



My code for connecting the asp to MsAccess is:

<%@ Language=VBScript %>

<% Option Explicit %>

<!-- #include file="db.asp" -->

<!-- #include file="adovbs.inc" -->

<%



<%

'create recordset to show database categories

Dim Conn, rsCatalog

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

While Not rsCatalog.EOF

%>



However i keep getting this error message:

Vbscript runtime error ASP 0185 3219

no suitable driver line 114



I will appreciate your help..



Greg.




$subst('Email.Unsub')






$subst('Email.Unsub').








$subst('Email.Unsub')






$subst('Email.Unsub').

Eli I have done what you recommended using the below connection string, 

and substituting DBName for the actual DBName.mdb. 

<%

'create recordset to show database categories

Dim Conn, rsCatalog

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

	Connstring = ":driver={Microsoft Access Driver

(*.mdb)};DBQ=Server.MapPath("63db.mdb")"



Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

While Not rsCatalog.EOF

%>



Now I'm getting this error message.

   VBScript compilation error 1033 :

   Unterminated string constant

   line 115

Thanks Eli





> When you call "conn.open ConString"  where is ConString declared?  If the

> variable is left empty you would get such an error.

> 

> You need to declare something like:

> 

> 	Connstring = ":driver={Microsoft Access Driver

> (*.mdb)};DBQ=Server.MapPath("DBName.mdb")

> 

> Give that a shot and see how it works.

> 

> -Eli

> 

> -----Original Message-----

> From: Rich Debonair [mailto:debonair47@h...]

> Sent: Saturday, December 08, 2001 3:05 PM

> To: ASP Database Setup

> Subject: [asp_database_setup] asp_MsAccess set up with suitable driver

> 

> 

> I am a brand newbie to asp, i will appreciate your help with the 

> connection string for my script.

> 

> My code for connecting the asp to MsAccess is:

> <%@ Language=VBScript %>

> <% Option Explicit %>

> <!-- #include file="db.asp" -->

> <!-- #include file="adovbs.inc" -->

> <%

> 

> <%

> 'create recordset to show database categories

> Dim Conn, rsCatalog

> Set Conn = Server.CreateObject("ADODB.Connection")

> Conn.Open ConString

> Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

> While Not rsCatalog.EOF

> %>      

> 

> However i keep getting this error message:

> Vbscript runtime error ASP 0185 3219

> no suitable driver line 114

> 

> I will appreciate your help..

> 

> Greg.



eschilli@t...


> $subst('Email.Unsub')

> 




> $subst('Email.Unsub').

Hi Rich,

<% Dim Conn, rsCatalog, ConString

ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &

Server.MapPath("63db.mdb") & ";"

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

Set RSCatalog = Conn.Execute("Select * from catalogs")

While not rsCatalog.EOF

%>



Good luck

Liem Hoang





-----Original Message-----

From: Rich Debonair [mailto:debonair47@h...]

Sent: Sunday, December 09, 2001 5:09 PM

To: ASP Database Setup

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable

driver





Eli I have done what you recommended using the below connection string,

and substituting DBName for the actual DBName.mdb.

<%

'create recordset to show database categories

Dim Conn, rsCatalog

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

	Connstring = ":driver={Microsoft Access Driver

(*.mdb)};DBQ=Server.MapPath("63db.mdb")"



Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

While Not rsCatalog.EOF

%>



Now I'm getting this error message.

   VBScript compilation error 1033 :

   Unterminated string constant

   line 115

Thanks Eli





> When you call "conn.open ConString"  where is ConString declared?  If the

> variable is left empty you would get such an error.

>

> You need to declare something like:

>

> 	Connstring = ":driver={Microsoft Access Driver

> (*.mdb)};DBQ=Server.MapPath("DBName.mdb")

>

> Give that a shot and see how it works.

>

> -Eli

>

> -----Original Message-----

> From: Rich Debonair [mailto:debonair47@h...]

> Sent: Saturday, December 08, 2001 3:05 PM

> To: ASP Database Setup

> Subject: [asp_database_setup] asp_MsAccess set up with suitable driver

>

>

> I am a brand newbie to asp, i will appreciate your help with the

> connection string for my script.

>

> My code for connecting the asp to MsAccess is:

> <%@ Language=VBScript %>

> <% Option Explicit %>

> <!-- #include file="db.asp" -->

> <!-- #include file="adovbs.inc" -->

> <%

>

> <%

> 'create recordset to show database categories

> Dim Conn, rsCatalog

> Set Conn = Server.CreateObject("ADODB.Connection")

> Conn.Open ConString

> Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

> While Not rsCatalog.EOF

> %>

>

> However i keep getting this error message:

> Vbscript runtime error ASP 0185 3219

> no suitable driver line 114

>

> I will appreciate your help..

>

> Greg.



eschilli@t...


> $subst('Email.Unsub')

>




> $subst('Email.Unsub').






$subst('Email.Unsub')






$subst('Email.Unsub').

Hi Liem,

Thanks for your help, I tried the below code, and it gave the following 

error message-

VBScript compilation error 1002 :

Syntax error line 110



Inaddition I have double-checked the number of elements that make up an 

expression. 

Looked for misdirected brackets. Being a newbie at this I can easily 

double check wrongly. Thanks anyway.

Rich 





> Hi Rich,

> <% Dim Conn, rsCatalog, ConString

> ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &

> Server.MapPath("63db.mdb") & ";"

> Set Conn = Server.CreateObject("ADODB.Connection")

> Conn.Open ConString

> Set RSCatalog = Conn.Execute("Select * from catalogs")

> While not rsCatalog.EOF

> %>

> 

> Good luck

> Liem Hoang

> 

> 

> -----Original Message-----

> From: Rich Debonair [mailto:debonair47@h...]

> Sent: Sunday, December 09, 2001 5:09 PM

> To: ASP Database Setup

> Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable

> driver

> 

> 

> Eli I have done what you recommended using the below connection string,

> and substituting DBName for the actual DBName.mdb.

> <%

> 'create recordset to show database categories

> Dim Conn, rsCatalog

> Set Conn = Server.CreateObject("ADODB.Connection")

> Conn.Open ConString

> 	Connstring = ":driver={Microsoft Access Driver

> (*.mdb)};DBQ=Server.MapPath("63db.mdb")"

> 

> Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

> While Not rsCatalog.EOF

> %>

> 

> Now I'm getting this error message.

>    VBScript compilation error 1033 :

>    Unterminated string constant

>    line 115

> Thanks Eli

> 

> 

> > When you call "conn.open ConString"  where is ConString declared?  If 

the

> > variable is left empty you would get such an error.

> >

> > You need to declare something like:

> >

> > 	Connstring = ":driver={Microsoft Access Driver

> > (*.mdb)};DBQ=Server.MapPath("DBName.mdb")

> >

> > Give that a shot and see how it works.

> >

> > -Eli

> >

> > -----Original Message-----

> > From: Rich Debonair [mailto:debonair47@h...]

> > Sent: Saturday, December 08, 2001 3:05 PM

> > To: ASP Database Setup

> > Subject: [asp_database_setup] asp_MsAccess set up with suitable driver

> >

> >

> > I am a brand newbie to asp, i will appreciate your help with the

> > connection string for my script.

> >

> > My code for connecting the asp to MsAccess is:

> > <%@ Language=VBScript %>

> > <% Option Explicit %>

> > <!-- #include file="db.asp" -->

> > <!-- #include file="adovbs.inc" -->

> > <%

> >

> > <%

> > 'create recordset to show database categories

> > Dim Conn, rsCatalog

> > Set Conn = Server.CreateObject("ADODB.Connection")

> > Conn.Open ConString

> > Set rsCatalog = Conn.Execute("SELECT * FROM catalogs")

> > While Not rsCatalog.EOF

> > %>

> >

> > However i keep getting this error message:

> > Vbscript runtime error ASP 0185 3219

> > no suitable driver line 114

> >

> > I will appreciate your help..

> >

> > Greg.



> eschilli@t...


> > $subst('Email.Unsub')

> >




> > $subst('Email.Unsub').

> 




> $subst('Email.Unsub')

> 




> $subst('Email.Unsub').

> 

: > ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &

: > Server.MapPath("63db.mdb") & ";"



the above two lines need to be on a single line. Did you unwrap them?



Cheers

Ken



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

From: "Rich Debonair" <debonair47@h...>

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable driver





: Hi Liem,

: Thanks for your help, I tried the below code, and it gave the following 

: error message-

: VBScript compilation error 1002 :

: Syntax error line 110

: 

: Inaddition I have double-checked the number of elements that make up an 

: expression. 

: Looked for misdirected brackets. Being a newbie at this I can easily 

: double check wrongly. Thanks anyway.

: Rich 



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Thanks Ken, but still no joy.

Rich.



 : > ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &

> : > Server.MapPath("63db.mdb") & ";"

> 

> the above two lines need to be on a single line. Did you unwrap them?

> 

> Cheers

> Ken

> 

> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

> From: "Rich Debonair" <debonair47@h...>

> Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable 

driver

> 

> 

> : Hi Liem,

> : Thanks for your help, I tried the below code, and it gave the 

following 

> : error message-

> : VBScript compilation error 1002 :

> : Syntax error line 110

> : 

> : Inaddition I have double-checked the number of elements that make up 

an 

> : expression. 

> : Looked for misdirected brackets. Being a newbie at this I can easily 

> : double check wrongly. Thanks anyway.

> : Rich 

> 

> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

> 

Can you please post lines 100-110 of your code please?



Cheers

Ken



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

From: "Rich Debonair" <debonair47@h...>

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable driver





: Thanks Ken, but still no joy.

: Rich.

: 

:  : > ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &

: > : > Server.MapPath("63db.mdb") & ";"

: > 

: > the above two lines need to be on a single line. Did you unwrap them?

: > 

: > Cheers

: > Ken

: > 

: > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

: > From: "Rich Debonair" <debonair47@h...>

: > Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable 

: driver

: > 

: > 

: > : Hi Liem,

: > : Thanks for your help, I tried the below code, and it gave the 

: following 

: > : error message-

: > : VBScript compilation error 1002 :

: > : Syntax error line 110

: > : 

: > : Inaddition I have double-checked the number of elements that make up 

: an 

: > : expression. 

: > : Looked for misdirected brackets. Being a newbie at this I can easily 

: > : double check wrongly. Thanks anyway.

: > : Rich 

: > 

: > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Rich, can you open your code, go to line 110 and copy the 5 lines before

through the 5 lines after and post them?  That will help determine the

problem.



If a SQL script is executed around that area, please include the entire

script as well.



Thanks,

Eli



-----Original Message-----

From: Rich Debonair [mailto:debonair47@h...]

Sent: Monday, December 10, 2001 3:18 PM

To: ASP Database Setup

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable

driver





Thanks Ken, but still no joy.

Rich.



 : > ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &

> : > Server.MapPath("63db.mdb") & ";"

> 

> the above two lines need to be on a single line. Did you unwrap them?

> 

> Cheers

> Ken

> 

> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

> From: "Rich Debonair" <debonair47@h...>

> Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable 

driver

> 

> 

> : Hi Liem,

> : Thanks for your help, I tried the below code, and it gave the 

following 

> : error message-

> : VBScript compilation error 1002 :

> : Syntax error line 110

> : 

> : Inaddition I have double-checked the number of elements that make up 

an 

> : expression. 

> : Looked for misdirected brackets. Being a newbie at this I can easily 

> : double check wrongly. Thanks anyway.

> : Rich 

> 

> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

> 






$subst('Email.Unsub')






$subst('Email.Unsub').

Hi Ken, Eli 

this is script for Lines 100 to 120

Cheers 

Rich.



      </ul> 

    </td>

      <ul>

<%

Dim Conn, rsCatalog, ConString

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &amp; 

Server.MapPath("63db.mdb") &amp; ";"

Set RSCatalog = Conn.Execute("Select * from catalogs")

While not rsCatalog.EOF

%>      

        <li><font face="Arial" size="4"><strong><a 

href="62productsByCategory.asp?intCatalogID=<%

			Response.Write rsCatalog("catalogID") %

>&amp;strCatalog_NAME=<%

			Response.Write Server.URLEncode(rsCatalog

("catalogName"))%>">

        <%= rsCatalog("catalogName") %></a></strong></font></li>

<% 

rsCatalog.MoveNext

Wend

rsCatalog.Close

Set rsCatalog = Nothing

%> 







> Can you please post lines 100-110 of your code please?

> 

> Cheers

> Ken

> 

>

Well, the first thing that jumps out at me is that you are opening ConString

before you put anything into it.



Try rearranging your code to something like this:





ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="

&Server.MapPath("63db.mdb") & ";"

Conn.Open ConString



Another thing to look at would be this:



<"...62productsByCategory.asp?intCatalogID=<% Response.Write

rsCatalog("catalogID") %>



I've always just used



webpagename.asp?intCatalogID=<%= rsCatalog("catalogID") %>



I don't know that the response.write makes much of a difference in this

case.



Give those a shot and let me know how it goes.



Cheers,

Eli



-----Original Message-----

From: Rich Debonair [mailto:debonair47@h...]

Sent: Tuesday, December 11, 2001 11:47 AM

To: ASP Database Setup

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable

driver





Hi Ken, Eli 

this is script for Lines 100 to 120

Cheers 

Rich.



      </ul> 

    </td>

      <ul>

<%

Dim Conn, rsCatalog, ConString

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConString

ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &amp; 

Server.MapPath("63db.mdb") &amp; ";"

Set RSCatalog = Conn.Execute("Select * from catalogs")

While not rsCatalog.EOF

%>      

        <li><font face="Arial" size="4"><strong><a 

href="62productsByCategory.asp?intCatalogID=<%

			Response.Write rsCatalog("catalogID") %

>&amp;strCatalog_NAME=<%

			Response.Write Server.URLEncode(rsCatalog

("catalogName"))%>">

        <%= rsCatalog("catalogName") %></a></strong></font></li>

<% 

rsCatalog.MoveNext

Wend

rsCatalog.Close

Set rsCatalog = Nothing

%> 







> Can you please post lines 100-110 of your code please?

> 

> Cheers

> Ken

> 

> 




$subst('Email.Unsub')






$subst('Email.Unsub').

Firstly, you can't open a connection using a connection string you haven't

defined:



: Set Conn = Server.CreateObject("ADODB.Connection")

: Conn.Open ConString

: ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &

: Server.MapPath("63db.mdb") & ";"



On line 2 above you try to open a connection, but you define ConString on

the next line



Secondly, why are you using & ?!? That's not a valid VBScript

concatenater - you need to use &



Cheers

Ken



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

From: "Rich Debonair" <debonair47@h...>

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable driver





: Hi Ken, Eli

: this is script for Lines 100 to 120

: Cheers

: Rich.

:

:       </ul>

:     </td>

:       <ul>

: <%

: Dim Conn, rsCatalog, ConString

: Set Conn = Server.CreateObject("ADODB.Connection")

: Conn.Open ConString

: ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &amp;

: Server.MapPath("63db.mdb") &amp; ";"

: Set RSCatalog = Conn.Execute("Select * from catalogs")

: While not rsCatalog.EOF

: %>



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

I must thank both of you for your help (Ken & Eli) despite this tough 

cookie. Here is the revised code per your suggestions, i'm still getting 

vb script compilation error on the connection string line.



Ken when i removed the amp from "&" i get a syntax error inddition.



<%

Dim Conn, rsCatalog, ConString

Set Conn = Server.CreateObject("ADODB.Connection")

ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &amp; 

Server.MapPath("63db.mdb") &amp; ";"

Conn.Open ConString

Set RSCatalog = Conn.Execute("Select * from catalogs")

While not rsCatalog.EOF

%>      



Cheers 

Rich

Rich, try one more thing for me:



Try replacing your code with this (without seeing the rest of your code I

don't know if this will perform the functionality you need, but in working

with Access databases this is the method I usually choose):





<%

Dim Conn, ConString



Set Conn = Server.CreateObject("ADODB.Recordset")

ConString = ":DRIVER={Microsoft Access Driver(*.mdb)};DBQ="

ConString = ConString & Server.MapPath("63db.mdb")



Conn.Open "Select * from catalogs", ConString



While not Conn.EOF

%> 





-----Original Message-----

From: Rich Debonair [mailto:debonair47@h...]

Sent: Wednesday, December 12, 2001 1:26 PM

To: ASP Database Setup

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable

driver





I must thank both of you for your help (Ken & Eli) despite this tough 

cookie. Here is the revised code per your suggestions, i'm still getting 

vb script compilation error on the connection string line.



Ken when i removed the amp from "&amp;" i get a syntax error inddition.



<%

Dim Conn, rsCatalog, ConString

Set Conn = Server.CreateObject("ADODB.Connection")

ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &amp; 

Server.MapPath("63db.mdb") &amp; ";"

Conn.Open ConString

Set RSCatalog = Conn.Execute("Select * from catalogs")

While not rsCatalog.EOF

%>      



Cheers 

Rich






$subst('Email.Unsub')






$subst('Email.Unsub').

<%

Dim objConn ' as ADODB.Connection

Dim objRSCatalog    ' as ADODB.Recordset

Dim strDBConnString    ' as String

Dim strSQL                ' as String



strDBConnString = _

    "Driver={Microsoft Access Driver(*.mdb)};" & _

    "DBQ=" & Server.MapPath("63db.mdb") & ";"



strSQL = _

    "SELECT * " & _

    "FROM Catalogs"



Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open strDBConnString



Set objRSCatalog = objConn.Execute strSQL

%>



Cheers

Ken



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

From: "Rich Debonair" <debonair47@h...>

Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable driver





: I must thank both of you for your help (Ken & Eli) despite this tough 

: cookie. Here is the revised code per your suggestions, i'm still getting 

: vb script compilation error on the connection string line.

: 

: Ken when i removed the amp from "&amp;" i get a syntax error inddition.

: 

: <%

: Dim Conn, rsCatalog, ConString

: Set Conn = Server.CreateObject("ADODB.Connection")

: ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &amp; 

: Server.MapPath("63db.mdb") &amp; ";"

: Conn.Open ConString

: Set RSCatalog = Conn.Execute("Select * from catalogs")

: While not rsCatalog.EOF

: %>      

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Hi again, Ken and Eli, If you both don't mind, let me email the full asp 

page code to you; because this might make it easier. Also i'm wondering if 

the multiple line breaks with semi-colons is affecting the code.

Thanks a whole lot.



Rich





> Rich, try one more thing for me:

> 

> Try replacing your code with this (without seeing the rest of your code I

> don't know if this will perform the functionality you need, but in 

working

> with Access databases this is the method I usually choose):

> 

> 

> <%

> Dim Conn, ConString

> 

> Set Conn = Server.CreateObject("ADODB.Recordset")

> ConString = ":DRIVER={Microsoft Access Driver(*.mdb)};DBQ="

> ConString = ConString & Server.MapPath("63db.mdb")

> 

> Conn.Open "Select * from catalogs", ConString

> 

> While not Conn.EOF

> %> 

> 

> 

> -----Original Message-----

> From: Rich Debonair [mailto:debonair47@h...]

> Sent: Wednesday, December 12, 2001 1:26 PM

> To: ASP Database Setup

> Subject: [asp_database_setup] RE: asp_MsAccess set up with suitable

> driver

> 

> 

> I must thank both of you for your help (Ken & Eli) despite this tough 

> cookie. Here is the revised code per your suggestions, i'm still getting 

> vb script compilation error on the connection string line.

> 

> Ken when i removed the amp from "&amp;" i get a syntax error inddition.

> 

> <%

> Dim Conn, rsCatalog, ConString

> Set Conn = Server.CreateObject("ADODB.Connection")

> ConString = "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" &amp; 

> Server.MapPath("63db.mdb") &amp; ";"

> Conn.Open ConString

> Set RSCatalog = Conn.Execute("Select * from catalogs")

> While not rsCatalog.EOF

> %>      

> 

> Cheers 

> Rich

> 



eschilli@t...


> $subst('Email.Unsub')

> 




> $subst('Email.Unsub').