essendo un principiante posto i due file in asp::
Ti posto i due codici dei file asp:
<%
'creazione del fil xml
' dichiarazione variabili per i contenuti del file xml
dim n,m,mm,d,r
n= Request.Form("nome")
m = Request.Form("mail")
mm = "mailto:"&trim(Request.Form("mail"))
d= now()
r= Request.Form("msg")
' dichiarazione variabili per la struttura del file xml
dim objXml
dim xmlRoot
dim xmlMadre
dim xmlFiglio
set objXml = Server.CreateObject("Microsoft.XMLDOM")
objXml.async = false
objXml.Load (Server.MapPath("magb.xml"))
'ipotesi del primo messaggio
If objXML.parseError.ErrorCode <> 0 Then
Set xmlRoot = objXml.createElement("ospiti")
objXml.appendChild xmlRoot
set xmlMadre = objXml.documentElement.AppendChild(objXml.CreateElement("ospite"))
set xmlFiglio = xmlMadre.AppendChild(objXml.CreateElement("data"))
xmlFiglio.Text = d
set xmlFiglio = xmlMadre.AppendChild(objXml.CreateElement("nome"))
xmlFiglio.Text = n
set xmlFiglio = xmlMadre.AppendChild(objXml.CreateElement("email"))
xmlFiglio.Text = m
xmlFiglio.setAttribute "url", mm
set xmlFiglio = xmlMadre.AppendChild(objXml.CreateElement("msg"))
xmlFiglio.Text = r
'.......
Else
set xmlMadre = objXml.documentElement.AppendChild(objXml.CreateElement("ospite"))
set xmlFiglio = xmlMadre.AppendChild(objXml.CreateElement("data"))
xmlFiglio.Text = d
set xmlFiglio = xmlMadre.AppendChild(objXml.CreateElement("nome"))
xmlFiglio.Text = n
set xmlFiglio = xmlMadre.AppendChild(objXml.CreateElement("email"))
xmlFiglio.Text = m
xmlFiglio.setAttribute "url", mm
set xmlFiglio = xmlMadre.AppendChild(objXml.CreateElement("msg"))
xmlFiglio.Text = r
end if
objXml.Save (Server.MapPath("magb.xml"))
set xmlFiglio = nothing
set xmlMadre = nothing
set objXml = nothing
Response.Write "Grazie "&n&", il tuo messaggio è <a href='book.asp'>qui!</a>"
%><body background="../images/03.jpg">
il secondo codice
<head>
<meta http-equiv="Content-Language" content="it">
</head>
<font size="5" face="Franklin Gothic Heavy">
<a style="text-decoration: none; font-weight: 700; background-color: #FFFFFF" href="guest.asp">
<font color="#FF0000">FIRMA IL NOSTRO
GUESTBOOK</font></a></font><font face="Elephant" color="#FF0000"> </font>
<p> </p>
<%
'carico file xml e xsl e visualizzo in pagina book.asp
dim xmlFile, xslFile
'carico xml
set xmlFile = Server.CreateObject("Microsoft.XMLDOM")
xmlFile.async = false
xmlFile.load(Server.MapPath("magb.xml"))
'carico XSL
set xslFile = Server.CreateObject("Microsoft.XMLDOM")
xslFile.async = false
xslFile.load(Server.MapPath("magb.xsl"))
'visualizzo
Response.Write(xmlFile.transformNode(xslFile))
set xmlFile = nothing
set xslFile = nothing
%><body background="../images/03.jpg">
Spero di ricevere qualche risposta
:byebye:
