ho provare a stampare il percorso del database:
codice:
D:\Inetpub\webs\miositocom\mdb-database\E-commerce.mdb
per i permessi delle cartelle non credo di aver fatto nessun casino, con le modifiche del mdb ho sempre utilizzato la cartella mdb-database, ed è la cartella che hai i permessi per le modifiche dei database

provo a postarvi la pagina:
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim marca
Dim marca_numRows

Set marca = Server.CreateObject("ADODB.Recordset")
marca.ActiveConnection = MM_ecommerce_STRING
marca.Source = "SELECT DISTINCT Marca  FROM Prodotti"
marca.CursorType = 0
marca.CursorLocation = 2
marca.LockType = 1
marca.Open()

marca_numRows = 0
%>
<%
Dim Tipo
Dim Tipo_numRows

Set Tipo = Server.CreateObject("ADODB.Recordset")
Tipo.ActiveConnection = MM_ecommerce_STRING
Tipo.Source = "SELECT DISTINCT Classe  FROM Prodotti"
Tipo.CursorType = 0
Tipo.CursorLocation = 2
Tipo.LockType = 1
Tipo.Open()

Tipo_numRows = 0
%>
<%
if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then
Dim Prodo
Dim Prodo_numRows

Set Prodo = Server.CreateObject("ADODB.Recordset")
Prodo.ActiveConnection = MM_ecommerce_STRING
Prodo.Source = "SELECT * FROM Prodotti WHERE "&Request.QueryString("fcampo")&"='"&Request.QueryString("fcosa")&"'"
Prodo.CursorType = 0
Prodo.CursorLocation = 2
Prodo.LockType = 1
Prodo.Open()

Prodo_numRows = 0
end if
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
marca_numRows = marca_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
Tipo_numRows = Tipo_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
Prodo_numRows = Prodo_numRows + Repeat3__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>E-commerce - Daviduccio.it</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.Stile1 {font-family: verdana}
.Stile2 {font-size: x-small}
.Stile3 {font-family: verdana; font-size: x-small; }
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #000000;
}
a:active {
	text-decoration: none;
	color: #000000;
}
-->
</style>
</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<div align="center">
  <table width="752" height="403" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr>
    <td height="40" colspan="3" valign="top">	<p align="left"></td>
    </tr>
  <tr>
    <td width="192" rowspan="2" valign="top" bgcolor="#FFCC33"><p align="left" class="Stile1 Stile2">    Lista Per Marca:</p>
      <div align="left">
      <% 
While ((Repeat1__numRows <> 0) AND (NOT marca.EOF)) 
%>
          <table width="100" border="0">
            <tr>
              <td><span class="Stile3">"><%=(marca.Fields.Item("Marca").Value)%></span></td>
            </tr>
          </table>
          <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  marca.MoveNext()
Wend
%>      
      </div>      
      <p align="left" class="Stile3">Lista Per Categoria: 

      </p>
      <div align="left">
          <% 
While ((Repeat2__numRows <> 0) AND (NOT Tipo.EOF)) 
%>
          <table width="100" border="0">
            <tr>
              <td class="Stile3">"><%=(Tipo.Fields.Item("Classe").Value)%></td>
            </tr>
          </table>
          <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  Tipo.MoveNext()
Wend
%>      
      </div>      
      <p align="left" class="Stile3">Azioni:</p>
      <p align="left" class="Stile3">Vai al Carrello 

        

        Home 

        

        Ordine</p></td>
    <td height="19" valign="top" bgcolor="#FFCC33"></td>
    <td height="19" bgcolor="#FFCC33"><div align="right" class="Stile3">Lista Prodotti </div></td>
  </tr>
  <tr>
    <td width="4" height="266" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #FFCC33"></td>
    <td width="556" valign="top" style="border-left-width: 1px; border-right: 1px solid #FFCC33; border-top-width: 1px; border-bottom: 1px solid #FFCC33">
	  <table border="0">
        <tr>
          <td></td>
        </tr>
      </table>
	  <%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then%>
    <% 
While ((Repeat3__numRows <> 0) AND (NOT Prodo.EOF)) 
%>
<%
ci=(Prodo.Fields.Item("Foto").Value)
if ci <> "" then
fotina="ImagesProd/"&(Prodo.Fields.Item("Foto").Value)
else 
fotina="ImagesProd/nd.jpg"
end if
descpro=mid((Prodo.Fields.Item("Descrizione").Value),1,300)&"....."
%><%
If (Repeat3__numRows Mod 2) Then
	col="#f0f0f0"
	col2="#c0c0c0"
Else
	col="#e5e5e5"
	col2="#c0c0c0"
End IF
%>
    <table width="501" height="51" border="0" class="Stile3" cellspacing="0" cellpadding="0">
      <tr>
        <td width="84" bgcolor="<%=col2%>" style="border-left: 1px solid #FFCC33; border-right-width: 1px; border-top: 1px solid #FFCC33; border-bottom: 1px solid #FFCC33"><div align="center">

              &fcampo=<%=Request.QueryString("fcampo")%>&fcosa=<%=Request.QueryString("fcosa")%>">[img]<%=fotina%>[/img]

              

        </div></td>
        <td width="6" bgcolor="<%=col%>" style="border-top: 1px solid #FFCC33; border-bottom: 1px solid #FFCC33; border-left-width:1px; border-right-width:1px"><div align="left">  

        </div></td>
        <td width="411" bgcolor="<%=col%>" style="border-right: 1px solid #FFCC33; border-top: 1px solid #FFCC33; border-bottom: 1px solid #FFCC33; "><div align="left">&fcampo=<%=Request.QueryString("fcampo")%>&fcosa=<%=Request.QueryString("fcosa")%>"><%=descpro%></div></td>
      </tr>
      <tr>
        <td></td>
        <td colspan="2"></td>
      </tr>
    </table>
    <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  Prodo.MoveNext()
Wend
%>  	      <%else%>


    [img]images/euro.jpg[/img]
    <%end if%></td>
    </tr>
</table>
</div>
</body>
</html>
<%
marca.Close()
Set marca = Nothing
%>
<%
Tipo.Close()
Set Tipo = Nothing
%>
<%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then
Prodo.Close()
Set Prodo = Nothing
end if%>