Det här fungerar på PWS:
<%
Set object = CreateObject("Scripting.FileSystemObject")
Set makeFile = object.CreateTextFile("c:\Inetpub\wwwroot\fyh\" + theSubject + "/" + theFile + ".asp", True)
makeFile.WriteLine("<html><head><title>")
makeFile.WriteLine theFile
makeFile.WriteLine("</title>")
makeFile.WriteLine("<link rel=stylesheet href='../fyh.css' type='text/css'>")
makeFile.WriteLine("</head><body>")
makeFile.WriteLine("<table border='0' width='100%' height='100%'>")
makeFile.WriteLine("<tr>")
makeFile.WriteLine("<td width='150' align='left' valign='top' style='border-right:1px solid black;'><br> <br>")
makeFile.WriteLine("<a href='../default.asp' class='left'>Hem</a><br><a href='../read.asp' class='left'>Läs Artiklar</a><br><a href='../members.asp' class='left'>Medlemmar</a><br><a href='../signup.asp' class='left'>Sign Up</a><br><a href='../info.asp' class='left'>Information</a><br><a href='../contact.asp' class='left'>Ta Kontakt</a><br></td>")
makeFile.WriteLine("<td width='*' align='left' valign='top'><img src='../pics/fyh.gif' border='0'><br> <br>")
makeFile.WriteLine("<table border='0' cellspacing='0' cellpadding='0' width='550' align='left' valign='top'>")
makeFile.WriteLine("<tr>")
makeFile.WriteLine("<td width='550' align='left'>")
makeFile.WriteLine("<font class='header'>")
makeFile.WriteLine theFile
makeFile.WriteLine("</font></td></tr>")
makeFile.WriteLine("<tr>")
makeFile.WriteLine("<td width='550' align='left'>")
makeFile.WriteLine("<font><b>Författare: </b><i>")
makeFile.WriteLine("<a href='mailto:")
makeFile.WriteLine theEmail
makeFile.WriteLine("'>")
makeFile.WriteLine theWriter
makeFile.WriteLine("</a>")
makeFile.WriteLine("</i></font><br><hr size='1' color='black' width='65%' align='left'></td></tr>")
makeFile.WriteLine("<tr>")
makeFile.WriteLine("<td width='550' align='left' valign='top'>")
makeFile.WriteLine("<font class='explaining'>")
makeFile.WriteLine theArticle
makeFile.WriteLine("</font><br><hr size='1' color='black' width='65%' align='left'></td></tr>")
makeFile.WriteLine("<tr>")
makeFile.WriteLine("<td width='550' align='left'>")
makeFile.WriteLine("<font style='color:rgb(120,120,120);'><b>Datum: </b>")
makeFile.WriteLine theDate
makeFile.WriteLine("</font></td></tr></table></td>")
makeFile.WriteLine("</tr></table>")
makeFile.WriteLine("</body></html>")
makeFile.Close %>
Men inte på gratiswebplats.nu ... Det är raden:
Set makeFile = object.CreateTextFile("c:\Inetpub\wwwroot\fyh\" + theSubject + "/" + theFile + ".asp", True)
som det är fel på... självklart har jag ändrat sökvägen... har provat flera olika varianter, ("http://www.gratiswebplats.nu/minsida/" + theSubject + "/" + theFile + ".asp", True)
("" + theSubject + "/" + theFile + ".asp", True)
(theSubject + "/" + theFile + ".asp", True)
Men inget funkar... någon som vet hur jag kan lösa det? Felmedelandet jag får är; går ej att hitta anvgiven sökväg
