160 messaggi dal 23 febbraio 2004
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
%>
593 messaggi dal 09 ottobre 2002
www.dotnetside.org
Siamo alla disperazione!

Eh Viky?

Almeno dall'altra parte qualcuno si è proposto.

Ti ho anche risposto (in MP) da almeno tre ore.

Ciao ciao

Pochi post. Anzi, quasi quasi spengo
http://www.dotnetside.org/
3.122 messaggi dal 16 maggio 2002
Eh Viky?

Viky?? Sarà mica viki1967? E' la stessa persona per entrambi gli account? Allora ci avevo visto bene, il loro stile era molto simile.

The day Microsoft makes something that doesn't suck
is probably the day they start making vacuum cleaners.

Get caught!
Get caught again!

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.