Ciao a tutti..
il titolo non dira' nulla infatti non sapevo come riassumere il mio problema.
Allora ho un ciclo con cui stampo da un db tutte le mie news che possono essere in diverse lingue a seconda se c'è o meno la traduzione.
Cio che io ho fatto ora è questo;:
in portoghese se c'è la news tradotta esce in portoghese, se non c'è la news esce in inglese o italiano .
In questa seconda opzione il ciclo che ho impostato mi ripete la news 2 volte nelle due lingue, mentre io vorrei che il titolo venisse visualizzato una sola volta (in inglese) con due link [italiano] [inglese]. Come devo fare?
Posto il mio codice ...
<%
Dim strSql
strSql="select * from tbtabA where id_lingua=30 or (id_lingua=20 and id_news not in (select id_news from tbtabA where id_lingua=30)) or (id_lingua=10 and id_news not in (select id_news from tbtabA where id_lingua=30)) order by id_news desc"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
%>
<%
Do While Not objRS.EOF
data= objrs("data")
giorno= mid(data,1,2)
mese= mid (data, 4,2)
anno=mid (data,7,4)
lang=objRs("id_lingua")
Select case Mese
case "01"
mese="Gennaio"
case "02"
mese="Febbraio"
case "03"
mese="Marzo"
case "04"
mese="Aprile"
case "05"
mese="Maggio"
case "06"
mese="Giugno"
case "07"
mese="Luglio"
case "08"
mese="Agosto"
case "09"
mese="Settembre"
case "10"
mese="Ottobre"
case "11"
mese="Novembre"
case "12"
mese="Dicembre"
end select%>
"><%=objRs("titolo")%>
(<%if lang="10" then
response.write "italiano"
elseif lang="20" then
response.write "english"
else
response.write ""
end if
%
<%objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing%>
:master:
grazie in anticipo
Rispondi quotando
