Newsgroup: it.comp.www.asp
Titolo: Aiuto

<%
      Cognome=request.form("Cognome")
      Nome=request.form("Nome")
      Sede=request.form("Città")
      Email=request.form("Email")
      if Cognome="" then Cognome="%"
      if Nome="" then Nome="%"
      if Sede="tutte" then Città="%"
      if Email="tutte" then Email="%"
sql="select * from Nomi where Cognome like '%"&Cognome&"%' and Nome like
'%"&Nome&"%' and Città like '%"&Città&"%' and Email like '%"&Email&"%'"
Set OBJdbConnection =Server.CreateObject("ADODB.Connection")
Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open"driver={MicrosoftAccess
Driver(*.mdb)};dbq=c:\inetpub\webpub\Elenco.mdb"
--->>> OBJdbConnection.Open "driver={Microsoft Access Driver
(*.mdb)};dbq="&server.mappath("Nomi")
Set RS=OBJdbConnection.Execute(sql)%>
Su questo listato il browser mi da questo errore, dove ho sbagliato?
Microsoft OLE DB Provider for ODBC Drivers errore "80004005'
[Microsoft][ODBC Driver Manager] Nome origine dati non trovato e driver
predefinito non specificato.
/risultato.asp, riga 24 (dove ho messo queste --->>>)

/risultato.asp, riga 24 (dove ho messo queste --->>>)
OBJdbConnection.Open"driver={MicrosoftAccess
Driver(*.mdb)};dbq=c:\inetpub\webpub\Elenco.mdb"
--->>> OBJdbConnection.Open "driver={Microsoft Access Driver
(*.mdb)};dbq="&server.mappath("Nomi")
Hai due Open una in fila all'altra. Una delle due punta
ad un database, l'altra punta ad un altro...
La prima ha il driver sbagliato (MicrosoftAccess tutto
attaccato) verifica di aprire un solo database e che sia
dove dovrebbe essere...
Davide

1.    Ho costruito una pagina di prova per capire come funziona asp, tutto
bene, ma purtroppo non riesco a creare una pagina asp linkata, cioč...
Questa č la riga di comando:
<a
href="descrizione.asp?ID=<%=RSProdotti("Codice")%>"><%response.write(RSProdo
tti("Descrizione"))%></a>
 a href mi manda alla pagina "descrizione" cercando il prodotto lincato in
questo caso.. descrizione.asp?ID=58102  dove ID 58102 č il codice articolo,
bene io non riesco a creare la pagina con le descrizioni del prodotto.
2.    secondo aiuto... in un catalogo articoli io ho il  gruppo, sottogruppo
e categorie come faccio io a creare una pagina ad esempio
articoli.asp?ID=1( e crea la query gruppo con  ID1)1(crea la query
sottogruppo con ID 1)3(crea la query categorie con ID 3)
cosi io ho gruppo ferramenta, sottogruppo scatole, categoria piccole?
grazie Claudia     neo prg in asp

sottogruppo e categorie 
<ZAP>
Assumo che tu abbia 3 tabelle: Gruppi, Sottogruppi e Categorie,
e che nella tabella Sottogruppo tu abbi aun campo Gruppo, nella
Categoria tu abbia Sottogruppo e Gruppo e quindi nella tabella
Articoli tu abbia i campi Gruppo, Sottogruppo e Categoria che
corrispondano a quelli delle 3 tabelle sopra indicate.
Ok, a questo punto potresti fare una pagina chiamata
'pagina.asp' (che fantasia) con una cosa del tipo
<%
' assumo connessione gia' aperta
Sql = "SELECT Gruppo, Descrizione From GRUPPI"
Set rs=conn.Execute(Sql)
defGruppo = ""
Do While Not rs.EOF
	' memorizzo il 1o gruppo
	If defGruppo = "" Then defGruppo = rs.Fields("Gruppo")
	' visualizzo i dati
	Response.Write "<a href='pagina.asp?gruppo=" & rs.Fields("Gruppo")
	Response.Write "'>" & rs.Fields(Descrizione) & "</a><br>"
	' prossimo gruppo
	rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
Questo visualizza tutti i gruppi, quindi
<%
' preparo la query per i sottogruppi
If Request("Gruppo") = "" Then
	defGruppo = Request("Gruppo")
End If
Sql = "SELECT SottoGruppo, Descrizione FROM Sottogruppi _
    WHERE Gruppo=" & defGruppo
' ciclo e visualizzo i sottogruppi
Set rs=conn.Execute( Sql )
defSottoGruppo = ""
Do While Not rs.EOF
	' memorizzo il 1o sottogruppo
	If defSottoGruppo = "" Then defSottoGruppo =
		 rs.Fields("SottoGruppo")
	' visualizzo i dati
	Response.Write "<a href='pagina.asp?gruppo=" & defGruppo
	Response.Write "&sottogruppo=" & rs.Fields("SottoGruppo")
	Response.Write "'>" & rs.Fields(Descrizione) & "</a><br>"
	' prossimo sottogruppo
	rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
Cosi' hai un sistema che ti visualizza i gruppo ed i soli
sottogruppi appartenenti al gruppo scelto (o al primo sottogruppo
se nessun gruppo e' stato scelto).
Nello stesso modo gestisci le categorie e gli articoli.
Davide

La seconda Open punta sul Nomi che non ha neanche l'estensione.
--
Lino Mari
Intermedia srl
http://www.intermedia2000.com

<%
set conn = server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver
(*.mdb)};dbq="&server.mappath("dbinternet.mdb")
sql = "SELECT * FROM Articoli WHERE ID=" & Request("ID")
Set rs = conn.Execute (sql)
%>
<%response.write(rs("Codice"))%>
<%response.write(rs("Descrizione"))%>
<%response.write(rs("Descrizione2"))%>
<%response.write(rs("Prezzo"))%>
<%
conn.close
set conn = nothing
%>
Io ho eseguito lo script ma purtroppo il browser mi da questo errore.....
dove ho sbagliato???
Microsoft OLE DB Provider for ODBC Drivers errore "80040e10'
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto
1.
/descrizione.asp, riga ......

sql = "SELECT * FROM Articoli WHERE ID=" & Request("ID")
la Request("ID") ritorna niente (non c'e' nessun ID specificato),
quindi la query diventa:
SELECT * FROM Articoli WHERE ID=
E quindi lui dice "where ID= a che????".
Prova a modificare la definizione della query come segue:
If Request("ID") = "" Then
	sql = "Select * FROM Articoli"
Else
	sql = "Select * FROM Articoli WHERE ID=" & Request("ID")
End If
In questo modo se ID non e' specificato, non ottieni un errore.
Davide