Fra ASP til XML

Hej - kan det her bruges..

hent data fra form, object eller db og indsæt med - " & dataen & "


Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.Mappath(".\") & ".xml")
MyFile.WriteLine("<?xml version="1.0" encoding="iso-8859-1" ?> ")
MyFile.WriteLine("<rss version="2.0">")
MyFile.WriteLine("<channel>")
MyFile.WriteLine("<title>[Titel til dit rss]</title>")
o.s.v
MyFile.Close

Ex. på xml

<?xml version="1.0" encoding="iso-8859-1" ?>
- <rss version="2.0">
- <channel>
  <title>[Titel til dit rss]</title>
  <description>[Beskrivelse til dit rss]</description>
  <language>da</language>
  <link>[url til dit site]</link>
  <docs>http://blogs.law.harvard.edu/tech/rss</docs>
  <lastBuildDate>Tue, 7 Mar 2006 00:07:42 +0100</lastBuildDate>
  <pubDate>Wed, 25 Jan 2006 23:18:35 +0100</pubDate>
  <generator>[din rss-editor]</generator>
- <image>
  <url>[url til dit rss-logo]</url>
  <title>[alt-tekst til dit logo]</title>
  <link>[url til dit site]</link>
  <description>[title-tekst til dit logo]</description>
  <width>[bredde i pixels - kun tal]</width>
  <height>[højde i pixels - kun tal]</height>
  </image>
- <item>
  <title>[overskrift på en nyhedsnotits]</title>
  <description>[En kort beskrivelse af nyhedens indhold.]</description>
  <link>[url til nyheden]</link>
  <guid>[url til nyheden]</guid>
  <pubDate>Tue, 7 Mar 2006 00:07:42 +0100</pubDate>
  </item>
  </channel>
  </rss>

Læs mere om xml her http://hjemmesideskolen.dk/scripts/feed.asp?id=feed1

Set MyFile = fso.CreateTextFile(Server.Mappath(".\") & "sidenavn.xml")
--------------------------------------------------------------|

Når du skal i gang med at fylde indhold i dit rss,
skal du overalt, hvor noget tekst er indsat i en
firkantet parentes [..] fjerne både teksten og
parentesen og indsætte de relevante oplysninger.

Når du tilføjer nye items, indsættes disse normalt
over det senest indsatte item.

Kiddoe, har du mulighed for at skrive det færdige script? Mine asp evener er desværre ikke så s tore :\ .. Så kan du bare komme med en svar, så skal du nok få pointne! :)

<%
'Åben forbindelse til databasen. Husk at skrive det rigtige navn på databasen.
Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("nyheder.mdb")
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open Conn

LOGO = "JA" ' Hvis JA kommer der logo med.
AltLogo = "Logo tekst" ' Alt tekst til logoet.
TitelLogo = "Logo Titel" ' Titel tekst til dit logo.
Bredde = "200" ' Sæt bredden på logo. Kun tal.
Hojde = "80" ' Sæt højden logo. Kun tal.
LogoUrl = "http://www.domaene.dk/billeder/logo.jpg" ' Angiv den rigtige mappe og logo

XMLsideNavn = "Navn" ' Hvad skal filen hedde
titel = "Skriv titlen på dit rss her"
beskrivelse = "Skriv en beskrivelse af dit rss" ' Ligesom beskrivelse i head på en html eller anden fil.
SideUrl = "http://www.domaene.dk" ' Dit domæne.

Opdateret = now() ' Datoen for den sidste opdatering.


mode = Request.Querystring("mode")
act = Request.Querystring("act")
if act = "" then
act = "start"
end if
if act = "start" then

AntalDageNyheder = "5" ' Angiv hvor mange dage gammel en nyhed skal være for ikke at være en nyhed
Nyhed = date() - AntaldageNyheder

' Husk at skrive det rigtige navn på tabel.
set rsNyheder = Server.CreateObject("ADODB.Recordset")
RsNyheder.Open "SELECT * FROM nyheder where Dato > "&nyhed&"", Connection, 1, 3
if RsNyheder.EOF then ' Hvis der ikke er nogle nyheder
Response.write "Der er ingen Nyheder"
else
indb = RsNyheder.Recordcount
Response.write "Der er " & indb & " Nyheder<br>"
Response.write "<a href=""?mode=opretxml&act="">Ok Opret XML</a>"

if mode = "opretxml" then

path = "\mappe\" ' Angiv den korrekte mappe

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".xml")
MyFile.WriteLine("<?xml version=""1.0"" encoding=""iso-8859-1""?>")
MyFile.WriteLine("<rss version=""2.0"">")
MyFile.WriteLine("<channel>")
MyFile.WriteLine("<title>" & titel & "</title>")
MyFile.WriteLine("<description>" & beskrivelse & "</description>")
MyFile.WriteLine("<language>da</language>")
MyFile.WriteLine("<link>" & SideUrl & "</link>")
MyFile.WriteLine("<docs>http://blogs.law.harvard.edu/tech/rss</docs>")
MyFile.WriteLine("<lastBuildDate>" & SidstOpdateret & "</lastBuildDate>")
MyFile.WriteLine("<pubDate>" & Opdateret & "</pubDate>")
MyFile.WriteLine("<generator>ASP Generet</generator>")

if LOGO = "Ja" then
MyFile.WriteLine("<image>")
MyFile.WriteLine("<url>" & logoUrl & "</url>")
MyFile.WriteLine("<title>" & altlogo & "</title>")
MyFile.WriteLine("<link>" & SideUrl & "</link>")
MyFile.WriteLine("<description>" & titellogo & "</description>")
MyFile.WriteLine("<width>" & bredde & "</width>")
MyFile.WriteLine("<height>" & hojde & "</height>")
MyFile.WriteLine("</image>")
end if

'******** Nyhederne Start. Laver et item for hver nyhed
do while NOT rsNyheder.EOF ' Så længe der er nyheder så gør

NyhedLink = rsNyheder("URL") ' Ret URL til det rigtige FELDTNAVN
NyhedOverskrift = rsNyheder("Overskrift") ' Ret Overskrift til det rigtige FELDTNAVN
Nyheden = RsNyheder("Nyhed") ' Ret Nyhed til det rigtige FELDTNAVN

' Da det jo er ikke er hele nyheden du skal have med så kan du sætte en begrænsning. feks 200 til 400 tegn.
if len(Nyheden)>300 then
    strNyheden = left(Nyheden,300) & "..."
    else
    strNyheden = Nyheden
    end if

MyFile.WriteLine("<item>")
MyFile.WriteLine("<title>" & NyhedOverskrift & "</title>")
MyFile.WriteLine("<description>" & strNyheden & "</description>")
MyFile.WriteLine("<link>" & NyhedLink & "</link>")
MyFile.WriteLine("<guid>" & NyhedLink & "</guid>")
MyFile.WriteLine("<pubDate>" & Opdateret & "</pubDate>")
MyFile.WriteLine("</item>")

RsNyheder.MoveNext
Loop
'********* Nyhederne SLut

MyFile.WriteLine("</channel>")
MyFile.WriteLine("</rss>")
MyFile.Close
Set MyFile = Nothing
Set Fso = Nothing
RsNyheder.Close
Set RsNyheder = Nothing
Connection.Close
Set Connection = Nothing
Response.write "<br>XML fil blev oprettet " & now()
end if
end if
end if
%>

fjern lige linien

MyFile.WriteLine("<lastBuildDate>" & SidstOpdateret & "</lastBuildDate>")

den får ingen værdi( den er i øvrigt valgfri )

andre valgfrie er

<language>da</language>
<docs>http://blogs.law.harvard.edu/tech/rss</docs>
<lastBuildDate>Tue, 21 Feb 2006 21:15:09 +0100</lastBuildDate>
<pubDate>Wed, 25 Jan 2006 23:18:35 +0100</pubDate>
<generator>Editor</generator>
<copyright>Dit Navn, 2006</copyright>
<managingEditor>admin@dinside.dk</managingEditor>
<webMaster>support@dinside.dk</webMaster>

nu roder det da helt rundt her - :)

"LastBuildDate" er den dato hvor siden sidst er opdateret
"PupDate" er den dato xml blev oprettet for første gang
og så - skal alle datoerformater i en XML være som anført ovenfor - altså
Wed, 23 Aug 2006 12:00:00 +0100

så skift alle - 2 linier
MyFile.WriteLine("<pubDate>" & Opdateret & "</pubDate>")
ud med denne
MyFile.WriteLine("<pubDate>Wed, 23 Aug 2006 12:00:00 +0100</pubDate>")

og slet denne
MyFile.WriteLine("<lastBuildDate>" & SidstOpdateret & "</lastBuildDate>"

så skal jeg vende tilbage til denne linie på et senere tidspunkt

Så skulle den være der -

<%
'Åben forbindelse til databasen. Husk at skrive det rigtige navn på databasen.
Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open Conn

LOGO = "JA" ' Hvis JA kommer der logo med.
AltLogo = "Logo tekst" ' Alt tekst til logoet.
TitelLogo = "Logo Titel" ' Titel tekst til dit logo.
Bredde = "200" ' Sæt bredden på logo. Kun tal.
Hojde = "80" ' Sæt højden logo. Kun tal.
LogoUrl = "http://www.domaene.dk/billeder/logo.jpg" ' Angiv den rigtige mappe og logo

XMLsideNavn = "Navn" ' Hvad skal filen hedde
titel = "Skriv titlen på dit rss her"
beskrivelse = "Skriv en beskrivelse af dit rss" ' Lgesom beskrivelse i head på en html eller anden fil.
SideUrl = "http://www.domaene.dk" ' Dit domæne.

ddato = now()
ar = year(ddato)
dag = day(ddato)
udag = weekday(ddato)
ugedag = weekdayname(udag)
umoned = month(ddato)
moned = monthname(umoned)
if ugedag = "søndag" then
ugedag = "Sun"
end if
if ugedag = "mandag" then
ugedag = "Mon"
end if
if ugedag = "tirsdag" then
ugedag = "Tue"
end if
if ugedag = "onsdag" then
ugedag = "Wed"
end if
if ugedag = "torsdag" then
ugedag = "Thu"
end if
if ugedag = "fredag" then
ugedag = "Fri"
end if
if ugedag = "lørdag" then
ugedag = "Sat"
end if
if len(ugedag)>3 then
ugedag = left(ugedag,3)
end if
if moned = "januar" then
moned = "Jan"
end if
if moned = "februar" then
moned = "Feb"
end if
if moned = "marts" then
moned = "Mar"
end if
if moned = "april" then
moned = "Apr"
end if
if moned = "maj" then
moned = "May"
end if
if moned = "juni" then
moned = "Jun"
end if
if moned = "juli" then
moned = "Jul"
end if
if moned = "august" then
moned = "Aug"
end if
if moned = "september" then
moned = "Sep"
end if
if moned = "oktober" then
moned = "Oct"
end if
if moned = "november" then
moned = "Nov"
end if
if moned = "december" then
moned = "Dec"
end if
if len(moned)>3 then
moned = left(moned,3)
end if
SidstOpdateret = ugedag & ", " & dag & " " & moned & " " & ar & " 00:00:00 +0100"


mode = Request.Querystring("mode")
act = Request.Querystring("act")
if act = "" then
act = "start"
end if
if act = "start" then

AntalDageNyheder = "5" ' Angiv hvor mange dage gammel en nyhed skal være for ikke at være en nyhed
Nyhed = date() - AntaldageNyheder

' Husk at skrive det rigtige navn på tabel.
set rsNyheder = Server.CreateObject("ADODB.Recordset")
RsNyheder.Open "SELECT * FROM nyheder where Dato > "&nyhed&"", Connection, 1, 3
if RsNyheder.EOF then ' Hvis der ikke er nogle nyheder
Response.write "Der er ingen Nyheder"
else
indb = RsNyheder.Recordcount
Response.write "Der er " & indb & " Nyheder<br>"
Response.write "<a href=""?mode=opretxml&act="">Ok Opret XML</a>"

if mode = "opretxml" then
path = "\upload\" ' Angiv en mappe
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".xml")
MyFile.WriteLine("<?xml version=""1.0"" encoding=""iso-8859-1""?>")
MyFile.WriteLine("<rss version=""2.0"">")
MyFile.WriteLine("<channel>")
MyFile.WriteLine("<title>" & titel & "</title>")
MyFile.WriteLine("<description>" & beskrivelse & "</description>")
MyFile.WriteLine("<language>da</language>")
MyFile.WriteLine("<link>" & SideUrl & "</link>")
MyFile.WriteLine("<docs>http://blogs.law.harvard.edu/tech/rss</docs>")
MyFile.WriteLine("<lastBuildDate>" & SidstOpdateret & "</lastBuildDate>")
MyFile.WriteLine("<pubDate>Wed, 23 Aug 2006 00:00:00 +0100</pubDate>")
MyFile.WriteLine("<generator>ASP Generet</generator>")

if LOGO = "Ja" then
MyFile.WriteLine("<image>")
MyFile.WriteLine("<url>" & logoUrl & "</url>")
MyFile.WriteLine("<title>" & altlogo & "</title>")
MyFile.WriteLine("<link>" & SideUrl & "</link>")
MyFile.WriteLine("<description>" & titellogo & "</description>")
MyFile.WriteLine("<width>" & bredde & "</width>")
MyFile.WriteLine("<height>" & hojde & "</height>")
MyFile.WriteLine("</image>")
end if

'******** Nyhederne Start. Laver et item for hver nyhed
do while NOT rsNyheder.EOF ' Så længe der er nyheder så gør

NyhedLink = rsNyheder("URL") ' Ret URL til det rigtige FELDTNAVN
NyhedOverskrift = rsNyheder("Overskrift") ' Ret Overskrift med det rigtige FELDTNAVN
Nyheden = RsNyheder("Nyhed") ' Ret Nyhed med det rigtige FELDTNAVN

' Da det jo er ikke er hele nyheden du skal have med så kan du sætte en begrænsning. feks 200 til 400 tegn.
if len(Nyheden)>300 then
    strNyheden = left(Nyheden,300) & "..."
    else
    strNyheden = Nyheden
    end if

MyFile.WriteLine("<item>")
MyFile.WriteLine("<title>" & NyhedOverskrift & "</title>")
MyFile.WriteLine("<description>" & strNyheden & "</description>")
MyFile.WriteLine("<link>" & NyhedLink & "</link>")
MyFile.WriteLine("<guid>" & NyhedLink & "</guid>")
MyFile.WriteLine("<pubDate>Wed, 23 Aug 2006 00:00:00 +0100</pubDate>")
MyFile.WriteLine("</item>")

RsNyheder.MoveNext
Loop
'********* Nyhederne SLut

MyFile.WriteLine("</channel>")
MyFile.WriteLine("</rss>")
MyFile.Close
Set MyFile = Nothing
Set Fso = Nothing
RsNyheder.Close
Set RsNyheder = Nothing
Connection.Close
Set Connection = Nothing
Response.write "<br>XML fil blev oprettet " & now()
end if
end if
end if
%>

Puha .. Det ser noget avanceret ud. Jeg ved godt jeg er meget besværlig lige nu, men er det muligt at undgå en database så det kun består af en xml fil og en asp side?. Hvis ikke du gider er det helt iorden, så skal du nok få den point alligevel for din tid.

Det skal nemlig være så simpelt som overhoved muligt. Der er nemlig ingen der skal se XML dokumentet, skal bruge det som en lille flash database så jeg kan opdatere mit flash site via en asp side :)

okay - :) det vil sige bare en formside i asp der laver en xml

Nemlig, lige præcis det jeg søger! :) En der smider dato, overskrift og selve nyheden ind :)

først så skal du lave en tekst fil og give den det samme navn som din xml fil skal ha
Her har jeg brugt navnet xml_film.txt og scriptet laver en xml fil med navnet xml_film.xml


I rullemenuen er der nogle valgmuligheder til at lave andre xml filer
her er eksemplerne xml_film.xml , xml_billeder.xml , xml_dokumenter.xml og xml_andrefiler.xml - de kræver alle en eksisterende .txt fil med samme navn

Men måske har du kun brug for den ene som laver xml_film.xml

Når du skal ændre filnavnene til nogle navne som passer dig bedre så skal du bare ændre i rullemenuen men husk at lave de tilsvarende .txt filer samtidig.

God vind - her er hele koden ------


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Skriv nyheder</title>
</head>
<body>
<%
mode = Request.Querystring("mode")
if mode = "opretxml" then
ddato = request.form("dato")
if ddato = "" then
ddato = now()
end if
ar = year(ddato)
dag = day(ddato)
udag = weekday(ddato)
ugedag = weekdayname(udag)
umoned = month(ddato)
moned = monthname(umoned)
if ugedag = "søndag" then
ugedag = "Sun"
end if
if ugedag = "mandag" then
ugedag = "Mon"
end if
if ugedag = "tirsdag" then
ugedag = "Tue"
end if
if ugedag = "onsdag" then
ugedag = "Wed"
end if
if ugedag = "torsdag" then
ugedag = "Thu"
end if
if ugedag = "fredag" then
ugedag = "Fri"
end if
if ugedag = "lørdag" then
ugedag = "Sat"
end if
if len(ugedag)>3 then
ugedag = left(ugedag,3)
end if
if moned = "januar" then
moned = "Jan"
end if
if moned = "februar" then
moned = "Feb"
end if
if moned = "marts" then
moned = "Mar"
end if
if moned = "april" then
moned = "Apr"
end if
if moned = "maj" then
moned = "May"
end if
if moned = "juni" then
moned = "Jun"
end if
if moned = "juli" then
moned = "Jul"
end if
if moned = "august" then
moned = "Aug"
end if
if moned = "september" then
moned = "Sep"
end if
if moned = "oktober" then
moned = "Oct"
end if
if moned = "november" then
moned = "Nov"
end if
if moned = "december" then
moned = "Dec"
end if
if len(moned)>3 then
moned = left(moned,3)
end if

SidstOpdateret = ugedag & ", " & dag & " " & moned & " " & ar & " 00:00:00 +0100"

XMLsideNavn = request.form("sidenavn")

' vælg ud fra RULLEMENUEN SIDE at have flere xml sider efter xml indhold
' måske har du kun brug for en her men her er principet

if Xmlsidenavn = "xml_film" then
url = "http://www.domaene.dk/sidenomfilm.html"
end if
if Xmlsidenavn = "xml_billeder" then
url = "http://www.domaene.dk/sidenombilleder.html"
end if
if Xmlsidenavn = "xml_tekst" then
url = "http://www.domaene.dk/sidenomtekst.html"
end if
if Xmlsidenavn = "xml_andendata" then
url = "http://www.domaene.dk/sidenomandredata.html"
end if


titel = "Skriv titlen på dit rss her"
beskrivelse = "Skriv en beskrivelse af dit rss" ' Lgesom beskrivelse i head på en html eller anden fil.
SideUrl = "http://www.domaene.dk" ' Dit domæne.

'***** åbner en text fil med dine data og indsætter ny data i bunden af denne
path = "\upload\" ' Angiv en mappe
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(Server.MapPath(""&path&xmlsidenavn&".txt"),8,true)
'Set MyFile = fso.OpenTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".txt")

NyhedLink = URL
NyhedOverskrift = request.form("overskrift")
Nyheden = request.form("nyhed")
MyFile.WriteLine("<item>")
MyFile.WriteLine("<title>" & NyhedOverskrift & "</title>")
MyFile.WriteLine("<description>" & strNyheden & "</description>")
MyFile.WriteLine("<link>" & NyhedLink & "</link>")
MyFile.WriteLine("<guid>" & NyhedLink & "</guid>")
MyFile.WriteLine("<pubDate>Wed, 23 Aug 2006 00:00:00 +0100</pubDate>")
MyFile.WriteLine("</item>")
MyFile.Close
Set MyFile = Nothing
Set Fso = Nothing
'******* gemmer den igen

'******** åbner text filen igen for at læse den og giver dens data navnet sTEMP
Set fs = CreateObject("Scripting.FileSystemObject")
      Set ts = fs.OpenTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".txt")
      sTemp = ts.ReadAll

' laver en xml fil med data fra text filen
path = "\upload\" ' Angiv en mappe
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".xml")
MyFile.WriteLine("<?xml version=""1.0"" encoding=""iso-8859-1""?>")
MyFile.WriteLine("<rss version=""2.0"">")
MyFile.WriteLine("<channel>")
MyFile.WriteLine("<title>" & titel & "</title>")
MyFile.WriteLine("<description>" & beskrivelse & "</description>")
MyFile.WriteLine("<language>da</language>")
MyFile.WriteLine("<link>" & SideUrl & "</link>")
MyFile.WriteLine("<docs>http://blogs.law.harvard.edu/tech/rss</docs>")
MyFile.WriteLine("<lastBuildDate>" & SidstOpdateret & "</lastBuildDate>")
MyFile.WriteLine("<pubDate>Wed, 23 Aug 2006 00:00:00 +0100</pubDate>")
MyFile.WriteLine("<generator>ASP Generet</generator>")

MyFile.WriteLine("" & sTemp & "") ' her indsættes data fra .txt filen fra tidligere

MyFile.WriteLine("</channel>")
MyFile.WriteLine("</rss>")
' lukker ned igen
MyFile.Close
Set MyFile = Nothing
Set Fso = Nothing
ts.Close
Set ts = Nothing
Set fs = Nothing
     
' skriv noget andet her eller spring denne linie over hvis du ikke vil bruge den.
Response.write "<br><center><font face=""arial"" size=""2""><b>Data blev tilføjet </font><font face=""arial"" size=""2"" color=""ff000"">" & XMLsideNavn & ".xml </font><font face=""arial"" size=""2"">- " & now() & "</font></b></center>"
end if
%>
<div align="center">
<center><table border="0" width="80%" cellspacing="0" cellpadding="0"><tr><td width="100%" bgcolor="#CC3300">
<p align="center"><font face="Arial" size="2" color="#FFFFFF"><b>Skriv nyheder her. Gem dem i database og opret xml</b></font></td>
</tr><tr><td width="100%" bgcolor="#FFFFE8">
<div align="center"><center><table border="0" width="80%"><tr><td width="100%">
<form method="POST" action="?mode=opretxml">
<p align="center"><br>
<font face="Arial" size="2" color="#CC3300"><b>Vælg kategori (xml side)<br>
<select size="1" name="sidenavn">
<option value="xml_film">Xml om film</option>
<option value="xml_billeder">Xml om billeder</option>
<option value="xml_dokumenter">Xml om dokumenter</option>
<option value="xml_andrefiler">Xml om andre filer</option>
</select></b></font></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Angiv Dato -
hvis du ikke angiver en dato bruges Dags Dato</b></font><br>
<input type="text" name="dato" size="29"></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Vælg en overskrift<br>
<input type="text" name="overskrift" size="55"></b></font></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Skriv nyheden her</b></font><br>
<textarea rows="9" name="nyhed" cols="47"></textarea></p>
<p align="center"><input type="submit" value="Opdater xml" name="B1"><input type="reset" value="Slet alt" name="B2"></p>
</form></td></tr></table></center></div></td></tr></table></center></div>
</body>
</html>

Uhh .. det ser meget fornemt ud. Jeg har nu kopiret det hele ind i min info.asp og lavede de txt filer. Men når jeg prøver at "opdatere" kommer den med følgende fejl.

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A004C)
Stien blev ikke fundet
/xml/info.asp, line 112

der hvor der står
path = "\upload\" ' Angiv en mappe
skal du angive mappen hvor dine .txt filer ligger og .xml filer skal laves
- lige nu står der den mappe som jeg har brugt

Det står der 3 steder
De 2 første er der hvor du har .txt filer
Den 3 er der hvor .xml filerne bliver gemt

Forstår det ikke. Har prøvet at lave en mappe ved navn upload og så ligge txt filerne ind, men der kommer stadig fejl. Du må bære over med mig, men asp er ikke lige min stærke side! :)

# ejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A004C)
Stien blev ikke fundet
/info.asp, line 112

# Browsertype:
Mozilla/5.0 (Windows; U; Windows NT 5.1; da; rv:1.8.0.6) Gecko/20060728 Firefox/1.5.0.6

# Side:
POST 72 bytes to /info.asp

# POST Data:
sidenavn=xml_film&dato=&overskrift=asdfa&nyhed=dfadsfadsf&B1=Opdater+xml

# Klokkeslæt:
23. august 2006, 22:42:30

# Yderligere oplysninger:
Microsoft Support

Det kunne også være du kunne hjælpe mig med at rette den her til så den opdatere og ikke laver nye childNodes

<%@ Language=JScript%>
<%Server.ScriptTimeout=21478836%>
<%Response.Buffer=false%>
<%
    // 1) To check whether the user has already pressed the submit button
    var submit    = Request.Form("submit").Count;
    if( submit > 0 ){
   
        // 2) Create the needed to variables to store data from the form   
        var name    = Request.Form("Name");
        var age        = Request.Form("Age");
        var gender    = Request.Form("Gender");
        var pcode    = Request.Form("PostalCode");
       
        // 3) First check whether the user has entered anything or not !
        var error = "";
        if ( name == "" )
            error = "Name ";
        if ( age == "" )
            error += "Age ";
        if ( pcode == "")
            error += "PostalCode ";
           
        // 4) We have found that the user didnt entered anything
        if(error!=""){
            Response.Write("<center>");
            Response.Write("<font fac=verdana size=2>");
            Response.Write("Please enter the following data:<br>");
            Response.Write("<b>");
            Response.Write(error);
            Response.Write("</b>");
            Response.Write("</font>");
            Response.Write("</center>");
        }
        else{
            // Response.Write(name+" has been added to your Friend list.");
            // 5) Load the xmlDoc and create the required elements/nodes           
            var xmlDoc=Server.CreateObject("MICROSOFT.FreeThreadedXMLDOM");
            xmlDoc.async="false";
            xmlDoc.load(Server.MapPath("Person.xml"));
   
            var nodeList = xmlDoc.getElementsByTagName("PersonList");
            if(nodeList.length > 0){
                var parentNode = nodeList(0) ;
                var personNode = xmlDoc.createElement("Person");
                var nameNode  = xmlDoc.createElement("Name");
                var ageNode    = xmlDoc.createElement("Age");
                var genderNode = xmlDoc.createElement("Gender");
                var pcodeNode  = xmlDoc.createElement("PostalCode");
           
                nameNode.text  = name;
                ageNode.text  = age;
                genderNode.text= gender;
                pcodeNode.text = pcode;   
               
                // 6) Attach the nodes to the parent node (Person)
                parentNode.appendChild(personNode);
                personNode.appendChild(nameNode);
                personNode.appendChild(ageNode);
                personNode.appendChild(genderNode);
                personNode.appendChild(pcodeNode);
               
                // 7) Now save the nodes to the file
                xmlDoc.save(Server.MapPath("Person.xml"));
            }
        }
    }
%>   
<html><body>
<CENTER><p><FONT face=Verdana><U><b>Add My Friends to XML</b></U> </FONT> </p></CENTER>
<form action="VerifyPerson.asp" method="post" name="frmPerson" id="frmPerson">
<table border=0 align=center style="height: 184px" width="255">
  <TBODY>
<TR><TD width="78"><FONT face=Verdana size=2>
      <P align=left>Name:</FONT></P></TD><TD width="154"><INPUT name=Name ><FONT
      face=Verdana size=2></FONT></TD>
<TR><TD width="78"><FONT face=Verdana size=2>Age: </FONT> </TD><TD width="154"><INPUT name=Age ><FONT
      face=Verdana size=2></FONT></TD>
<TR><TD width="78"><FONT face=Verdana size=2>Gender:</FONT></TD><TD width="154">
<SELECT style="WIDTH: 154px" name=Gender>
  <OPTION value=Male selected>Male</OPTION>
  <OPTION value=Female>Female</OPTION>
</SELECT>
</TD>
<TR><TD width="78"><FONT face=Verdana size=2>Postalcode: </FONT> </TD><TD width="154"><INPUT name=Postalcode ><FONT
      face=Verdana></FONT></TD>
  <td width="3">
    <P><FONT face=Verdana></FONT></P></TR>
<td width="78">
  <P><FONT face=Verdana></FONT></P>
  <TR>
  <TD COLSPAN=2 width="238"><center><INPUT type=submit value=Submit name=submit>
  <INPUT type=reset value=Reset name=reset></center>
</form>
</TABLE><BR><br>
  <CENTER><FONT face=Verdana><U><b>My Friend list</b></U> </FONT> </CENTER><br>
  <table border="1" style="border-collapse: collapse; height: 20px" bordercolor=#000000 align=center bgColor=silver width="417">

  <TR><TD width="93"><FONT face=Verdana size=2>
  <STRONG  style="BACKGROUND-COLOR: silver">Name</STRONG></FONT></TD>
  <TD width="69"><FONT face=Verdana size=2><STRONG style="BACKGROUND-COLOR: silver">Age</STRONG></FONT></TD>
  <TD width="112"><FONT face=Verdana size=2><STRONG style="BACKGROUND-COLOR: silver">Gender</STRONG></FONT></TD>
  <TD width="115"><FONT face=Verdana size=2><STRONG style="BACKGROUND-COLOR: silver">Postal Code</STRONG></FONT></TD>
  </TR>
<%
    // This part is used to display the data in a table via XSL
   
    var objXMLDoc = Server.CreateObject("MICROSOFT.FreeThreadedXMLDOM");
    objXMLDoc.async = false;
    objXMLDoc.load(Server.MapPath("person.xml"));
   
    var xsl=Server.CreateObject("MICROSOFT.FreeThreadedXMLDOM");
    xsl.async = false;
    xsl.load(Server.MapPath("person.xsl"));

    var xmlQuery="//Person";
    var docHeadlines=objXMLDoc.documentElement.selectNodes(xmlQuery);
   
    var numNodes;
    numNodes=docHeadlines.length;

    var nn;
    for(var i=0;i<numNodes;i++){
        nn = docHeadlines.nextNode();
        Response.Write(nn.transformNode(xsl));
    }
%>
</table>
</body>
</html>

hej igen - var lige væk lidt - det var ikke så godt
hvor ligger din info.asp i forhold til dine txt filer
det kode du fik forudsætter at den ligger i roden af webstedet

hvis du ligger dine txt filer og opretter xml i samme mappe som info.asp

så skal der en lille ændring til - manglede lige resten, det kom her

hvis du ligger dem i samme mappe så

slet linierne der starter med PATH

1)
der hvor der står
Set MyFile = fso.OpenTextFile(Server.MapPath(""&path&xmlsidenavn&".txt"),8,true)
skal der stå
Set MyFile = fso.OpenTextFile(Server.MapPath(""&XMLsidenavn&".txt"),8,true)

2)
der hvor der står
Set ts = fs.OpenTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".txt")
skal der stå
Set ts = fs.OpenTextFile(Server.MapPath(""&XMLsidenavn&".txt"))

3)
der hvor der står
Set MyFile = fso.CreateTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".xml")
skal der stå
Set MyFile = fso.CreateTextFile(Server.Mappath(""&XMLsideNavn & ".xml"))

Nå det er blevet sent nu - jeg kigger i morgen hvordan det er gået - hejsa

Og lige til allersidst - du kan godt bruge det første eksempel ved at lave mappen UPLOAD i den mappe hvor du har din info.asp,,,

Det kan godt være det er mig der er totalt dum, men kan stadig ikke få det til at virke. Nu kommer den med fejl i linie 132.

Error Type:
Scripting.FileSystemObject.1 (0x800A0035)
File not found.
/info.asp, line 132

    Set ts = fs.OpenTextFile(Server.Mappath("\upload\") & ""& path & XMLsideNavn & ".txt")

Har selv skrevet upload

Jeg har min info.asp og ved siden af ligger mappen upload med txt filerne, men der er ingen xml filer da jeg gik ud fra den selv lavede dem, eller hvordan`?

nej nej da der er ingen der er dumme her :) - jo den laver selv xml filerne

Hvis du har
http://www.domaene.dk/mappe/upload/xml_film.txt
og
http://www.domaene.dk/mappe/info.asp

så skal det se sådan her ud

'** den der skriver til tekst filen

path = "\mappe\upload\" ' Angiv en mappe
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(Server.MapPath(""& path & xmlsidenavn&".txt"),8,true)

'** og den næste der læser den ser sådan ud

Set ts = fs.OpenTextFile(Server.Mappath(""& path & XMLsideNavn & ".txt"))

'** og den der gemmer xml ser sådan ud.

path = "\mappe\upload\" ' Angiv en mappe
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.Mappath(""& path & XMLsideNavn & ".xml"))

men vil du feks hellere gemme din xml i en anden mappe som
http://www.domaene.dk/xml/
så skal path her være
path = "\xml\"
eller gemme i
http://www.domaene.dk/mappe/mappe/mappe/xml/
så skal path her være
path = "\mappe\mappe\mappe\xml\"

så du kan jo godt have txt filer i en mappe og din xml i en anden


Det første eksempel gik ud fra -
http://www.domaene.dk/upload/xml_film.txt
og
http://www.domaene.dk/info.asp


og så lige en rettelse - lini 121
denne
MyFile.WriteLine("<description>" & strNyheden & "</description>")
skal være
MyFile.WriteLine("<description>" & Nyheden & "</description>")

Så tror jeg vi er ved at være der :) .. Nu kommer den ikke med fejl, men den opretter ikke noget xml dokument :\

nå men så langt så godt :)

1.
skriver den i txt filen ?
2.
står der et filnavn "xml_film.xml" i rød tekst over formen når du har opdateret ?
3.
brug denne - ligesom ved .txt filen
Set MyFile = fso.CreateTextFile(Server.Mappath(""& path & XMLsideNavn & ".xml"))
ved xml
og ikke denne
Set MyFile = fso.CreateTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".xml")

Det hjalp desværre ikke. Den kommer godt nok ikke med fejl, men den laver heller ikke nogen xml eller skriver i txt filen. Nej, der kommer heller ikke nogen rød tekst når jeg opdatere.

skriver den i txt filen

nå nej det gør den ikke

er du ikke lige rar og skrive hvor dine txt filer ligger og hvor du laver xml (eller burde lave)
ved at skrive
txt = domaene/mappe/mappe osv
xml = domaene/mappe/ osv
og så sætte de tre linier ind i som du har der åbner filerne - dem med Server.Mappath

og selføli linierne med PATH

Okay, så prøver vi at tage den slavisk med kode :)

i min wwwroot liger der en mappe ved navn xml, i den mappe ligger info.asp og en mappe ved navn upload. Deri ligger også xml_film.txt.

Den kode jeg på nuværende tidspunkt har i min info.asp ser således ud.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Skriv nyheder</title>
</head>
<body>
<%
mode = Request.Querystring("mode")
if mode = "opretxml" then
ddato = request.form("dato")
if ddato = "" then
ddato = now()
end if
ar = year(ddato)
dag = day(ddato)
udag = weekday(ddato)
ugedag = weekdayname(udag)
umoned = month(ddato)
moned = monthname(umoned)
if ugedag = "søndag" then
ugedag = "Sun"
end if
if ugedag = "mandag" then
ugedag = "Mon"
end if
if ugedag = "tirsdag" then
ugedag = "Tue"
end if
if ugedag = "onsdag" then
ugedag = "Wed"
end if
if ugedag = "torsdag" then
ugedag = "Thu"
end if
if ugedag = "fredag" then
ugedag = "Fri"
end if
if ugedag = "lørdag" then
ugedag = "Sat"
end if
if len(ugedag)>3 then
ugedag = left(ugedag,3)
end if
if moned = "januar" then
moned = "Jan"
end if
if moned = "februar" then
moned = "Feb"
end if
if moned = "marts" then
moned = "Mar"
end if
if moned = "april" then
moned = "Apr"
end if
if moned = "maj" then
moned = "May"
end if
if moned = "juni" then
moned = "Jun"
end if
if moned = "juli" then
moned = "Jul"
end if
if moned = "august" then
moned = "Aug"
end if
if moned = "september" then
moned = "Sep"
end if
if moned = "oktober" then
moned = "Oct"
end if
if moned = "november" then
moned = "Nov"
end if
if moned = "december" then
moned = "Dec"
end if
if len(moned)>3 then
moned = left(moned,3)
end if

SidstOpdateret = ugedag & ", " & dag & " " & moned & " " & ar & " 00:00:00 +0100"

XMLsideNavn = request.form("sidenavn")

' vælg ud fra RULLEMENUEN SIDE at have flere xml sider efter xml indhold
' måske har du kun brug for en her men her er principet

if Xmlsidenavn = "xml_film" then
url = "http://www.domaene.dk/sidenomfilm.html"
end if
if Xmlsidenavn = "xml_billeder" then
url = "http://www.domaene.dk/sidenombilleder.html"
end if
if Xmlsidenavn = "xml_tekst" then
url = "http://www.domaene.dk/sidenomtekst.html"
end if
if Xmlsidenavn = "xml_andendata" then
url = "http://www.domaene.dk/sidenomandredata.html"
end if


titel = "Skriv titlen på dit rss her"
beskrivelse = "Skriv en beskrivelse af dit rss" ' Lgesom beskrivelse i head på en html eller anden fil.
SideUrl = "http://www.domaene.dk" ' Dit domæne.

'***** åbner en text fil med dine data og indsætter ny data i bunden af denne
path = "\upload\" ' Angiv en mappe
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(Server.MapPath(""& path & xmlsidenavn&".txt"),8,true)
'Set MyFile = fso.OpenTextFile(Server.Mappath(".\") & ""& path & XMLsideNavn & ".txt")

NyhedLink = URL
NyhedOverskrift = request.form("overskrift")
Nyheden = request.form("nyhed")
MyFile.WriteLine("<item>")
MyFile.WriteLine("<title>" & NyhedOverskrift & "</title>")
MyFile.WriteLine("<description>" & Nyheden & "</description>")
MyFile.WriteLine("<link>" & NyhedLink & "</link>")
MyFile.WriteLine("<guid>" & NyhedLink & "</guid>")
MyFile.WriteLine("<pubDate>Wed, 23 Aug 2006 00:00:00 +0100</pubDate>")
MyFile.WriteLine("</item>")
MyFile.Close
Set MyFile = Nothing
Set Fso = Nothing
'******* gemmer den igen

'******** åbner text filen igen for at læse den og giver dens data navnet sTEMP
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(Server.Mappath(""& path & XMLsideNavn & ".txt"))
sTemp = ts.ReadAll

' laver en xml fil med data fra text filen
path = "\upload\" ' Angiv en mappe
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.Mappath(""& path & XMLsideNavn & ".xml"))
MyFile.WriteLine("<?xml version=""1.0"" encoding=""iso-8859-1""?>")
MyFile.WriteLine("<rss version=""2.0"">")
MyFile.WriteLine("<channel>")
MyFile.WriteLine("<title>" & titel & "</title>")
MyFile.WriteLine("<description>" & beskrivelse & "</description>")
MyFile.WriteLine("<language>da</language>")
MyFile.WriteLine("<link>" & SideUrl & "</link>")
MyFile.WriteLine("<docs>http://blogs.law.harvard.edu/tech/rss</docs>")
MyFile.WriteLine("<lastBuildDate>" & SidstOpdateret & "</lastBuildDate>")
MyFile.WriteLine("<pubDate>Wed, 23 Aug 2006 00:00:00 +0100</pubDate>")
MyFile.WriteLine("<generator>ASP Generet</generator>")

MyFile.WriteLine("" & sTemp & "") ' her indsættes data fra .txt filen fra tidligere

MyFile.WriteLine("</channel>")
MyFile.WriteLine("</rss>")
' lukker ned igen
MyFile.Close
Set MyFile = Nothing
Set Fso = Nothing
ts.Close
Set ts = Nothing
Set fs = Nothing
     
' skriv noget andet her eller spring denne linie over hvis du ikke vil bruge den.
Response.write "<br><center><font face=""arial"" size=""2""><b>Data blev tilføjet </font><font face=""arial"" size=""2"" color=""ff000"">" & XMLsideNavn & ".xml </font><font face=""arial"" size=""2"">- " & now() & "</font></b></center>"
end if
%>
<div align="center">
<center><table border="0" width="80%" cellspacing="0" cellpadding="0"><tr><td width="100%" bgcolor="#CC3300">
<p align="center"><font face="Arial" size="2" color="#FFFFFF"><b>Skriv nyheder her. Gem dem i database og opret xml</b></font></td>
</tr><tr><td width="100%" bgcolor="#FFFFE8">
<div align="center"><center><table border="0" width="80%"><tr><td width="100%">
<form method="POST" action="">
<p align="center"><br>
<font face="Arial" size="2" color="#CC3300"><b>Vælg kategori (xml side)<br>
<select size="1" name="sidenavn">
<option value="xml_film">Xml om film</option>
<option value="xml_billeder">Xml om billeder</option>
<option value="xml_dokumenter">Xml om dokumenter</option>
<option value="xml_andrefiler">Xml om andre filer</option>
</select></b></font></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Angiv Dato -
hvis du ikke angiver en dato bruges Dags Dato</b></font><br>
<input type="text" name="dato" size="29"></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Vælg en overskrift<br>
<input type="text" name="overskrift" size="55"></b></font></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Skriv nyheden her</b></font><br>
<textarea rows="9" name="nyhed" cols="47"></textarea></p>
<p align="center"><input type="submit" value="Opdater xml" name="B1"><input type="reset" value="Slet alt" name="B2"></p>
</form></td></tr></table></center></div></td></tr></table></center></div>
</body>
</html>

så skal det være
path = "\xml\upload\"

Så er det ændret til path = "\xml\upload\" men nu kommer den med fejl i 112 :\

øhh din form action er tom
<form method="POST" action="?mode=opretxml">

jeg har lige prøvet det af og det virker fint hos mig :>

Så skete der sq noget :D

Nu gemmer den XML'en som den skal, men jeg vil gerne have den skal opdatere xml'en og ikke blive ved med at skrive nodes. Hvordan gør jeg det? .. Håber ikke det er for krævende, ellers må du få lidt flere point!

okay det var godt :)
hvordan med opdatering - vil det sige at du kun vil have den sidst oprettede nyhed stående eller vil du kunne skrive flere nyheder på en gang.
- og så tænkte jeg på om du i det hele taget havde brug for den der dato funktion andet end at få den reele dato med ind under din nyhed.

Ja, nemlig, kun den sidste oprettede nyhed. Min xml fil skulle når jeg læser den gernse sådan her ud.

<?xmlblalbalba
<nyhed>
<title>Velkommen</title>
<indhold>goddag og velkommen...</indhold>
</nyhed>

Og kan se der kommer alt muligt beskrivelse af rss osv. Det skal nemlig ikke bruges til html eller asp, men til flash, så det er kun nødvendigt med overnævnte nodes :)

Jo, lige et sidste spørgsmål. Er der en grund til at man laver en txt fil først eller hvordan?

jamen dog - nej så er der ingen grund til at have en text fil så - det var kun i tilfælde af at du ville gemme alt - jeg laver lige en ny til dig


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Skriv nyheder</title>
</head>
<body>
<%
mode = Request.Querystring("mode")
if mode = "opretxml" then
ddato = request.form("dato")
if ddato = "" then
ddato = now()
end if
XMLsideNavn = request.form("sidenavn")
Overskrift = request.form("overskrift")
Nyheden = Request.form("nyhed")
' laver en xml fil med data fra formen
path = "\xml\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.Mappath(""& path & XMLsideNavn & ".xml"))
MyFile.WriteLine("<?xml version=""1.0"" encoding=""iso-8859-1""?>")
MyFile.WriteLine("<rss version=""2.0"">")
MyFile.WriteLine("<channel>")
MyFile.WriteLine("<nyhed>")
MyFile.WriteLine("<title>" & Overskrift & "</title>")
MyFile.WriteLine("<indhold>" & Nyheden & "</indhold>")
MyFile.WriteLine("<dato>" & ddato & "</dato>")
MyFile.WriteLine("</nyhed>")
MyFile.WriteLine("</channel>")
MyFile.WriteLine("</rss>")
' lukker ned igen
MyFile.Close
Set MyFile = Nothing
     
' skriv noget andet her eller spring denne linie over hvis du ikke vil bruge den.
Response.write "<br><center><b><font face=""arial"" size=""2"" color=""ff000"">" & XMLsideNavn & ".xml </font><font face=""arial"" size=""2"">Blev opdateret - " & now() & "</font></b></center>"
end if
%>
<div align="center">
<center><table border="0" width="80%" cellspacing="0" cellpadding="0"><tr><td width="100%" bgcolor="#CC3300">
<p align="center"><font face="Arial" size="2" color="#FFFFFF"><b>Skriv nyheder her og opdater xml</b></font></td>
</tr><tr><td width="100%" bgcolor="#FFFFE8">
<div align="center"><center><table border="0" width="80%"><tr><td width="100%">
<form method="POST" action="info.asp?mode=opretxml">
<p align="center"><br>
<font face="Arial" size="2" color="#CC3300"><b>Vælg kategori (xml side)<br>
<select size="1" name="sidenavn">
<option value="xml_film">Xml om film</option>
<option value="xml_billeder">Xml om billeder</option>
<option value="xml_dokumenter">Xml om dokumenter</option>
<option value="xml_andrefiler">Xml om andre filer</option>
</select></b></font></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Angiv Dato -
hvis du ikke angiver en dato bruges Dags Dato</b></font><br>
<input type="text" name="dato" size="29"></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Vælg en overskrift<br>
<input type="text" name="overskrift" size="55"></b></font></p>
<p align="center"><font face="Arial" size="2" color="#CC3300"><b>Skriv nyheden her</b></font><br>
<textarea rows="9" name="nyhed" cols="47"></textarea></p>
<p align="center"><input type="submit" value="Opdater xml" name="B1"><input type="reset" value="Slet alt" name="B2"></p>
</form></td></tr></table></center></div></td></tr></table></center></div>
</body>
</html>

:) - har du ikke overvejet at få en database

Hehe jo, men det får vi forklaret i skolen :)

Men rigtig mange tak for din tålmodighed og tid, det var sq pænt af dig! :)