<%@ LANGUAGE="VBScript" %> <% Response.Buffer = True Response.ContentType = "application/xml" Response.Charset = "utf-8" Response.AddHeader "Cache-Control", "public, max-age=3600" Function XmlEscape(ByVal s) If IsNull(s) Then s = "" s = Replace(s, "&", "&") s = Replace(s, "<", "<") s = Replace(s, ">", ">") s = Replace(s, """", """) s = Replace(s, "'", "'") XmlEscape = s End Function Dim site : site = "https://" & Request.ServerVariables("HTTP_HOST") Const adCmdText = 1 Dim cmd, rs Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = db cmd.CommandType = adCmdText cmd.CommandText = "SELECT ID, data_ins FROM prodotti WHERE attivo=1 AND casa=1 ORDER BY data_ins DESC" Set rs = cmd.Execute Response.Write "" & vbCrLf Response.Write "" & vbCrLf ' Home Response.Write " " & vbCrLf Response.Write " " & XmlEscape(site & "/default.asp") & "" & vbCrLf Response.Write " daily" & vbCrLf Response.Write " 1.0" & vbCrLf Response.Write " " & vbCrLf ' Prodotti Do While Not rs.EOF Dim pid, lastmod, d pid = rs("ID") If IsNull(rs("data_ins")) Then d = Date() Else d = rs("data_ins") Response.Write " " & vbCrLf Response.Write " " & XmlEscape(site & "/prodotto.asp?id=" & pid) & "" & vbCrLf Response.Write " " & Year(d) & "-" & Right("0" & Month(d),2) & "-" & Right("0" & Day(d),2) & "" & vbCrLf Response.Write " weekly" & vbCrLf Response.Write " 0.8" & vbCrLf Response.Write " " & vbCrLf rs.MoveNext Loop On Error Resume Next rs.Close : Set rs = Nothing : Set cmd = Nothing db.Close : Set db = Nothing On Error GoTo 0 Response.Write "" %>