kovan
Sep 19th, 2000, 01:32 PM
i get the following error
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x540 Thread 0x28c DBC 0x15e3024 Jet'.
/test/showlinks.asp, line 13
the db is a access 97 file, however i have access 2000 at home
and here is my code
any help would be greatly appreciated, thanks
<html>
<head>
<title>Kovan's Guestbook</title>
<meta http-equiv="expires" content="0">
<%
dim SQL
dim DNSTemp
dim CellString
Set conn = Server.CreateObject("ADODB.Connection")
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\inetpub\wwwroot\databases\KurdistanLinks.mdb" '## MS Access 97
DSNTemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNTemp=dsntemp & "DBQ=" & Server.MapPath("/databases/KurdistanLinks.mdb")
conn.Open DSNtemp ' strConnString
%>
</head>
<body bgcolor="00000" topmargin=2 leftmargin=2>
<style>
<!--
a:link, a:visited {color:#C5BE60; font-weight:bold;}
a:active {color=yellow; background: firebrick; font-size: 100%; font-weight:bold;}
a:hover {color:yellow; font-weight:bold;}
//-->
</style>
<%
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM MemberInfo"
RS.Open SQL, conn, 3, 3
if rs.eof then
response.write("Sorry, none found.")
'begin formatting
else
%>
<table border=2><tr>
<%
i = 1
do until rs.eof
cellString = "<td> <a href='" & rs("Address") & "'>" & rs("Title") & "</a></td>"
if not i mod 1 = 0 then
response.write(cellString)
else
response.write(cellString)%></tr><tr><%
end if
i = i + 1
rs.movenext
loop
%>
</table>
<%
end if
%>
</html>
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x540 Thread 0x28c DBC 0x15e3024 Jet'.
/test/showlinks.asp, line 13
the db is a access 97 file, however i have access 2000 at home
and here is my code
any help would be greatly appreciated, thanks
<html>
<head>
<title>Kovan's Guestbook</title>
<meta http-equiv="expires" content="0">
<%
dim SQL
dim DNSTemp
dim CellString
Set conn = Server.CreateObject("ADODB.Connection")
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\inetpub\wwwroot\databases\KurdistanLinks.mdb" '## MS Access 97
DSNTemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNTemp=dsntemp & "DBQ=" & Server.MapPath("/databases/KurdistanLinks.mdb")
conn.Open DSNtemp ' strConnString
%>
</head>
<body bgcolor="00000" topmargin=2 leftmargin=2>
<style>
<!--
a:link, a:visited {color:#C5BE60; font-weight:bold;}
a:active {color=yellow; background: firebrick; font-size: 100%; font-weight:bold;}
a:hover {color:yellow; font-weight:bold;}
//-->
</style>
<%
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM MemberInfo"
RS.Open SQL, conn, 3, 3
if rs.eof then
response.write("Sorry, none found.")
'begin formatting
else
%>
<table border=2><tr>
<%
i = 1
do until rs.eof
cellString = "<td> <a href='" & rs("Address") & "'>" & rs("Title") & "</a></td>"
if not i mod 1 = 0 then
response.write(cellString)
else
response.write(cellString)%></tr><tr><%
end if
i = i + 1
rs.movenext
loop
%>
</table>
<%
end if
%>
</html>