INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!

Talk With Other Members
Be Notified Of Responses
To Your Posts
Keyword Search
One-Click Access To Your
Favorite Forums
Automated Signatures
On Your Posts
Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Tek-Tips LinkedIn^® Group

Join our
LinkedIn^® Group!

Hook up with past and present colleagues and classmates quickly.

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site

(Download This Button Today!)

Feedback

"...This has been the MOST helpful forum that I have been a part of and I want to say thank you. The tips, tricks and helpful advice that you all contribute to have been lifesavers in many instances..."

More...

Geography

Where in the world do Tek-Tips members come from?

Click Here To Find Out!

Tek-Tips Shirts!

Get your
Tek-Tips Forums
SWAG here!

Home > Forums > Programmers > Web Development > Microsoft: ASP (Active Server Pages) Forum

DSN to DSNless leads to error

Read More Threads Like This One

ianjenn (Programmer)

1 May 12 4:13

Hi
I am trying to move from a DSN connection string to a DSNless connection and for some reason I get an error when I try to do it.
My DSN connection was this
  Dim objpharws50
  Set objpharws50 = Server.CreateObject("ADODB.Connection")
  objpharws50.Open "DSN=prescript"

and I have changed to this

strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath(".\electronic.mdb") & ";"
Set objpharws50 = Server.CreateObject("ADODB.Connection")
objpharws50.Open strConnection

The part of my code that I now get an error on is this line
rscheckpass.open strSQL, objpharws50, 3,3
in the code below????

Set rscheckpass = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT names.password, names.surname, names.ward" & _
        " From names" & _
        " WHERE names.password= '" & session("password") & "' AND names.surname= '" & session("surname") & "';"
        rscheckpass.open strSQL, objpharws50, 3,3
    If rscheckpass.eof then
response.redirect"error.asp"
else
Do while Not rscheckpass.eof
Session("ward") = rscheckpass("ward")
rscheckpass.movenext
loop
end if
        rscheckpass.close
        set rscheckpass = nothing

ChrisHirst (IS/IT--Management)

1 May 12 6:09

And the error is????

Chris.

Indifference will be the downfall of mankind, but who cares?
Time flies like an arrow, however, fruit flies like a banana.
Webmaster Forum

ianjenn (Programmer)

1 May 12 6:14

ooops
the error is rather unhelpful and is simply

error '80004005'
/hidden23.asp, line 15

with no other information

ChrisHirst (IS/IT--Management)

1 May 12 6:28

http://support.microsoft.com/kb/306345

Chris.

Indifference will be the downfall of mankind, but who cares?
Time flies like an arrow, however, fruit flies like a banana.
Webmaster Forum

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Back To Forum

Back To Microsoft: ASP (Active Server Pages)