|
|
|
|
|
|
|
<% response.write rs("data")%>
-
<% response.write rs("titolo")%>
<%
messaggio = rs("descrizione")
messaggio = SPLIT(messaggio,VbCrLf)
FOR m=0 TO ubound(messaggio)
parola = SPLIT(messaggio(m)," ")
FOR i=0 TO ubound(parola)
IF Mid (parola(i),1,7) = "http://" THEN
parola(i)=""&parola(i)&""
END IF
IF Mid (parola(i),1,4) = "www." THEN
parola(i)=""&parola(i)&""
END IF
IF Mid (parola(i),1,4) = "BR" THEN
parola(i)=" "
END IF
IF Mid (parola(i),1,4) = "Bold" THEN
parola(i)=""
END IF
IF Mid (parola(i),1,5) = "-Bold" THEN
parola(i)=""
END IF
IF Mid (parola(i),1,6) = "Italic" THEN
parola(i)=""
END IF
IF Mid (parola(i),1,7) = "-Italic" THEN
parola(i)=""
END IF
NEXT
messaggio(m)=JOIN(parola," ")
NEXT
messaggio = JOIN(messaggio,VbCrLf)
messaggio = REPLACE (messaggio, VbCrLf, " ")
response.write messaggio
%>
|
<% if rs("imm_01") <> "-" then response.write " " %>
|
<%
Dim messaggio
messaggio = rs("testo")
messaggio = SPLIT(messaggio,VbCrLf)
FOR m=0 TO ubound(messaggio)
parola = SPLIT(messaggio(m)," ")
FOR i=0 TO ubound(parola)
IF Mid (parola(i),1,7) = "http://" THEN
parola(i)=""&parola(i)&""
END IF
IF Mid (parola(i),1,4) = "www." THEN
parola(i)=""&parola(i)&""
END IF
IF Mid (parola(i),1,4) = "BR" THEN
parola(i)=" "
END IF
IF Mid (parola(i),1,4) = "Bold" THEN
parola(i)=""
END IF
IF Mid (parola(i),1,5) = "-Bold" THEN
parola(i)=""
END IF
IF Mid (parola(i),1,6) = "Italic" THEN
parola(i)=""
END IF
IF Mid (parola(i),1,7) = "-Italic" THEN
parola(i)=""
END IF
NEXT
messaggio(m)=JOIN(parola," ")
NEXT
messaggio = JOIN(messaggio,VbCrLf)
messaggio = Replace (messaggio, VbCrLf, " ")
if rs("imm_02") <> "-" then
imm_02 = "
"
messaggio = Replace (messaggio, "XXX", imm_02)
messaggio = Replace (messaggio, "xxx", imm_02)
end if
if rs("imm_03") <> "-" then
imm_03 = " "
messaggio = Replace (messaggio, "YYY", imm_03)
messaggio = Replace (messaggio, "yyy", imm_03)
end if
response.write(messaggio)
%>
|
<% if rs("lat")<>"" and rs("lon")<>"" and rs("alt")<>"" then %>
|
<% end if %>
|
|
|
|
|
|
|
|
|
|
|
|
|