%@ Language=VBScript %>
<%
Con.open
strSQL="SELECT * FROM kits_ita"
set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open strSQL,Con
titolo1=objRS("titolo1")
titolo1=server.htmlEncode(titolo1)
titolo1=Replace(titolo1, vbcrlf, "
")
titolo1=Replace(titolo1, " ", " ")
titolo2=objRS("titolo2")
titolo2=server.htmlEncode(titolo2)
titolo2=Replace(titolo2, vbcrlf, "
")
titolo2=Replace(titolo2, " ", " ")
titolo3=objRS("titolo3")
titolo3=server.htmlEncode(titolo3)
titolo3=Replace(titolo3, vbcrlf, "
")
titolo3=Replace(titolo3, " ", " ")
titolo4=objRS("titolo4")
titolo4=server.htmlEncode(titolo4)
titolo4=Replace(titolo4, vbcrlf, "
")
titolo4=Replace(titolo4, " ", " ")
titolo5=objRS("titolo5")
titolo5=server.htmlEncode(titolo5)
titolo5=Replace(titolo5, vbcrlf, "
")
titolo5=Replace(titolo5, " ", " ")
titolo6=objRS("titolo6")
titolo6=server.htmlEncode(titolo6)
titolo6=Replace(titolo6, vbcrlf, "
")
titolo6=Replace(titolo6, " ", " ")
titolo7=objRS("titolo7")
titolo7=server.htmlEncode(titolo7)
titolo7=Replace(titolo7, vbcrlf, "
")
titolo7=Replace(titolo7, " ", " ")
titolo8=objRS("titolo8")
titolo8=server.htmlEncode(titolo8)
titolo8=Replace(titolo8, vbcrlf, "
")
titolo8=Replace(titolo8, " ", " ")
descrizione1=objRS("descrizione1")
descrizione1=server.htmlEncode(descrizione1)
descrizione1=Replace(descrizione1, vbcrlf, "
")
descrizione1=Replace(descrizione1, " ", " ")
descrizione2=objRS("descrizione2")
descrizione2=server.htmlEncode(descrizione2)
descrizione2=Replace(descrizione2, vbcrlf, "
")
descrizione2=Replace(descrizione2, " ", " ")
descrizione3=objRS("descrizione3")
descrizione3=server.htmlEncode(descrizione3)
descrizione3=Replace(descrizione3, vbcrlf, "
")
descrizione3=Replace(descrizione3, " ", " ")
descrizione4=objRS("descrizione4")
descrizione4=server.htmlEncode(descrizione4)
descrizione4=Replace(descrizione4, vbcrlf, "
")
descrizione4=Replace(descrizione4, " ", " ")
descrizione5=objRS("descrizione5")
descrizione5=server.htmlEncode(descrizione5)
descrizione5=Replace(descrizione5, vbcrlf, "
")
descrizione5=Replace(descrizione5, " ", " ")
descrizione6=objRS("descrizione6")
descrizione6=server.htmlEncode(descrizione6)
descrizione6=Replace(descrizione6, vbcrlf, "
")
descrizione6=Replace(descrizione6, " ", " ")
descrizione7=objRS("descrizione7")
descrizione7=server.htmlEncode(descrizione7)
descrizione7=Replace(descrizione7, vbcrlf, "
")
descrizione7=Replace(descrizione7, " ", " ")
descrizione8=objRS("descrizione8")
descrizione8=server.htmlEncode(descrizione8)
descrizione8=Replace(descrizione8, vbcrlf, "
")
descrizione8=Replace(descrizione8, " ", " ")
testo=objRS("testo")
testo=server.htmlEncode(testo)
testo=Replace(testo, vbcrlf, "
")
testo=Replace(testo, " ", " ")
objRS.Close
Set objRS = Nothing
Con.Close
Set Con = Nothing
%>
![]() |
![]() |
![]() |