problemi con database

[Micinino]

ciao a tutti sono nuovo e non conosco molto bene asp(molto poco anzi);
grazie da subito per chi riesce ad aiutarmi portate pazienza....

allora ho un problema con i database:

devo creare un archivio di testi di canzoni, per ogni canzone registro grazie ad un form il testo,la traduzione,l'autore......

ora ho creato una pagina visualizza.asp che mi restituisce il "titolo" il "disco" e l'"anno" della canzone.

Vorrei fare in modo che cliccando sul titolo di ogni canzone si aprisse un altra pagina con iltesto della canzone e la traduzione.

Allora ho creato una pagina simile che si chiama testi.asp (nella pagina visualizza.asp ho inserito un collegameto su ogni titolo delle canzoni che manda a testi.asp) e che nel comando SELECT ha come opzione WHERE Titolo = 'strTesto' dove strTesto è uguale a strTesto =objRS("Titolo").

questo metodo non funziona logicamente.

Mi potete aiutare.

Per spiegarmi meglio vorrei fare in modo che ogni "titolo" di canzone proveniente dal database e visualizzato nella pagina visualizza.asp mi aprisse una pagina con il suo testo e la sua traduzione.

aiuto please grazie



Vi riporto il codice delle due pagine....

allora: visualizza.asp

<p align="center">
<center><h2>ARCHIVIO TESTI</H2>
aggiungi files</center>


<%
SQL = "Select * FROM rhcpfiles order by Titolo Asc"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, Conn

Response.Write "<p align=center>"&"<table border=1 bordercolor=red>"
Response.Write "<tr>"&"<td>"& "Titolo" & "</td>"&"<td>"& "Disco" & "</td>"&"<td>" & "Anno" &"</td>"
Do While Not objRS.Eof
Response.Write "<tr>"&"<td>"& "" & objRS("Titolo") & ""&"</td>"
Response.Write "<td>"& objRS("Disco")&"</td>"
Response.Write "<td>"& objRS("Anno")&"</td>"

objRS.MoveNext
Loop
Response.Write "</table>"&"</p>"

objRS.Close
Set objRS = Nothing
Conn.Close
%>



e la pagina testi.asp



<p align="center">
<center><h2>ARCHIVIO TESTI</H2>
aggiungi files</center>


<% Dim strTesto %>
<%
Dim testo
SQL = "Select * FROM rhcpfiles WHERE Titolo = 'strTesto'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, Conn

Do While Not objRS.Eof
strTesto =objRS("Titolo")
Response.Write objRS("Titolo")
objRS.MoveNext
Loop


objRS.Close
Set objRS = Nothing
Conn.Close
%>

ciao grazie

[Roby_72]

Devi avere un campo contatore, generalmente ID.

Response.Write "<tr>"&"<td>"& "" & objRS("Titolo") & ""&"</td>"

In testi.asp

<p align="center"> 
<center><h2>ARCHIVIO TESTI</H2> 
aggiungi files</center> 

 
<% Dim strTesto %> 
<% 
Dim id
id = trim(rquest.querystring("id"))
SQL = "Select * FROM rhcpfiles WHERE id= "& id
Set objRS = Server.CreateObject("ADODB.Recordset") 
objRS.Open SQL, Conn 
if not objRS.EOF then
testo = objRS("testo") 
end if
Loop 
objRS.Close 

response.write ("testo")
Set objRS = Nothing 
Conn.Close 
%>

Roby

[Micinino]

Ma il loop ci va??
mi segna errore

[Micinino]

Allora grazie ai tuoi consigli ho fatto un passo in avanti e ho passato il titolo della canzone nella pagina testi.asp
ora però nn riesco a visualizzare il testo o gli altri dati della canzone...
i due file aggiornati sono questi...al posto del'id uso il titolo perchè poi ordinadoli per nome si incasinano)

visualizza1.asp


SQL = "Select * FROM rhcpfiles order by Titolo Asc"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, Conn

Response.Write "<p align=center>"&"<table border=1 bordercolor=red>"
Response.Write "<tr>"&"<td>"& "Titolo" & "</td>"&"<td>"& "Disco" & "</td>"&"<td>"

& "Anno" &"</td>"
Do While Not objRS.Eof
Response.Write "<tr>"&"<td>"& "<a href=""testi.asp?id="& objRS("Titolo") &""">" &

objRS("Titolo") &"</a>" & "</td>"
Response.Write "<td>"& objRS("Disco")&"</td>"
Response.Write "<td>"& objRS("Anno")&"</td>"

objRS.MoveNext
Loop
Response.Write "</table>"&"</p>"

objRS.Close
Set objRS = Nothing
Conn.Close
%>



testi.asp

<p align="center">
<center><h2>ARCHIVIO TESTI</H2>



<% Dim strTit %>
<%
Dim id
id = trim(request.querystring("id"))
SQL = "Select * FROM rhcpfiles WHERE titolo=" & "id"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, Conn

if not objRS.EOF then
response.write "" & objRS("titolo") & ""
end if
objRS.Close

Response.write "ciao"

Set objRS = Nothing
Conn.Close

%>


il titolo infatti non si visualizza!
grazie

[Roby_72]

Non devi passare il titolo, ma l'id.
Mi elenchi i campi di cui è composta la tua tabella?

Roby

[Micinino]

Allora la mia tabella ha i campi:
id,titolo,disco,anno (però ne devo aggiungeremolti)
il problema è che non ho l'id...cioè la colonna degli id è vuota

cmq volevo che ad ogni titolo visualizzato nella pagina visualizza1.asp
si aprisse la pagina testi.asp e visualizzasse le altre informazioni della canzone
grazie

[Roby_72]

La colonna id deve essere di tipo contatore e NON deve essere vuota.
Cominciamo dall'inizio quindi. Non raggiungiamo il risultato a caso.

Roby

[Micinino]

Ma si può riempire automaticamente o ogni volta devo inserire un numero?
scusa ma non conosco asp e i database e quindi faccio molta confusione!
cioè so cosa voglio fare ma non riesco a farlo!

[Micinino]

Allora ho inserito per prova i vari id nel databse e ho provato il tutto ma mi dà questo errore
Tipo di errore:
Microsoft JET Database Engine (0x80040E07)
Tipi di dati non corrispondenti nell'espressione criterio.
/r/song/testi.asp, line 12


il codice delle due pagine è:

visualizza1.asp

<p align="center">
<center><h2>ARCHIVIO TESTI</H2>
aggiungi files</center>


<%
SQL = "Select * FROM rhcpfiles order by Titolo Asc"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, Conn

Response.Write "<p align=center>"&"<table border=1 bordercolor=red>"
Response.Write "<tr>"&"<td>"& "Titolo" & "</td>"&"<td>"& "Disco" & "</td>"&"<td>" & "Anno" &"</td>"
Do While Not objRS.Eof
Response.Write "<tr>"&"<td>"& "" & objRS("Titolo") &"" & "</td>"
Response.Write "<td>"& objRS("Disco")&"</td>"
Response.Write "<td>"& objRS("Anno")&"</td>"

objRS.MoveNext
Loop
Response.Write "</table>"&"</p>"

objRS.Close
Set objRS = Nothing
Conn.Close
%>


il codice di testi.asp è



<p align="center">
<center><h2>ARCHIVIO TESTI</H2>
aggiungi files</center>


<%
Dim id
id = trim(request.querystring("id"))

SQL = "Select * FROM rhcpfiles WHERE id = "& id
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, Conn

Do While Not objRS.Eof
Response.write objRS("titolo")
objRS.MoveNext
Loop


Set objRS = Nothing
Conn.Close
Set.Conn = NOthing
%>



portate pazienza
aiuto please
grazie mille

[Roby_72]

Se il campo ID lo hai definito contatore si incrementa da solo.

Prova così:

SQL = "Select * FROM rhcpfiles WHERE id = "& CInt(id )

Roby