har du testat att skriva ut hamtning4... då ser du om det finns något att skriva till filen. Annars hittar jag inget fel.
response.write(hamtning4)
Frågan#1
Hej, jag anänder följande kod:
ElseIf Request.QueryString("Banneradmin") = "True" Then
Response.Write "<font face=""Verdana"" size=""2"">" & vbcrlf
Response.Write "<br>" & vbcrlf
Response.Write "Reklamadministrationssystemet;<br>" & vbcrlf
Response.Write " </font><form method=""POST"" action=""Admin.asp?Banneradmin=edit"">" & vbcrlf
Response.Write "<font size=""1"" face=""Verdana"">" & vbcrlf
Response.Write "<textarea name=""adrot"" rows=""21"" cols=""53"">" & vbcrlf
%>
<!-- #include file="adrot.txt" -->
<%
Response.Write "</textarea></font><font size=""2"" face=""Verdana""><br>" & vbcrlf
Response.Write " </font><font size=""1"" face=""Verdana""><input type=""submit"" value=""Skicka""><font size=""2"" face=""Verdana"">" & vbcrlf
Response.Write "</font>" & vbcrlf
Response.Write "<input type=""reset"" value=""Återställ"" ><font size=""2"" face=""Verdana"">" & vbcrlf
Response.Write "</font>" & vbcrlf
Response.Write "</font>" & vbcrlf
Response.Write "</form>"
ElseIf Request.QueryString("Banneradmin") = "edit" Then
Dim hamtning4
hamtning4 = Request.Form("adrot")
Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.CreateTextFile(Server.Mappath("\") & "adrot.txt",true,false)
textstreamobject.write(hamtning4)
textStreamObject.Close
Set textStreamObject = Nothing
Set fso = Nothing
Response.write("Allt gick bra!")
Men den vill inte skriva det som jag skrev i formuläret till filen.. jag får inget fel det står bara "Allt gick bra!" .. Hjälp!
