Buonanotte a tutti... in questo forum il motto è: "Se siete all'ultima spiaggia, questo è il forum che fa per voi!"
In effetti sono il classico caso da "ultima spiaggia"... il problema è il seguente:
ho uno script in ASP che preleva dei testi da un dbase access, settimanalmente aggiornato, e che in automatico fa "girare" e pubblica questi testi su una pagina web (tipo la frase del giorno)... un testo diverso per ogni giorno della settimana... alcuni di questi testi sono però come numero di righe più lunghi rispetto al totale delle righe che si possono visualizzare realmente sulla home page.
Altri testi invece si leggono per intero.
Per leggere la "continuazione" dei testi tagliati ho previsto nello script, questa parte di codice:
Response.write "<span class='testo'>"& Mid(rs_getQuote("quote"), 1, 20) & "</span><a href='index.asp?&id="& rs_getQuote("id") &"' target='_self'>Continua....</a>"
ma con questo code nella barra degli indirizzi quando chiamo la pagina mi ritrovo: http://www.miapaginaweb/quote/index.asp?&id=6
mentre il response write di prima mi linka a: http://www.miapaginaweb/quote/index.asp?&id=1
e non a http://www.miapaginaweb/quote/index.asp?&id=6
come, in teoria, dovrebbe essere.
Questo è il code completo, spero veramente che qualcuno possa aiutarmi a capire e "soluzionare" il problema:
<%Response.Buffer = True%>
<!--#include file="variables.asp"-->
<%
open_recordset rs_getQuote,"select * from quote"
open_recordset rs,"select * from idate"
if month(now()) < 10 then
imonth = "0"& month(now())
else
imonth = month(now())
end if
idate1 = day(now()) & "/" & imonth & "/" & year(now())
idate2 = formatdatetime(rs("iday"),2)
rs.close
Randomize Timer
intRnd = (Int(RND * rs_getQuote.RecordCount))
if iquote_of_the_day = "1" then
if idate1 <> idate2 then
sql_update = "update config set config_value="&intRnd&" where config_variable = 'number_quote_of_the_day' "
conn.Execute(sql_update)
sql_update = "update idate set iday='"&now()&"'"
conn.Execute(sql_update)
rs_getQuote.Move intRnd
else
rs_getQuote.Move inumber_quote_of_the_day
end if
else
if session("id") = intRnd then
do while session("id") = intRnd
intRnd = (Int(RND * rs_getQuote.RecordCount))
loop
end if
rs_getQuote.Move intRnd
session("id") = intRnd
end if
campoMemo=replace(rs_getQuote("quote"),chr(13),"<br>")
Response.write "<span class='testo'>"& Mid(rs_getQuote("quote"), 1, 20) & "</span><a href='index.asp?&id="& rs_getQuote("id") &"' target='_self'>Continua....</a>"
rs_getQuote.Close
Set rs_getQuote = Nothing
%>