skriv "%>" til en fil med FileSystemObject
Jeg er vedat lave et program der kan skrive ASP program kode til en fil, og det virker næsten men arh lidt problemer med detlad os antage at jeg vil have følgende koden skrevet til en fil:
<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\slet\test.asp",true)
'fname.WriteLine "Hello World! 2"
fname.WriteLine "<%"
fname.WriteLine "SQLserveradr =""192.168.1.2"" "
fname.WriteLine "SQLdatabase =""halstat_db"" "
fname.WriteLine "SQLlogin =""brugernavn"" "
fname.WriteLine "SQLpassword =""password"""
fname.WriteLine "Set Conn = CreateObject(""ADODB.Connection"")"
fname.WriteLine "Conn.Open ""driver={MySQL ODBC 5.1 Driver};server=""& SQLserveradr &"";database=""& SQLdatabase &"";uid=""& SQLlogin &"";pwd=""& SQLpassword "
fname.WriteLine "SQLstmt =""SELECT * from en tabel'"""
fname.WriteLine "'response.write (SQLstmt)"
fname.WriteLine "'response.end"
fname.WriteLine "Conn.Execute (SQLstmt)"
fname.WriteLine "Set rs = conn.Execute(SQLstmt)"
fname.WriteLine " Do until rs.EOF"
fname.WriteLine " master_nr = rs(""master_nr"")"
fname.WriteLine " Beskrivelse = rs(""Beskrivelse"")"
fname.WriteLine " intialer = rs(""initialer"")"
fname.WriteLine " dato = rs(""nextkal_dato"")"
fname.WriteLine " rs.MoveNext"
fname.WriteLine " Loop"
fname.WriteLine " Conn.Close"
fname.WriteLine " Set Conn = Nothing"
fname.WriteLine "%>"
fname.Close
set fname=nothing
set fs=nothing
%>
så får jeg fejl på fname.WriteLine "%>"
nogen der har en ide til hvoran ejg kan snyde og få skrevet %>
jeg vedatman kan skrive mellemrum som men kan man evt også det med % tegn eller er der andre mulighder for at skrive asp kode til en fil