ASP Data Source not found

ASP Free Forums Sponsor:

February 8th, 2009, 02:09 PM

apachehelp

Contributing User

Join Date: Oct 2008

Posts: 48

Time spent in forums: 12 h 58 m 35 sec
Reputation Power: 2

ASP Data Source not found

Im trying to build an ASP page to display all fields within a table thats in an access database.

Im using somee.com to host my database and site, but when i try to access my page i get this error.

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/Index.asp, line 8

I know that my database name and table name are correct and really don't know what to do but really need to fix it.

If anyone has any ideas, I will really appreciate it.

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

id = request.querystring("id")		'request the information that is being passed across pages


set con=server.createobject("ADODB.Connection")
con.open "eminence/db/EminenceDiscos.mdb"

set rs=server.CreateObject("ADODB.Recordset")
sqlquery = "SELECT * FROM CDInformation WHERE id=" &id
set rs=con.execute(sqlquery)


%>




<html>
<head>
<title>CD Information</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table border=1>

<tr>
<td align="center">
<b>ID</b>
</td>
<td  align="center">
<b>CD Name</b>
</td>
<td  align="center">
<b>Artist</b>
</td>
<td  align="center">
<b>Release Date</b>
</td>
<td  align="center">
<b>Genre</b>
</td>
<td  align="center">
<b>Image</b>
</td>
</tr>

<tr>
<td width="17%">
<%=rs("CD ID")%>
</td>
<td width="17%">
<%=rs("CD Name")%>
</td>
<td width="17%">
<%=rs("Artist")%>
</td>
<td width="17%">
<%=rs("Release Date")%>
</td>
<td width="17%">
<%=rs("Genre")%>
</td>
<td width="17%">
<img src="..\<%=rs("Image")%>" height="120" width="120" alt="<%=rs("Title")%>">
</td>
</tr>

</table>
</body>
</html>

February 10th, 2009, 05:02 AM

micky

Couch Potato Wizard

Join Date: Jan 2005

Location: India

Posts: 12,654

Folding Points: 1480 Folding Title: Novice Folder

Time spent in forums: 5 Months 1 Week 4 Days 11 h 19 m 59 sec
Reputation Power: 2312

not too sure but try this

Code:

con.open Server.mappath("EminenceDiscos.mdb")

also u r not closing recordset and connection, which is a bad thing, so close them after use

__________________
Laziness is my religion and Sunday is my God

Get the Mantra!

February 10th, 2009, 05:37 AM

sync_or_swim

Moderator

Join Date: Mar 2006

Location: South Wales

Posts: 3,629

Time spent in forums: 2 Months 3 Days 14 h 46 m 20 sec
Reputation Power: 1908

I think that you also need to specify the Provider. If you are using MS Access it would be something like this:

Code:

Dim filePath
filePath = Server.mappath("EminenceDiscos.mdb")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & filePath & ";"

Check out Connection Strings.com for help with your connection string.

February 10th, 2009, 05:41 AM

icoombs

Moderator

Join Date: Dec 2006

Location: West London, UK

Posts: 2,190

Time spent in forums: 1 Month 3 Days 21 h 26 m 42 sec
Reputation Power: 732

Try somthing like this...

Code:

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

src = Server.MapPath("db/EminenceDiscos.mdb")

sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src
Con.Open  sConnStr

Comments on this post

apachehelp agrees!

__________________

Hope this advice helps.

If so please show your appreciation by adding reputation points (click gauge image

on top right of this post).

- Post your code - Post your errors - Be clear - Be courteous -

AND PLEASE...Finalise your thread with a solution or confirmation that the last advice worked or failed.

Visit My ASP Free Members Club Profile

February 10th, 2009, 10:16 AM

apachehelp

Contributing User

Join Date: Oct 2008

Posts: 48

Time spent in forums: 12 h 58 m 35 sec
Reputation Power: 2

Thanks for the replies, have just tried what icoombs suggested and it appears to work, however, I have now received the error.

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs' /Index.asp, line 52

This is when I'm trying to match whats in the database to the page so that I can show what is in the database.

I'm not sure what this means. Sorry for all the questions!

February 10th, 2009, 11:34 AM

sync_or_swim

Moderator

Join Date: Mar 2006

Location: South Wales

Posts: 3,629

Time spent in forums: 2 Months 3 Days 14 h 46 m 20 sec
Reputation Power: 1908

It could be that you are comparing two different datatypes, if this is the case you could use CStr() to force both values to strings.

Which is line 52?

Last edited by sync_or_swim : February 10th, 2009 at 11:36 AM.

February 10th, 2009, 11:48 AM

apachehelp

Contributing User

Join Date: Oct 2008

Posts: 48

Time spent in forums: 12 h 58 m 35 sec
Reputation Power: 2

Line 52 is <%=rs("CD ID")%>

The start of getting the data from the database.

Sorry about sounding dumb, how you I go about forcing both values to be strings by using CStr(), where would I put that?

Thanks

February 10th, 2009, 11:59 AM

sync_or_swim

Moderator

Join Date: Mar 2006

Location: South Wales

Posts: 3,629

Time spent in forums: 2 Months 3 Days 14 h 46 m 20 sec
Reputation Power: 1908

Don't worry about forcing anything to uppercase, that would only apply if you were doing a comparison.

Do you have a field in your recordset called CD Id? I'm not sure but you may not be able to use the space, if you alias the field name in your sql - SELECT [CD ID] AS CD_ID - then you can refer to this field with an underscore instead of a space

February 10th, 2009, 01:12 PM

apachehelp

Contributing User

Join Date: Oct 2008

Posts: 48

Time spent in forums: 12 h 58 m 35 sec
Reputation Power: 2

I've changed the fields in my database so that they dont have spaces and done the same to the code, but still getting the same error :S

#10

February 10th, 2009, 02:07 PM

icoombs

Moderator

Join Date: Dec 2006

Location: West London, UK

Posts: 2,190

Time spent in forums: 1 Month 3 Days 21 h 26 m 42 sec
Reputation Power: 732

Post more of the code including the Query.

#11

February 10th, 2009, 02:50 PM

bigmike1212

split(BigMike,middle,-1)

Join Date: Jan 2009

Location: In the House of Pain

Posts: 820

Time spent in forums: 1 Week 1 Day 6 h 47 m 26 sec
Reputation Power: 297

id comes in through the query string as a string here:

id = request.querystring("id")

If ID is a numeric field in your database it will throw that data type mismatch error.

Try this:

form_id = request.querystring("id")
id = CInt(form_id)

and see what happens.

Comments on this post

mystic7 agrees: 20 bucks says you got it.

#12

February 10th, 2009, 05:00 PM

apachehelp

Contributing User

Join Date: Oct 2008

Posts: 48

Time spent in forums: 12 h 58 m 35 sec
Reputation Power: 2

Just realised I'd taken the query out of the code I think.

This is my full code

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

form_id = request.querystring("id")
id = CInt(form_id)

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

src = Server.MapPath("db/EminenceDiscos.mdb")

sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src
Con.Open  sConnStr

set rs=server.CreateObject("ADODB.Recordset")
sqlquery = "SELECT * FROM CDInformation WHERE id=" &id


%>




<html>
<head>
<title>CD Information</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table border=1>

<tr>
<td align="center">
<b>ID</b>
</td>
<td  align="center">
<b>CD Name</b>
</td>
<td  align="center">
<b>Artist</b>
</td>
<td  align="center">
<b>Release Date</b>
</td>
<td  align="center">
<b>Genre</b>
</td>
<td  align="center">
<b>Image</b>
</td>
</tr>

<tr>
<td width="17%">
<%=rs("CDID")%>
</td>
<td width="17%">
<%=rs("CD_Name")%>
</td>
<td width="17%">
<%=rs("Artist")%>
</td>
<td width="17%">
<%=rs("Release_Date")%>
</td>
<td width="17%">
<%=rs("Genre")%>
</td>
<td width="17%">
<img src="..\<%=rs("Image")%>" height="120" width="120" alt="<%=rs("Title")%>">
</td>
</tr>

</table>
</body>
</html>

The rs error has now gone, but now im getting

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/Index.asp, line 55

Sorry for being such a pain

#13

February 10th, 2009, 05:29 PM

sync_or_swim

Moderator

Join Date: Mar 2006

Location: South Wales

Posts: 3,629

Time spent in forums: 2 Months 3 Days 14 h 46 m 20 sec
Reputation Power: 1908

I can't see where you are populating the recordset. I would expexct to see:

Code:

set rs=server.CreateObject("ADODB.Recordset")
sqlquery = "SELECT * FROM CDInformation WHERE id=" &id

Set rs = con.Execute(sqlquery)

If rs.EOF <> True And rs.BOF <> True Then
'etc.....

#14

February 10th, 2009, 05:53 PM

apachehelp

Contributing User

Join Date: Oct 2008

Posts: 48

Time spent in forums: 12 h 58 m 35 sec
Reputation Power: 2

Thanks, ive added them lines, I'd deleted the first one earlier by accident.

Im now getting

Microsoft VBScript compilation error '800a03f6'

Expected 'End' /Index.asp, line 71

But looks like getting closer to the fix

#15

February 10th, 2009, 11:50 PM

keep_it_simple

KIS

ASP Free Intermediate (1500 - 1999 posts)

Join Date: Jul 2007

Location: USA

Posts: 1,626

Time spent in forums: 3 Weeks 6 Days 11 h 49 m 17 sec
Reputation Power: 961

Send a message via Yahoo to keep_it_simple

Quote:

Originally Posted by apachehelp

if you literally went w/ sync's snippet then you are missing an end if

you have to post relevant code: as sync mentioned he did not see where you were creating the recordset...

we simply do not have the time to always test the posted code...we simply guide...so don't always take posted code as literally going to work...you have to do some tutorials...i understand you are new...but what you are asking is trivial and you should be learning from tutorials versus diving into code blindly...soon enough you will be teaching others

Code:

<%
   form_id = request.querystring("id")

    If  isNumeric(form_id) Then
      form_id = CINt(form_id)
 
      Set Con = Server.CreateObject("ADODB.Connection")
      src = Server.MapPath("db/EminenceDiscos.mdb")
      sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src
      Con.Open  sConnStr

      Set rs = con.Execute("SELECT * FROM CDInformation WHERE id=" & form_id)

      If  Not rs.EOF Then
 
       iCDID = rs("CDID")
       sCD_Name = rs("CD_Name")

       Response.Write "<table border=""1"">" & _
                      " <tr>" & _
                      "  <th>CD ID</th>" & _
                      "  <th>CD Name</th>" & _
                      " </tr>" & _
                      " <tr>" & _
                      "  <td>" & iCDID & "</td>" & _
                      "  <td>" & sCD_Name & "</td>" & _
                      " </tr>" & _
                      "</table>"

      End If  
    End If
%>

Comments on this post

sync_or_swim agrees!

__________________
Please give respect to those that helped solve an issue by clicking on the reputation icon

Last edited by keep_it_simple : February 11th, 2009 at 12:01 AM.

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: