hvad går der galt
Okay, hvad ***** går der galt her?!<html>
<head>
</head>
<body topmargin=\"0\" leftmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<%
Set F = CreateObject(\"Scripting.FileSystemObject\")
Fil = Replace(Request.QueryString(\"site\"),\"\\\\\",\"\\\")
If Request.ServerVariables(\"REQUEST_METHOD\") <> \"POST\" Then
Set FS = F.OpenTextFile(Fil,1)
%>
<form action=\"text.asp\" method=\"post\">
<textarea rows=\"10\" cols=\"60\" name=\"text\"><%= Replace(FS.ReadAll,\"<br>\",VBCrLf) %></textarea><br>
<input type=\"submit\" value=\"Gem\">
</form>
<%
Else
Set FS2 = F.OpenTextFile(Fil,2)
FS2.Write(Replace(Request.Form(\"text\"),VBCrLf,\"<br>\"))
Response.Write \"<script>top.close()</script>\"
End if
%>
</body>
</html>
Jeg får error om invalid procedure or argument eller sådan noget ved det her..:
FS2.Write(Replace(Request.Form(\"text\"),VBCrLf,\"<br>\"))
