codice:
<%
' nota: togliere lo spazio tra & e il resto della stringa
dim arrayCaratteri(11,1)
arrayCaratteri(0,0) = "à"
arrayCaratteri(0,1) = "& agrave;"
arrayCaratteri(1,0) = "è"
arrayCaratteri(1,1) = "& egrave;"
arrayCaratteri(2,0) = "é"
arrayCaratteri(2,1) = "& eacute;"
arrayCaratteri(3,0) = "ì"
arrayCaratteri(3,1) = "& igrave;"
arrayCaratteri(4,0) = "ò"
arrayCaratteri(4,1) = "& ograve;"
arrayCaratteri(5,0) = "ù"
arrayCaratteri(5,1) = "& ugrave;"
arrayCaratteri(6,0) = "<"
arrayCaratteri(6,1) = "|& lt;"
arrayCaratteri(7,0) = ">"
arrayCaratteri(7,1) = "& gt;"
arrayCaratteri(8,0) = "ç"
arrayCaratteri(8,1) = "& ccedil;"
arrayCaratteri(9,0) = "°"
arrayCaratteri(9,1) = "& deg;"
arrayCaratteri(10,0) = "£"
arrayCaratteri(10,1) = "& pound;"
arrayCaratteri(11,0) = "€"
arrayCaratteri(11,1) = "& euro;"
section="Privacy"
testoiniziale=0
'apro la connessione con il db
set myConn1 = server.CreateObject("ADODB.Connection")
dim strConnDb1
strConnDb1 = ""
strConnDb1 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/testisito.mdb")
myConn1.Open(strConnDb1)
mySqlSelect1 = "select * from testivari where Sezione='" & section & "' order by id"
set myRSComS1 = server.CreateObject("ADODB.Recordset")
myRSComS1.Open mySqlSelect1, myConn1
if not(myRSComS1.EOF) and not(myRSComS1.BOF) then
do while not(myRSComS1.EOF)
testoiniziale = testoiniziale + 1
Titoletto=myRSComS1("Sottosezione")
Testoinizio=myRSComS1("Testo")
for i = 0 to uBound(arrayCaratteri)
Titoletto = replace(Titoletto, arrayCaratteri(i,0), arrayCaratteri(i,1))
Testoinizio = replace(Testoinizio, arrayCaratteri(i,0), arrayCaratteri(i,1))
next
if (testoiniziale = 1) then
%>
<div class="testiinfolegali_nt"><%=replace(Testoinizio,chr(13)&chr(10),"
")%></div>
<%
else
%>
<div class="titoloinfolegali"><%=Titoletto%></div>
<div class="testiinfolegali"><%=replace(Testoinizio,chr(13)&chr(10),"
")%></div>
<%
end if
myRSComS1.MoveNext
loop
end if
myRSComS1.Close
set myRSComS1 = nothing
myConn1.Close
set myConn1 = nothing
%>
Rispondi quotando
