Her kommer lige alt min kode, tror måske at det skal ses.
error.asp
<html>
<head>
<title>Ninki</title>
<link rel="stylesheet" href="css/style.css" type="text/css">
</head>
<body bgcolor="#AFE3C7" background="pix/bg.jpg" style="background-repeat: repeat-x;">
<form id="opgave" method="post" onsubmit="return tjekFormular(this);">
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f, cnt
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("../abc/indhold.txt", ForAppending, True)
cnt = 0
for each fld in request.form
if cnt > 0 then f.write ";"
f.write request.form(fld)
cnt = cnt + 1
next
f.WriteLine
%>
<p>Error Log</p>
<label for="t1" class="size">Dato:</label>
<input id="t1" type="text" name="dato" class="wickEnabled" />(fx. 20/06/1986)<br />
<label for="t2" class="size">Klokken:</label>
<input id="t2" type="text" name="klokken" class="wickEnabled" />(fx. 20.00)<br />
<label for="t3" class="size">Sted:</label>
<input id="t3" type="text" name="sted" class="wickEnabled" /><br />
<label for="t4" class="size">Fejl:</label>
<textarea id="t4" name="fejl" rows="10" cols="52"></textarea><br />
<label for="t7"> </label>
<input id="t7" class="knap" type="submit" value="Opret" />
<input class="knap" type="reset" value="Slet Alt" />
<div id="fejl" style="visibility: hidden;">Udfyld Venligst Alle Felterne</div>
<%
f.Close
%>
</form>
<form>
<%
server.Execute "main.asp"
%>
</form>
</body>
</html>
main.asp
<table>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/abc/indhold.txt")
Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
' Lav array ved at splitte ved semikollon
arrM = Split(f.ReadLine,";")
' Skriv links - hent oplysningerne i array
Response.write "<td>" & arrM(0) & "</td>"
Loop
f.Close
%>
</table>
indhold.txt
