problema con url

[slay]

ho questa pagina: voto.asp
[code]
<%@ Language = "VBScript" %>

<%'APERTURA CONNESSIONE CON IL DATABASE %>


<%
'request
A = lcase(request.querystring("A"))
%>


<%
Dim titolo
Dim rs
dim sql
titolo=request.querystring("titolo")
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select * from listaaffiliazioni where titolo='"&replace(titolo,"'","''")&"'"
rs.open sql, dcnDB, 3, 3
%>

<%'pagina che mostrano la descrizione della pagina consigli
select case a
case "votazione"%>
<% = (rs("titolo")) %>

">molto bello




<%case "votazione_grazie"%>
<% = (rs("titolo")) %>

grazie per aver votato

<%end select%>
<%'chiudo tutto dcbDB deve essere uguale alla conessione al db
rs.close
set rs=nothing
dcnDB.close
set dcnDB=nothing
%>
</html>

cliccando nel link molto bello mi dovrebbe visualizzare:
titolo grazie per aver votato

però mi da questo errore:
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/dablones/affiliazioni/voto.asp

perchè?

[gold]

ciao,

il problema è che non hai record restituiti, se vuoi che non ti dia errore devi mettere prima di chiamare un record , un controllo per vedere se ci sono record oppure no.


prova cosi' :

<%@ Language = "VBScript" %> 
 
<%'APERTURA CONNESSIONE CON IL DATABASE %> 
 

<% 
'request 
A = lcase(request.querystring("A")) 
%> 


<% 
Dim titolo 
Dim rs 
dim sql 
titolo=request.querystring("titolo") 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql= "select * from listaaffiliazioni where titolo='"&replace(titolo,"'","''")&"'" 
rs.open sql, dcnDB, 3, 3 
counter=rs.recordcount
if counter > 0 then
%> 

<%'pagina che mostrano la descrizione della pagina consigli 
select case a 
case "votazione"%> 
<% = (rs("titolo")) %>
 
">molto bello
 



<%case "votazione_grazie"%> 
<% = (rs("titolo")) %> 

grazie per aver votato 

<%end select%> 
<%'chiudo tutto dcbDB deve essere uguale alla conessione al db 
rs.close 
set rs=nothing 
dcnDB.close 
set dcnDB=nothing 
end if
%> 
</html>

ad occhio e croce dovrebbe andare

[slay]

ehh non funziona.. non mi da niente ne errore mi da una pagina bianca

[gold]

<%@ Language = "VBScript" %> 
 
<%'APERTURA CONNESSIONE CON IL DATABASE %> 
 

<% 
'request 
A = lcase(request.querystring("A")) 
%> 


<% 
Dim titolo 
Dim rs 
dim sql 
titolo=request.querystring("titolo") 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql= "select * from listaaffiliazioni where titolo='"&replace(titolo,"'","''")&"'" 
rs.open sql, dcnDB, 3, 3 
counter=rs.recordcount
if counter > 0 then
%> 

<%'pagina che mostrano la descrizione della pagina consigli 
select case a 
case "votazione"%> 
<% = (rs("titolo")) %>
 
">molto bello
 



<%case "votazione_grazie"%> 
<% = (rs("titolo")) %> 

grazie per aver votato 

<%end select%> 
<%'chiudo tutto dcbDB deve essere uguale alla conessione al db 
rs.close 
set rs=nothing 
dcnDB.close 
set dcnDB=nothing
else
response.write("nessun record trovato") 
end if
%> 
</html>

adesso la pagina bianca non dovrebbe piu' darla... in compenso troverai una scritta che dice :

nessun record trovato (controlla il db)

[slay]

grazie.... però missà che l'erroe l'ho trovato nella pagina go.asp

dovrei fare una cosa del genere:

url= voto.asp?A=votazione_grazie&titolo=<% = (rs("titolo")) %>

come imposto questa stringa??

[slay]

ecco il codice della pagina go.asp

<%
Dim url
dim code
dim sql
dim totale
code=request.querystring("titolo")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select * from listaaffiliazioni where titolo='"&replace(code,"'","''")&"'"
rs.Open sql, dcnDB, 3, 3
if rs.eof then
rs.addnew
rs.Fields("link")=code
rs.Fields("totale")=1
rs.update
else
totale=rs("totale")+1
rs.Fields("totale")=totale
rs.update
end if
url= voto.asp?A=votazione_grazie&titolo="&(rs("titolo")
RS.Close
Set RS = Nothing
dcnDB.Close
Set dcnDB=Nothing
response.redirect url
%>

[gold]

Originariamente inviato da slay
grazie.... però missà che l'erroe l'ho trovato nella pagina go.asp

dovrei fare una cosa del genere:

url= voto.asp?A=votazione_grazie&titolo=<% = (rs("titolo")) %>

come imposto questa stringa??

non ho ben capito cosa vuoi fare

[slay]

hai ragione... non ti ho spiegato bene:

allora non mi visualizzava niente perchè la pagina go.asp
mi prelevava dal db il campo link nel campo link c'era solo questo: voto.asp?A=votazione_grazie&titolo= e invece ci deve essere voto.asp?A=votazione_grazie&titolo=ciao e quindi non mi visualizzava niente...

<%
Dim url
dim code
dim sql
dim totale
code=request.querystring("titolo")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select * from listaaffiliazioni where titolo='"&replace(code,"'","''")&"'"
rs.Open sql, dcnDB, 3, 3
if rs.eof then
rs.addnew
rs.Fields("totale")=1
rs.update
else
totale=rs("totale")+1
rs.Fields("totale")=totale
rs.update
end if
url=rs("link")
RS.Close
Set RS = Nothing
dcnDB.Close
Set dcnDB=Nothing
response.redirect url
%>

io vorrei togliere il campo link dal db e mettere un variabile del tipo voto.asp?A=votazione_grazie&titolo=<% = (rs("titolo")) %> al posto di url=rs("link")... spero di essermi spiegato

[gold]

mi sembra una soluzione troppo semplice, per questo credo di non avere capito... comunque prova cosi':



<%
Dim url
dim code
dim sql
dim totale
code=request.querystring("titolo")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select * from listaaffiliazioni where titolo='"&replace(code,"'","''")&"'"
rs.Open sql, dcnDB, 3, 3
if rs.eof then
rs.addnew
rs.Fields("totale")=1
rs.update
else
totale=rs("totale")+1
rs.Fields("totale")=totale
rs.update
end if
url="voto.asp?A=votazione_grazie&titolo="&(rs("tit olo"))
RS.Close
Set RS = Nothing
dcnDB.Close
Set dcnDB=Nothing
response.redirect url
%>


ma ripeto credo di non aver capito bene ancora


ok ok mi autofagianizzo

[slay]

si ok così va... il problema e che non riuscivo a capire dove stava l'errore dopo un po' di prove ho semplificato il tutto ora funzia