wwir
14-07-2001, 00:12
Hi,
habe ein kleines Problem, folgende Fehlermeldung bekomme ich auf den WebServer(NT interner Server):
ASP-Webpage
Microsoft JET Database Engine-Fehler '80004005'
The Microsoft Jet database engine cannot open the file 'C:\Inetpub\Database\Daten\DBPswd.mdb'. It is already opened exclusively by another user, or you need permission to view its data.
Auf meinen Lokalen PC kann ich die Daten sehen.Da ich seit einen Monat mich mit ASP beschäftige habe ich keine Ahnung was diese Fehlermeldung bedeudet.
Ich bedanke mich in vorraus für Eure Hife.
Gruß
WWIR
Anbei der Scprit:
<html>
<head><!-- #BeginEditable "doctitle" -->
<title>Advanced Search Results</title>
<!-- #EndEditable -->
<link rel="stylesheet" href="css/styler1.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="600" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="600" valign="middle" align="center" class="maincolor"><p class="title">90 Tage
vor Ablauf</td>
</tr>
<tr>
<td valign="top" class="maincolor"><div align="center"></div></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<table width="948" border="0" cellpadding="10" cellspacing="0">
<tr>
<td width="928" valign="top"><!-- #BeginEditable "mainbody" --><h3>Folgende Kunden wurden gefunden :</h3>
<p><%
Dim strDB
strDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/vertrieb.mdb")
%> <%
' ADO Constants - Don't Change Them
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdText = &H0001
Const adUseClient = 3
Dim currentPage
If Len(Request.QueryString("currentPage")) = 0 Then
currentPage = 1
Else
currentPage = CInt(Request.QueryString("currentPage"))
End If
Dim recordsToShow
recordsToShow = 10
' Our Connection Object
Dim con
Set con = CreateObject("ADODB.Connection")
con.Open strDB
Dim SqlVar
SqlVar = "select * from 90Tage"
If Request.QueryString("TypeSearch") = "Kunde" Then
SqlVar = SqlVar & " WHERE (((GS Berlin.Datum)>Date())) & Kunde1 LIKE '%" & _
Request.QueryString("advquery") & "%' ORDER BY Kunde1 ASC"
End If
If Request.QueryString("TypeSearch") = "Vertrieb/Name" Then
SqlVar = SqlVar & " WHERE (((GS Berlin.Name/Email)>Date()))& Kunde1 '%" & _
Request.QueryString("advquery") & "%' ORDER BY Kunde1 ASC"
End If
If Request.QueryString("TypeSearch") = "Description" Then
SqlVar = SqlVar & " WHERE (((tblEvents.End_Date)>Date()))& Event_Description LIKE '%" & _
Request.QueryString("advquery") & "%' ORDER BY Start_Date ASC"
End If
If Request.QueryString("TypeSearch") = "Venue" Then
SqlVar = SqlVar & " WHERE (((tblEvents.End_Date)>Date()))& Event_Venue LIKE '%" & _
Request.QueryString("advquery") & "%' ORDER BY Start_Date ASC"
End If
' Our Recordset Object
Dim rs
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = adUseClient
rs.PageSize = recordsToShow
rs.CacheSize = recordsToShow
rs.Open SqlVar, strDB, 3, 3
' If the returning recordset is not empty
If Not rs.EOF Then
Dim totalpages
totalpages = rs.PageCount
rs.AbsolutePage = currentPage
' Showing total number of pages found and the current page number%> </p>
<div CLASS="small"><%Response.Write "Anzahl Seiten " & currentPage & " of " & totalPages & "<br>"
Response.Write "gefundene Kunden : " & rs.RecordCount & "<br>"
Response.Write " </font> Datum:"%>
<%= formatdatetime((now),vblongdate) %>
</div><% ' Showing relevant records
Dim rcount, i, x
For i = 1 To rs.PageSize
rcount = i
If currentPage > 1 Then
For x = 1 To (currentPage - 1)
rcount = 10 + rcount
Next
End If%>
<% If Not rs.EOF Then %>
<p><strong><font color="#004080"><span CLASS="resultnumber"><%Response.Write rcount & ")"%> </span><%=rs("Kunde1")%><br>
</font></strong></p>
<div CLASS="date"><b><p></b><strong>Datum: <font color="#FF0000"><%=rs("neues pswd")%></font> sind 90Tage bis
Exp.Date</strong> <strong>Permanent bis: <font color="#008000"><%=rs("permanent bis")%> </font><font
color="#000000">gleich</font><font color="#008000"> <%=rs("tage")%> </font><font color="#000000">in
Tage(n) Geschäftsstelle:</strong><%=rs("GS Name")%></font></p>
</div><hr size="1" color="silver">
<% rs.MoveNext
End If
Next
' Links to move through the records
If currentPage > 1 Then
Response.Write "<a class=""recordnav"" href=""" & Request.ServerVariables("SCRIPT_NAME") & "?currentPage=" & currentPage - 1 & "&advquery" & Server.URLEncode(Request.QueryString("advquery")) & """>Back</a>"
Else
Response.Write "<u style=""color : silver;font-family:arial, helvetica;font-size:9pt"">Back</u>"
End If
Response.Write " "
If CInt(currentPage) <> CInt(totalPages) Then%>
<% Response.Write "<a class=""recordnav"" href=""" & Request.ServerVariables("SCRIPT_NAME") & "?currentPage=" & currentPage + 1 & "&advquery=" & Server.URLEncode(Request.QueryString("advquery")) & "&typesearch=" & Server.URLEncode(Request.QueryString("Typesearch"))& """>Next</a>"%>
<%Else
Response.Write "<u style=""color : silver;font-family:arial, helvetica;font-size:9pt"">Next</u>"
End If
Else%>
<p CLASS="sorry"><font color="#FF0000"><strong><big>Sorry, keinen Kunden gefunden !</big></strong></font></p>
<p><%End If%> <% ' Done. Now release Objects
con.Close
Set con = Nothing
Set rs = Nothing
%> <!-- #EndEditable --><br>
</p>
<hr SIZE="1">
</td>
</tr>
<tr>
<td valign="top" width="928"></td>
</tr>
</table>
</body>
<!-- #EndTemplate -->
</html>
habe ein kleines Problem, folgende Fehlermeldung bekomme ich auf den WebServer(NT interner Server):
ASP-Webpage
Microsoft JET Database Engine-Fehler '80004005'
The Microsoft Jet database engine cannot open the file 'C:\Inetpub\Database\Daten\DBPswd.mdb'. It is already opened exclusively by another user, or you need permission to view its data.
Auf meinen Lokalen PC kann ich die Daten sehen.Da ich seit einen Monat mich mit ASP beschäftige habe ich keine Ahnung was diese Fehlermeldung bedeudet.
Ich bedanke mich in vorraus für Eure Hife.
Gruß
WWIR
Anbei der Scprit:
<html>
<head><!-- #BeginEditable "doctitle" -->
<title>Advanced Search Results</title>
<!-- #EndEditable -->
<link rel="stylesheet" href="css/styler1.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="600" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="600" valign="middle" align="center" class="maincolor"><p class="title">90 Tage
vor Ablauf</td>
</tr>
<tr>
<td valign="top" class="maincolor"><div align="center"></div></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<table width="948" border="0" cellpadding="10" cellspacing="0">
<tr>
<td width="928" valign="top"><!-- #BeginEditable "mainbody" --><h3>Folgende Kunden wurden gefunden :</h3>
<p><%
Dim strDB
strDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/vertrieb.mdb")
%> <%
' ADO Constants - Don't Change Them
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdText = &H0001
Const adUseClient = 3
Dim currentPage
If Len(Request.QueryString("currentPage")) = 0 Then
currentPage = 1
Else
currentPage = CInt(Request.QueryString("currentPage"))
End If
Dim recordsToShow
recordsToShow = 10
' Our Connection Object
Dim con
Set con = CreateObject("ADODB.Connection")
con.Open strDB
Dim SqlVar
SqlVar = "select * from 90Tage"
If Request.QueryString("TypeSearch") = "Kunde" Then
SqlVar = SqlVar & " WHERE (((GS Berlin.Datum)>Date())) & Kunde1 LIKE '%" & _
Request.QueryString("advquery") & "%' ORDER BY Kunde1 ASC"
End If
If Request.QueryString("TypeSearch") = "Vertrieb/Name" Then
SqlVar = SqlVar & " WHERE (((GS Berlin.Name/Email)>Date()))& Kunde1 '%" & _
Request.QueryString("advquery") & "%' ORDER BY Kunde1 ASC"
End If
If Request.QueryString("TypeSearch") = "Description" Then
SqlVar = SqlVar & " WHERE (((tblEvents.End_Date)>Date()))& Event_Description LIKE '%" & _
Request.QueryString("advquery") & "%' ORDER BY Start_Date ASC"
End If
If Request.QueryString("TypeSearch") = "Venue" Then
SqlVar = SqlVar & " WHERE (((tblEvents.End_Date)>Date()))& Event_Venue LIKE '%" & _
Request.QueryString("advquery") & "%' ORDER BY Start_Date ASC"
End If
' Our Recordset Object
Dim rs
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = adUseClient
rs.PageSize = recordsToShow
rs.CacheSize = recordsToShow
rs.Open SqlVar, strDB, 3, 3
' If the returning recordset is not empty
If Not rs.EOF Then
Dim totalpages
totalpages = rs.PageCount
rs.AbsolutePage = currentPage
' Showing total number of pages found and the current page number%> </p>
<div CLASS="small"><%Response.Write "Anzahl Seiten " & currentPage & " of " & totalPages & "<br>"
Response.Write "gefundene Kunden : " & rs.RecordCount & "<br>"
Response.Write " </font> Datum:"%>
<%= formatdatetime((now),vblongdate) %>
</div><% ' Showing relevant records
Dim rcount, i, x
For i = 1 To rs.PageSize
rcount = i
If currentPage > 1 Then
For x = 1 To (currentPage - 1)
rcount = 10 + rcount
Next
End If%>
<% If Not rs.EOF Then %>
<p><strong><font color="#004080"><span CLASS="resultnumber"><%Response.Write rcount & ")"%> </span><%=rs("Kunde1")%><br>
</font></strong></p>
<div CLASS="date"><b><p></b><strong>Datum: <font color="#FF0000"><%=rs("neues pswd")%></font> sind 90Tage bis
Exp.Date</strong> <strong>Permanent bis: <font color="#008000"><%=rs("permanent bis")%> </font><font
color="#000000">gleich</font><font color="#008000"> <%=rs("tage")%> </font><font color="#000000">in
Tage(n) Geschäftsstelle:</strong><%=rs("GS Name")%></font></p>
</div><hr size="1" color="silver">
<% rs.MoveNext
End If
Next
' Links to move through the records
If currentPage > 1 Then
Response.Write "<a class=""recordnav"" href=""" & Request.ServerVariables("SCRIPT_NAME") & "?currentPage=" & currentPage - 1 & "&advquery" & Server.URLEncode(Request.QueryString("advquery")) & """>Back</a>"
Else
Response.Write "<u style=""color : silver;font-family:arial, helvetica;font-size:9pt"">Back</u>"
End If
Response.Write " "
If CInt(currentPage) <> CInt(totalPages) Then%>
<% Response.Write "<a class=""recordnav"" href=""" & Request.ServerVariables("SCRIPT_NAME") & "?currentPage=" & currentPage + 1 & "&advquery=" & Server.URLEncode(Request.QueryString("advquery")) & "&typesearch=" & Server.URLEncode(Request.QueryString("Typesearch"))& """>Next</a>"%>
<%Else
Response.Write "<u style=""color : silver;font-family:arial, helvetica;font-size:9pt"">Next</u>"
End If
Else%>
<p CLASS="sorry"><font color="#FF0000"><strong><big>Sorry, keinen Kunden gefunden !</big></strong></font></p>
<p><%End If%> <% ' Done. Now release Objects
con.Close
Set con = Nothing
Set rs = Nothing
%> <!-- #EndEditable --><br>
</p>
<hr SIZE="1">
</td>
</tr>
<tr>
<td valign="top" width="928"></td>
</tr>
</table>
</body>
<!-- #EndTemplate -->
</html>