Problemer med gæstebog
Jeg er ved at lave en gæstebog, hvor jeg vil skrive indlægene til en fil og læse fra den således at indlæggene kan ses på min hjemmeside. Jeg har dog problemer med kodningen. Jeg har lavet følgende men får fejl:<%@ Page Language="VB" Trace="False" Debug="True" Explicit="true" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" %>
<%--Register er et sidedirektiv, som kan bruges til at associere aliaser med navnerum og klasser--%>
<%--Import er et sidedirektiv, som kan bruges til at importere et navnerum til den aktuelle side--%>
<%@Import Namespace="System"%>
<%@Import Namespace="System.IO"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.SQLClient"%>
<%@Import Namespace="System.Data.OleDB"%>
<%@Import Namespace="System.Web.Mail"%>
<html>
<head>
<title>Gæstebog</title>
<link href="/felix.css" rel="stylesheet" content="text/css" />
</head>
<%--Indsætter titel øverst på siden--%>
<body>
<felix:MainHeader HeaderTitle="Gæstebog:" runat="server" />
</body>
<form name="Form1" method="post" runat="server" action="modtag.asp">
<table style="width:50%;">
<tr>
<td>
<p>
Navn:
</p>
</td>
<td>
<p>
<asp:TextBox runat=server
id="Navn"
Text="Navn"
/>
<input type="text" size="30" name="Navn">
</p>
</td>
</tr>
<tr>
<td>
<p>
Dato:
</p>
</td>
<td>
<p>
<input type="text" size="30" name="Dato">
</p>
</td>
</tr>
<tr>
<td>
<p>
E-mail adresse:
</p>
</td>
<td>
<p>
<input type="text" size="30" name="Email">
</p>
</td>
</tr>
<tr>
<td>
<p>
Titel på indlæg:
</p>
</td>
<td>
<p>
<input type="text" size="30" name="Titel">
</p>
</td>
</tr>
<tr>
<td>
<p>
Indlæg:
</p>
</td>
<td>
<p>
<input type="text" size="30" name="Indl">
</p>
</td>
</tr>
<tr>
<td>
</td>
<td>
<p>
<input type="submit" label="Indsæt i gæstebog" name="submit">
</p>
</td>
</tr>
</table>
<%
'Server.MapPath gør at man kan finde filen selvom den flytter sig på serveren
'Dim file As New System.IO.StreamWriter(Server.MapPath("/Modules/FelixForms/MSMWizard/gbpeople.txt"))
Dim file, filespec, fso
fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/Modules/FelixForms/MSMWizard/gbpeople.txt")
file = fso.OpenTextFile(filespec,2)
file.Write (Request.Form("Navn"))
file.WriteLine(Request.Form("Dato"))
file.WriteLine(Request.Form("Email"))
file.WriteLine(Request.Form("Titel"))
file.WriteLine(Request.Form("Indl"))
file.Write("The date is: ")
file.WriteLine(DateTime.Now)
file.Close()
%>
'<%
'Try
'Dim sr As New System.IO.StreamReader(Server.MapPath("/Modules/FelixForms/MSMWizard/gbpeople.txt"))
'Dim line As String
'Do
'line = sr.ReadLine()
'Console.WriteLine(Line)
'Loop Until line Is Nothing
'sr.Close()
'Catch E As Exception
' Console.WriteLine("The file could not be read:")
' Console.WriteLine(E.Message)
'End Try
'%>
Her ses gæstebogen:<br>
Navn: <% =Request.Form("Navn")%> <br>
Dato: <%=Request.Form("Dato")%> <br>
Email: <%=Request.Form("Email")%> <br>
Titel: <%=Request.Form("Titel")%> <br>
Indl: <%=Request.Form("Indl")%> <br>
</form>
</html>
På forhånd mange tak.
Mvh. Maria.
