5 svar · 214 visningar · startad av ejick
Hej,
jag håller på med en site som skall ha en enklare version av en tilläggning av e-postadresser.
De adresser som läggs till skall haman i en textfil. Förljande kod är använd:
email = Request.Form("email")
filnamn = "dbs/emaillista.txt"
Set MittTxtObj = Server.CreateObject ("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(filnamn,8,true)
MinFil.WriteLine(email & ", ")
MinFil.Close
Session("email") = true
Response.Redirect "default.asp"
Problemet verkar vara filnamn, hur skall jag ange sökvägen för att det skall bli rätt?
Sidan där jag postar e-mailadressen:
<% If Session("email") = true Then %>
<strong>Din e-mail finns nu i vår databas.</strong>
<% Else %>
<form action="addemail.asp" method="post" name="nbrev">
<input type="text" value="din@mail.com" name="email">
<br>
<input type="submit" value="GO">
</form>
<% End If%>
Hoppas någon förstår och har en smart lösning.
Jag tror nog att det funkar bättre om du använder Server.MapPath():
email = Request.Form("email")
filnamn = "dbs/emaillista.txt"
Set MittTxtObj = Server.CreateObject ("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(Server.MapPath(filnamn),8,true)
MinFil.WriteLine(email & ", ")
MinFil.Close
Session("email") = true
Response.Redirect "default.asp"
ForAppending = 8 'Lägger till i en textfil
true/false = Opens the file as Unicode/Opens the file as ASCII
8 = ForAppending = Lägg till i slutet av filen, istället för att skriva helt nytt.
True = Skapa en ny fil om filen inte finns (har jag för mig).
Ahh okej. Tack så mycket, nu hänger tom jag med :)
