Frågan#1
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
