Se vi avanza pazienza...

[filippoies]

Salve a tutti,
avrei due quesiti da porvi, se avete voglia di darmi una mano.
Il primo riguarda il recupero de idati da una pagina precedente, che non riesco a settare

<%= "<a href='autori.asp?" & nome & "_" & cognome & "'>"%>

nella prima pagina e

nome = Trim(Request("nome")) cognome = Trim(Request("cognome")) Response.Write nome & ", " & cognome

nella seconda

il secondo quesito è più grave visto che si poggia alla mia semi-totale ignoranza : praticamente ho relazionato due tabelle attraverso un campo e ignoro il comando per riuscire ad ottenere i risultati nella stessa pagina asp.
Sto provando di tutto dall'apertura di due recordset nella stessa pagina a seppellire dei peli di ragno sotto una quercia a mezzanotte del plenilunio...mi potete dare una mano, o farmi trovare qualche link che mi spighi come fare visto che il mio manuale ha abbandonatoogni speranza ed è ormai più sconsolato di me?
Grazie a tutti

[agenti]

1)

forse sarebbe più comodo:

fai confusione nella querystring (query di ricerca)


di solito è cosi:


&cognome=<%=cognome%>">link

2)

tutto dall'apertura di due recordset nella stessa pagina a seppellire dei peli di ragno sotto una quercia a mezzanotte del plenilunio...mi potete dare una mano, o farmi trovare qualche link che

??????

passando oltre:

la stringa che hai scritto dovrebbe essere nella seconda pagina, ovvero nella pagina di elaborazione dei dati inviati.


nome = Trim(Request("nome"))
cognome = Trim(Request("cognome"))

Response.Write nome & ", " & cognome

non vedo la query che hai fatto quindi su questo non posso aiutarti.

ciao.

[filippoies]

Ti ringrazio,
non è che avessi fatto chissà quale casino...mi ero solo dimenticato di mettere = dopo nome...mannaggia la miseria!

Il secondo quesito , cercando di spiegarmi meglio è questo:
ho nel database due tabelle relazionate tra lo (in pratica in una ci sono le citazioni e nell'altra gli autori che ripetendosi più volte ho spostato sulla seconda tabella)
ora sono nella necessità di poter listare tutte le citazioni seguite dal loro autore.
posto l'ultimo tentativo fatto

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver(*.mdb)}; dbq=" & server.mappath("mdb-database/citazioni.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS_autori = Server.CreateObject("ADODBRecordset")
strSQL = "select * from tbl_citazioni order by citazione"
RS.open strSQL, Conn, 1
strsql_autori="select * from tbl_autori"
rs_autori.open strsql_autori, conn
If RS.Eof=True or RS.Bof=True and rs_autori.eof=true then
Response.Write "

Nessun risultato trovato"
Else
For i=1 to RecordsPerPagina
if Not RS.EOF or not rs_autori.eof then
Response.Write "" & rs("Citazione") & ". "
rs("Autore2")= Id_autore
if rs_autori("ID")= ID_autore then
Response.Write "[" & rs_autori("Autore") & "]"
else
rs_autori.MoveNext
end if
RS.MoveNext
end if
Next
End if

Questa però dà un errore...devo ammettere che ho iniziato a cambiare il codice al caso contando sul woodu...(da qui i peli di ragno...)
Grazie ancora

[filippoies]

Ho provato anche quest'altro:

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver(*.mdb)}; dbq=" & server.mappath("mdb-database/citazioni.mdb")
Set RS = ServerCreateObject("ADODB.Recordset")
strSQL = "select * from tbl_citazioni order by citazione"
RS.open strSQL, Conn, 1
If RS.Eof=True or RS.Bof=True then
Response.Write "

Nessun risultatotrovato</P>"
Else
For i=1 to RecordsPerPagina
if Not RS.EOF then
Response.Write "" & rs("Citazione") & ". "
Id_autore =rs("Autore2")
Set RS_autori = ServerCreateObject("ADODB.Recordset")
strsql_autori="select * from tbl_autoriwhere Id='" & Id_autore & "'"
rs_autori.open strsql_autori, conn
if rs_autori("ID")= ID_autore then
Response.Write "[" &rs_autori("Autore") & "]"
else
rs_autori.MoveNext
end if
RS.MoveNext
end if
Next
End if

Naturalmente mi da un errore, chissa che ho combinato...

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio. /citazioni.asp, line 154

dove la 154 è

rs_autori.open strsql_autori, conn

grazie ancora

[santino83]

non so la struttura delle tabelle, però:

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver(*.mdb)}; dbq=" & server.mappath("mdb-database/citazioni.mdb") 

Set RS = Server.CreateObject("ADODB.Recordset") 

strSQL = "select * from tbl_citazioni tb1, tbl_autori tb2 where tb1.IDAUTORE=tb2.id order by citazione" 
RS.open strSQL, Conn, 1,1


if rs.eof or rs.bof then
response.Write("nessuna citazione trovata")

Else 
For i=1 to RecordsPerPagina 
if Not RS.EOF then
Response.Write "" & rs("Citazione") & ". " 

Response.Write "[" & rs("Autore") & "]"

RS.MoveNext
end if 
next
End if 

%>

nella query ho messo per semplicità un alias alle tabelle (tb1 e tb2)

tb1.IDAUTORE=tb2.id devi sostiuire a IDAUTORE il nome del campo nella tabella delle citazioni che porta il riferimento all'id dell'autore nella tabella autori

prova e dicci dove da errore

[filippoies]

Tutto perfettissimo!
Quindi tutto il lavoro che avevo fatto quando non è stato inutile è stato dannoso...
Era così sbagliato?
Piuttosto mi spiegate bene

RS.open strSQL, Conn, 1,1

perché l'ultimo 1? questa parte ancora non l'ho capita...
Grazie tante per tutto, compresa la pazienza

[santino83]

no piu che dannoso era di troppo...perchè 2 query e 2 recordset (quindi due accessi al db) e sopratutto 2 recordset molto grossi quando puoi avere 1 recordset+1accesso al db+ una mole di dati inferiori=meno appesantimento?

cmq quegli 1,1 sono i modi in qui viene aperto il recordset...se cerchi la reference sul sito microsoft te lo spiega

[filippoies]

Altolà, fermi tutti!
perché mi funziona in locale e mi si imbizzarrisce sul server?

e perché proprio la riga

RS.open strSQL, Conn, 1,1

???

L'errore è

Microsoft OLE DB Provider for ODBC Drivers error '80040e21' ODBC driver does not support the requested properties

grazie

[santino83]

usa quest'altra stringa:

"provider=microsoft.jet.oledb.4.0;" & "data source=" & server.mappath("mdb-database/citazioni.mdb")

[filippoies]

ho fatto:

Conn.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" & server.mappath("mdb-database/citazioni.mdb")

Ora però:

Microsoft JET Database Engine error '80040e10' No value given for one or more required parameters.

grazie ancora

P.S. praticamente si è cambiato tipo di database, giusto?
Mi passate dei link dai quali possa capirne qualcosa in più? grazie