<%
Set Db=Server.CreateObject("ADODB.Connection")
Db.Open CONN_HORSES
str = "SELECT * FROM AboutUs"
Set rs1=Server.CreateObject("ADODB.Recordset")
rs1.Open str,Db,adOpenKeySet
if not rs1.eof then
Notizia = rs1("Notizia")
if Notizia <> "" then Notizia = Replace(Notizia, chr(13)+chr(10), "
") end if Foto = rs1("Foto") end if rs1.close set rs1 = nothing Db.close set Db=nothing %>
<%end if%>
<%=Notizia%>
") end if Foto = rs1("Foto") end if rs1.close set rs1 = nothing Db.close set Db=nothing %>
<%if Foto<>"" then%>