Database problemer
Jeg har brug for at trække nogle email adresser ud af en access database, men jeg får følgende besked:Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot open database '(unknown)'. It may not be a database that your application recognizes, or the file may be corrupt.
/news/send.asp, line 22
Min send.asp kode ser sådan ud:
<%@ Language=VBScript%>
<html>
<head>
<title>Ethica News Tool</title>
<meta name="generator" content="TSW WebCoder">
<link href="admin.css" rel="stylesheet" type="text/css" />
</head>
<body bgcolor="#ffffff" text="#000000">
<% Set conn = Server.CreateObject("ADODB.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=DSNtemp & "DBQ=" & server.mappath("../log/users.mdb")
conn.Open DSNtemp
sql = "SELECT * from users"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
dim rst%>
<table>
<%
while not rs.EOF
rst = rs("emailadresse")%>
<tr>
<td><%=rst%></td>
</tr>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.mysite.dk"
Mailer.FromName = "mysite"
Mailer.FromAddress = "post@mysite.dk"
Mailer.AddRecipient "", rst
Mailer.Subject = "Nyheds brev"
Mailer.ContentType = "text/html"
Mailer.BodyText = "<HTML><Head></Head><BODY BGCOLOR='#3366FF'><font color='#ffffff'>Nyheds brev<br> "& Request.form("titel")&"<br>"& Request.form("tekst")&"<br>Forfatter :"& Request.form("forfatter")&"<br>"& Request.form("dato")&"<br>©</body></html>"
Mailer.CharSet = 2
if not Mailer.SendMail then
Response.Write " Mailing Failed... Error is: <br>"
Response.Write Mailer.Response
else
end if
Set Mailer = nothing
%>
<%rs.moveNext%>
<%
Wend
rs.Close
Set rs = nothing%>
</table>
Her er de nyheder du har sendt :<br>
Titel :<%=request.form("titel")%>
<br>
Tekst :<%=request.form("tekst")%>
<br>
Dato :<%=request.form("dato")%>
<br>
Forfatter :<%=request.form("forfatter")%>
<br>
Nyhedsbrevet er sendt !!!
<br>
</body>
</html>
Er der nogen der kan hjælpe med dette. På forhånd tak
Henrik Thomsen
