Hej,
Jeg har lavet en asp side som skriver en WML side med indholdet
fra et givent directory med ringetoner, men jeg ville godt
forbedre det lidt.
Er det muligt at lave om på scriptet så den laver en ny WML-side
når den når til fx 50? Som:
untested00.wml
untested01.wml
untested02.wml
etc.
Og hvordan kan jeg få den til at skrive filnavnet på ringetonen
*uden* extension?
Scriptet jeg bruger ser ud som følger:
<HTML>
<BODY>
<%
Const ForWriting = 2
Const Create = True
Dim MyFile
Dim FSO
Dim TSO
MyFile = Server.MapPath("/wap/ringtones/untested00.wml")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.OpenTextFile(MyFile, ForWriting, Create)
TSO.write "<?xml version=""1.0""?>" & vbcrlf
TSO.write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""
http://www.wapforum.org/DTD/wml_1.1.xml"">" & vbcrlf
TSO.write "<wml>" & vbcrlf
TSO.write "<card title=""untested Ringtones"">" & vbcrlf
TSO.write "<p>" & vbcrlf
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofile = filesys.GetFolder(server.MapPath("untested/."))
Set filecoll = demofile.Files
For Each fil in filecoll
TSO.write "<a href=""untested/" & fil.name & """>" & fil.name & "</a><br/>" & vbCRLF
Next
TSO.write "</p>" & vbcrlf
TSO.write "</card>" & vbcrlf
TSO.write "</wml>" & vbcrlf
TSO.WriteLine ""
Response.Write " Lines are writen to WML-file <br>"
Response.Write " Local time at server is " & Now()
TSO.close
Set TSO = Nothing
Set FSO = Nothing
%>
</BODY>
</HTML>
--
Lars,
<
http://www.gaarde.org/acronyms/>