connessione a mdb

**enrico16101990** · 27-04-2013, 00:45

salve, ormai sono 4 giorni che cerco di risolvere un errore ma sto diventando pazzo.
non riesco a capire se possa dipendere dal dominio aruba o dove sia l'errore.

L'errore incriminato è questo

codice:

 error '80004005'
/mdb-database/Ecommerce/Default.asp, line 8

che corrisponde in queste righe

codice:

1     <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
2     
3     <%
4     Dim marca
5     Dim marca_numRows
6
7     Set marca = Server.CreateObject("ADODB.Recordset")
8     marca.ActiveConnection = MM_ecommerce_STRING
9     marca.Source = "SELECT DISTINCT Marca  FROM Prodotti"
10   marca.CursorType = 0
11   marca.CursorLocation = 2
12   marca.LockType = 1
13   marca.Open()
14
15   marca_numRows = 0
16   %>

il file Connections\ecommerce.asp contiene:

codice:

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_ecommerce_STRING
MM_ecommerce_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/E-commerce.mdb")
%>

chi sa darmi una mano?
grazie anticipatamente a tutti!!!!

**Vincent.Zeno** · 27-04-2013, 00:59

è più probabile che siamo noi a scrivere male codice piuttosto che ci siano problemi sul server

la forma della connessione è corretta

per l'inclusione dovresti usare percorsi virtuali (/), non fisici (\)
prima di eseguire prova a stampare a video la connessione, così ti accerti della correttezza del percorso

**enrico16101990** · 27-04-2013, 02:28

scusami come faccio a stampare una prova?

**Vincent.Zeno** · 27-04-2013, 02:48

dove ora c'è la riga 6 scrivi:

codice:

response.write Server.MapPath("/mdb-database/E-commerce.mdb")
response.end

vedrai stampato il percorso verso il db

l'errore non ti dice altro?

**Vincent.Zeno** · 27-04-2013, 03:41

ripensandoci sembra un problema di accesso al db.
non è che hai lasciato aperte diverse connessioni in giro per le pagine o hai fatto qualche casino coi permessi della cartella o dei db?

**enrico16101990** · 27-04-2013, 13:25

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%>

**Massimo61** · 27-04-2013, 14:25

Ciao,

1) copia il database E-commerce.mdb nella cartella mdb-database di Aruba (non utilizzare quella fornita dall'autore (che ha lo stesso nome) ma quella dell'host.

2) modifica i file ecommerce.asp presenti in tutte le cartelle Connection cosi:

codice:

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_ecommerce_STRING
MM_ecommerce_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/E-commerce.mdb")
%>

3) modifica il file send.asp nella cartella Ordine inserendo i tuoi dati per contatto.

4) cambia username e pass dalla sezione amministrativa.

Non c'è altro, da modificare (impostazioni predefinite dell'autore).

Eventuali modifiche sono solo personalizzazioni o altro.

Massimo.

**giorgius** · 19-01-2015, 17:19

Edit...

Discussione: connessione a mdb

Strumenti discussione

Ricerca discussione

Visualizza

connessione a mdb

Permessi di invio