Opret fil
Jeg skal oprette en fil med data fra en database,, men det virker ikke......Conn.Open DSN
SUSQL = \" Select * From Tabel1 \"
Set rs = Conn.Execute(SUSQL)
Do
Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set MyFile = fso.CreateTextFile(server.mappath(\"../bands/\" & Brugernavn & \".asp\"), True)
MyFile.Write(\"\" & Response.Write rs(\"En\") & Bandnavn & Response.Write rs(\"To\") & \"\")
MyFile.Close
rs.MoveNext
\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
Fejl:
Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a03ee\'
Tegnet \')\' var ventet
/min frames/Opretny/Data2.asp, linje 130
MyFile.Write(\"\" & Response.Write rs(\"En\") & Bandnavn & Response.Write rs(\"To\") & \"\")
----------------------------------------------^
