Newsgroup: it.comp.www.asp
Titolo: AIUTO, non so che pesci pigliare...

Scusate se uso nell'oggetto il maiuscolo ma sono veramnete disperato.
Ho installato Internet Information Server sul mio server NT che gestisce le ASP
e qualora io uso un interrogazione al database mi rilascia un errore del tipo:
Microsoft OLE DB Provider for ODBC Drivers error '80004005' 
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot
open the file '(unknown)'. It is already opened exclusively by another user,
or you need permission to view its data. 
/www/ASP/guestbook/tools.asp, line 12 
Il listato è il seguente:
--------------------------------
FILE DEFAULT.ASP
<!--#include file="tools.asp"-->
<%OpenDB con, "GuestBook"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
	<TITLE>GUESTBOOK</TITLE>
</HEAD>
<BODY bgcolor="#ffffff" background="bground.gif">
<dir><dir>
<%
SQL = "SELECT * FROM tblGuestbook ORDER BY fldAuto DESC"
Set rs = con.Execute(SQL)
%>
<table width="550">
<tr>
	<td align="center"><b><font face="Verdana,Arial" size="3">Metra SpA Guestbook<br>
      </font><font color="#FF0000" face="Verdana,Arial" size="2">Suggerimenti
e
      Consigli</font></b></td>
</tr>
<tr>
	<td align="left"><font face=Arial size=2><b><a href="post.asp">Inserisci un
      messaggio ora</a></b></font></td>
</tr>
<tr>
	<td><hr size="1"></td>
</tr>
<%
While Not rs.EOF
	varName = Trim(rs("fldName"))
	varEmail = Trim(rs("fldEmail"))
	varHomePage = Trim(rs("fldHomePage"))
	varCity = Trim(rs("fldCity"))
	varState = Trim(rs("fldState"))
	varCountry = Trim(rs("fldCountry"))
	varMessage = Trim(rs("fldMessage"))
	varTime = rs("fldTime")
	varDate = rs("fldDate")
%>
<tr>
	<td>
<font face="TREBUCHET MS,ARIAL,HELVETICA" size="2"><%=Replace(varMessage,vbCrLf,"<br>")%><br>
<font size="1"><%If varHomePage = "http://" OR varHomePage = "" Then%>
	<b><%=varName%></b>
<%Else%>
	<b><a href="<%=varHomePage%>"><%=varName%></b></a>
<%End if%>
 &nbsp;<<a href="mailto:<%=varEmail%>"><%=varEmail%></a>><br>
<font color="#800000"><%=varCity%>,&nbsp;<%if not varState="" Then%><%=varState%>&nbsp;<%end
If%><%If not varCountry="" Then%><%=varCountry%> - <%End if%><%=varDate%> 
a</font></font></font><font color="#800000" size="1" face="TREBUCHET MS,ARIAL,HELVETICA">lle
    ore</font><font face="TREBUCHET MS,ARIAL,HELVETICA" size="2"> <%=varTime%></font><br>
<hr color="navy" size="1">
	</td>
</tr>
<%
rs.MoveNext
Wend
rs.Close
%>
</table>
</dir></dir>
</BODY>
</HTML>
-------------------------------
file TOOLS.ASP
-------------------------------
<%
'--- establish access connection
Sub OpenDB (ByRef con, d)
	DB = d & ".mdb"
	Dir = Request.ServerVariables("SCRIPT_NAME")
	Dir = StrReverse(Dir)
	Dir = Mid(Dir, InStr(1, Dir, "/"))
	Dir = StrReverse(Dir)
	Path = Server.MapPath(Dir) & "\"
	DSN = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;ReadOnly=0;UserCommitSync=Yes;Threads=3;SafeTransactions=0;PageTimeout=5;MaxScanRows=8;MaxBufferSize=512;ImplicitCommitSync=Yes;FIL=MS
Access;DriverId=25" & ";DefaultDir=" & Path & ";DBQ=" & Path & DB & ";"
	Set con = Server.CreateObject("ADODB.Connection")
	con.Open DSN
End Sub
&>
POTRESTE AIUTARMI PER FAVORE A CAPIRE COSA NON FUNZIONA???
--
Postato da 212.41.199.10 [212.41.199.10] via
ASPItalia News on Web - 
http://www.ASPItalia.com/newsgroup/
--
ASP, WSH, XML, XSL, IIS, NT, Win2k: per te sono solo sigle?
Su 
http://www.ASPItalia.com
 trovi tutto quello che ti serve
per capire di cosa stiamo parlando. In Italiano.

<%OpenDB con, "GuestBook"%>
E' qui' che apri la connessione? Magari non gli piace...
Hai provato a vedere cosa cavolo fa' questa 'OpenDB' ?
Hai provato ad aprirti la connessione a manina?
Hai provato a dare un'occhiata su 
www.aspitalia.com
 o su 
www.html.it
 ?
Hai provato... ok, ok, la smetto.
Davide