hallo
bin nue hier und habe ein problem
bin ein newsletter script am bearbeiten für auf meine webseite, habe alles soweit eingegeben wie es der auto vorgegeben hat, laut provider müsste alles so laufen
hier die fehlermeldung bei aufrufen des browers:
Microsoft JET Database Engine- Fehler '80040e4d'
Die Anwendung kann nicht gestartet werden. Die Informationsdatei für die Arbeitsgruppe fehlt oder ist exklusiv von einem anderen Benutzer geöffnet.
/newsletter/common/CommonCode.asp, line 44
anbei ist der quelltext der datei, der benutzername sowie das passwort habe ich durch * ersetzt.
<!-- #include file="adovbs.inc"-->
<%
Dim objConn, objConnAdmin, strDBPath, strAdminDBPath, strDomain, smtpServer
Dim fromAddr, mailComp, strSiteTitle, strFooter
'Change to the title of your site IE: HTMLJunction
strSiteTitle = "www.muerlenbach.de"
'The address to your website WITHOUT "http://"
strDomain = "www.muerlenbach.de"
'Your mail server
smtpServer = "mail.muerlenbach.de"
'your email address on the mail server
fromAddr = "info@muerlenbach.de"
'Customize the footer that gets inserted at the bottom of the newsletter
strHFooter = "<br><br>If you would like to be removed from this mailing list - Click on the link below." & _
"<br>Or Copy and Paste to your browsers address bar" & _
"<br><br><a href=""http://"&strDomain&"/newsletter/common/proccess.asp?cancel=now"">" & _
"Cancel</a><br><br>" & _
"Thanks<br>" & strSiteTitle & _
"</body>"
strTFooter = vbcrlf&vbcrlf& "If you would like to be removed from this mailing list - Click on the link below." & vbcrlf & _
"Or Copy and Paste to your browsers address bar." & vbcrlf & _
"http://"&strDomain&"/newsletter/common/proccess.asp?cancel=now"
'Select your email component
mailComp = "JMail"
'mailComp = "CDONTS"
'mailComp = "JMail"
'mailComp = "ASPMail"
'database paths
'strDBPath = "http://www.muerlenbach.de/newsletter/newsletter.mdb"
'strAdminDBPath = "http://www.muerlenbach.de/newsletter/admin.mdb"
strDBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = ..\..\~db\newsletter.mdb;User Id=***********;Password=*********"
strAdminDBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = ..\..\~db\admin.mdb;User Id=ek70_muerlenbach;Password=cjamadk19"
Sub objConnOpen
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strDBPath
End Sub
Sub objConnClose
objConn.Close
Set objConn = Nothing
End Sub
Sub objConnAdminOpen
'Set objConnAdmin = Server.CreateObject("ADODB.Connection")
objConnAdmin.Open strAdminDBPath
End Sub
Sub objConnAdminClose
objConnAdmin.Close
Set objConnAdmin = Nothing
End Sub
Sub Newsletter_1
%>
<form name="subscribe" action="/newsletter/common/proccess.asp" method="post">
<table width="100%">
<tr>
<td background="/images/slice7.gif" class="second" align="center">
Newsletter
</td>
</tr>
<tr>
<td class="contents" align="center" valign="middle">
<input type="hidden" name="confirm" value="no" />
<input type="text" size="14" name="email" value="Your Email" onFocus="document.subscribe.email.value = '';"><br /><input type="submit" value="Subscribe!">
</td>
</tr>
</table>
</form>
<%
End Sub
Sub selectEmailAddy
Set rsNews = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM newsLetter WHERE confirm = 'yes';"
rsNews.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
If Not rsNews.EOF Then
Response.Write "<select name=""email"" multiple>"
Do While Not rsNews.EOF
Response.Write "<option>"&rsNews("email")&"</option>"
rsNews.MoveNext
If rsNews.EOF Then Exit Do
Loop
Response.Write "</select>"
Else
Response.Write "<select><option>No Addresses</option></select>"
End If
rsNews.Close
Set rsNews = nothing
End Sub
%>
ahso und die datenbank ist vorhanden und der pfad ist dorthin richtig und beim provider auch signiert oder wie man das nennt.
bin ein neuling in sachen datenbanken, wurde hier ins kalte wasser gewurfen, da der alte admin keine lust mehr hatte und auch nicht mehr helfen will
wäre über jede hilfe sehr dankbar
gruß Christoph
