Hej!
... vore lättare att felsöka om du angav vad du har för problem, om du t.ex får nått felmeddelande...
2 svar · 256 visningar · startad av M@rtin
Jag håller på med en gästbok som lagrar alla mess i en .txt fil.. Men jag har lite problem med att skriva samt läsa filen.. Nån som kan hitta några fel i min kod?
<% if Request.Form("namn")="" then
%>
<html>
<head>
<title>Min Gästbok!</title>
</head>
<body>
<center><h2>Skriv några rader i min gästbok!</h2><p>
<form name="guest" action="guestbook.asp" method="POST">
<table border=0 align="center" width="400" cellspacing="20">
<tr>
<td>Namn: <input type="text" name="namn" size=20 maxlength=20>
</td>
</tr>
<tr>
<td>E-mail: <input type="text" name="epost" size=30 maxlength=40>
</td>
</tr>
<tr>
<td>Kommentar:
<textarea name="kommentar" cols="40" rows="7"></textarea>
</td>
</tr>
<tr>
<td><input type="reset" value="Rensa">
<input type="submit" value="Skicka">
</td>
</tr>
</table>
</form>
<p>
<%
fil="guests.txt"
Set MittTxtObjekt=Server.CreateObject("Scripting.FileSystemObject")
Set MinFil=MittTxtObjekt.OpenTextFile(fil,8,true)
kommentaren=MinFil.ReadAll
%>
<%=kommentaren%>
</body>
</html>
<%
else
%>
<%
fil="guests.txt"
Set MittTxtObjekt=Server.CreateObject("Scripting.FileSystemObject")
Set MinFil=MittTxtObjekt.OpenTextFile(fil,8,true)
namn=Request.Form("namn")
email=Request.Form("email")
kommentar=Request.Form("kommentar")
MinFil.Write "<br>"
MinFil.Write "<a href='mailto:" & email &"'>" & namn & "</a>" & "Datum: " & Now & "<br>"
MinFil.Write "<table border=0 align=center width=400><tr><td>"
MinFil.Write kommentar
MinFil.Write "</td></tr></table>"
MinFil.Write "<hr width='99%'>"
MinFil.Close
%>
<html>
<head>
<title>Tack!</title>
</head>
<body>
<center><h2>Tack, <%=Request.Form("namn")%>, för att du skrev in dig i min Gästbok!</h2></center>
</body>
</html>
<%
End If
%>
//M@rtin
Hej!
... vore lättare att felsöka om du angav vad du har för problem, om du t.ex får nått felmeddelande...
Jo det vore det säkert.. men jag kom på felet själv.. och med lite hjälp av dig
Felet var att jag öppnade filen för skrivning när jag skulle läsa från den..
//M@rtin