<% response.ContentType="text/xml" Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 Response.Buffer = TRUE OpenConnection() id = GetHttpVariable("id",1) call XmlArticolo CloseConnection() Sub XmlArticolo PrintTab "",0 PrintTab "",0 if id>0 then q = "select * from articoli "&_ " where idArticolo="&id Set rs = Conn.Execute(q) if not rs.Eof then PrintTab ""& SostituisciCaratteri(rs("titolo")) &"",1 PrintTab ""& SostituisciCaratteri(rs("testo")) &"",1 PrintTab ""& SostituisciCaratteri(rs("Breve")) &"",1 PrintTab ""& SostituisciCaratteri(rs("autore")) &"",1 PrintTab ""& SostituisciCaratteri(rs("EmailAutore")) &"",1 Else PrintTab "",1 End if Else PrintTab "",1 End if PrintTab "",0 End Sub %>