i get the following error
the db is a access 97 file, however i have access 2000 at homeCode: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
and here is my code
any help would be greatly appreciated, thanks
Code:<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>
Reply With Quote
