ASP Data Source Connection Help

[KLAU]

I am trying to create a connection in my ASP page to a SQL Server
database. This is my code for the connection string:

<%Option Explicit%>
<%
Dim conn
Dim ConnectionString
Dim RsList

Set conn = New ADODB.Connection
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Driver={SQL Server};" & _
"Server=HOEALG01;" & _
"Database=Tool;" & _
"Uid=tool;" & _
"Pwd=tool;" &_
conn.Open

.....%>

I get the following error when I run the page.

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'ADODB'

/gasmktbest/Scripts/Submit.asp, line 26


Any ideas?

[Ray at]

You're attempting to use VB code in VBScript. Try:

Set conn = CreateObject("ADODB.Connection")

Oh, wait, you already have that. Drop the line with the "New
ADODB.Connection." Even in VB, you shouldn't use that line, as it'll create
an unnecessary object before it needs to exist.

Also, you may want to switch to an OLEDB connection. Take a look at
[url]http://www.connectionstrings.com/[/url].

Ray at work

"KLAU" <karen.lau@mail.utexas.edu> wrote in message
news:5733cc1a.0311040659.15371d35@posting.google.c om...

> I am trying to create a connection in my ASP page to a SQL Server
> database. This is my code for the connection string:
>
> <%Option Explicit%>
> <%
> Dim conn
> Dim ConnectionString
> Dim RsList
>
> Set conn = New ADODB.Connection
> Set conn = Server.CreateObject("ADODB.Connection")
> conn.ConnectionString = "Driver={SQL Server};" & _
> "Server=HOEALG01;" & _
> "Database=Tool;" & _
> "Uid=tool;" & _
> "Pwd=tool;" &_
> conn.Open
>
> ....%>
>
> I get the following error when I run the page.
>
> Microsoft VBScript runtime error '800a01f4'
>
> Variable is undefined: 'ADODB'
>
> /gasmktbest/Scripts/Submit.asp, line 26
>
>
> Any ideas?

[Karen Lau]

Thanks Ray.

I tried what you said by dropping the conn as New ADODB.Connection and
changing to a OLE DB connection string. This is my code:

Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=sqloledb;Data
Source=HOEALG01\Tool;Initial Catalog=pubs;User Id=tool;Password=tool;"
conn.Open

It returns an error:
Microsoft OLE DB Provider for SQL Server error '80004005'

[DBMSSOCN]General network error. Check your network documentation.

/gasmktbest/Scripts/Submit.asp, line 33

What does this mean?

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

[Ray at]

Heh. It means there was a general network error. ;] Can you ping the SQL
server from this computer? Can you connect to this SQL server from this
machine using query analyzer or osql? Is the server behind a firewall? Are
you using the default port for SQL? Is it open?

Ray at work

"Karen Lau" <karen.lau@mail.utexas.edu> wrote in message
news:%23WXZ8gvoDHA.2820@TK2MSFTNGP10.phx.gbl...

> Thanks Ray.
>
> I tried what you said by dropping the conn as New ADODB.Connection and
> changing to a OLE DB connection string. This is my code:
>
> Set conn = Server.CreateObject("ADODB.Connection")
> conn.ConnectionString = "Provider=sqloledb;Data
> Source=HOEALG01\Tool;Initial Catalog=pubs;User Id=tool;Password=tool;"
> conn.Open
>
> It returns an error:
> Microsoft OLE DB Provider for SQL Server error '80004005'
>
> [DBMSSOCN]General network error. Check your network documentation.
>
> /gasmktbest/Scripts/Submit.asp, line 33
>
> What does this mean?
>
> *** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
> Don't just participate in USENET...get rewarded for it!

[Karen Lau]

Thanks Ray!

Unfortunately I still get an error after your directions. Here's my
changed code:

Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=sqloledb;Data
Source=HOEALG01\Tool;Initial Catalog=pubs;User Id=tool;Password=tool;"
conn.Open

Heres the error:

Microsoft OLE DB Provider for SQL Server error '80004005'

[DBMSSOCN]General network error. Check your network documentation.

/gasmktbest/Scripts/Submit.asp, line 33


Any ideas?

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!