@nethuset> sådan så er det lavet. Der er 2 filer, som skal ligge i samme bibliotek på serveren.
Den første hedder \"tekstforum.asp\" og ser således ud:
<%
option explicit
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim sMainPath
Dim sFolderFileName
sMainPath = request.servervariables(\"APPL_PHYSICAL_PATH\")
sFolderFileName = request.querystring(\"kategori\")
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<html>
<head>
<title>Untitled</title>
</head>
<body>
<font face=\"verdana\" size=2>
<form name=\"frmTxtForum\" action=\"edittextfiles.asp?t=<%=server.urlencode(now)%>\" method=\"post\">
<select name=\"kategori\">
<option value=\"overall\">Vælg kategori:</option>
<option value=\"biler\">Biler</option>
<option value=\"huse\">Huse</option>
<option value=\"skibe\">Skibe</option>
</select>
<br>
<textarea name=\"forumTekst\" rows=6 cols=25></textarea>
<br>
Navn: <input type=\"text\" name=\"navn\" size=15>
<br>
Adresse: <input type=\"text\" name=\"adr\" size=15>
<br>
By: <input type=\"text\" name=\"by\" size=15>
<br>
<input type=\"submit\" name=\"submit\" value=\"Gem tekst\">
</form>
<a href=\"java script:document.location.href=\'tekstforum.asp?t=<%=server.urlencode(now)%>&kategori=\'+document.frmTxtForum.kategori.value;\">Se indlæg i valgt kategori</a>:
<br>
<br><br>
-------
<br>
<%
Dim objFSys
Dim objFolder
Dim objFile
Dim colFiles
Dim sFile
Dim stmFileContent
Dim sFullPath
Dim sFileContent
Set objFSys = server.createobject(\"Scripting.FileSystemObject\")
if not request.querystring(\"kategori\") = \"\" then
if objFSys.FolderExists(sMainPath & sFolderFileName) then
Set objFolder = objFSys.GetFolder(sMainPath & sFolderFileName)
Set colFiles = objFolder.files
For each sFile in colFiles
response.write \"<a href=\'tekstforum.asp?t=\"&server.urlencode(now)&\"&kategori=\"&request.querystring(\"kategori\")&\"&visindholdaf=\"&sFile.Name&\"\'>\"&sFile.Name&\"</a><br>\"
next
end if
end if
if not request.querystring(\"visindholdaf\") = \"\" then
sFullPath = sMainPath & sFolderFileName & \"\\\" & request.querystring(\"visindholdaf\")
Set objFile = objFSys.GetFile(sFullPath)
Set stmFileContent = objFile.OpenAsTextStream(ForReading)
if stmFileContent.AtEndOfStream <> true then
sFileContent = stmFileContent.ReadAll
end if
response.write \"<br><br><br>-------<br><b><u>Indholdet af indlæg</u>:</b><br>\" & Replace(sFileContent,vbCrLf,\"<br>\")
end if
Set objFolder = nothing
Set colFiles = nothing
Set stmFileContent = nothing
Set objFSys = nothing
%>
</font>
</body>
</html>
Den anden hedder \"edittextfiles.asp\" og ser således ud:
<%
option explicit
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim sMainPath
Dim sFolderFileName
Dim sFileContent
Dim objFile
Dim stmFileContent
Dim sFullPath
Dim sUnique
if request.form(\"kategori\") = \"overall\" then
response.write \"<script type=text/javascript>alert(\'Du skal vælge en kategori\');history.go(-1);</script>\"
response.end
end if
sMainPath = request.servervariables(\"APPL_PHYSICAL_PATH\")
sFolderFileName = request.form(\"kategori\")
sFileContent = request.form(\"forumtekst\")
Dim objFSys
Set objFSys = server.createobject(\"Scripting.FileSystemObject\")
if not objFSys.FolderExists(sMainPath & sFolderFileName) then
objFSys.CreateFolder(sMainPath & sFolderFileName)
end if
sUnique = replace(CStr(now),\":\",\"\")
sUnique = replace(sUnique,\" \",\"_\")
if not objFSys.FileExists(sMainPath & sFolderFileName & \"\\\" & sFolderFileName & \".txt\") then
sFullPath = sMainPath & sFolderFileName & \"\\\" & sFolderFileName & sUnique & \".txt\"
objFSys.CreateTextFile sFullPath
end if
Set objFile = objFSys.GetFile(sFullPath)
Set stmFileContent = objFile.OpenAsTextStream(ForWriting)
stmFileContent.write \"Navn: \" & request.form(\"navn\") & vbCrLf & \"Adresse: \" & request.form(\"adr\") & vbCrLf & \"By: \" & request.form(\"by\") & vbCrLf & \"Dato: \" & date & vbCrLf & \"-----\" & vbCrLf & sFileContent
stmFileContent.Close
Set stmFileContent = objFile.OpenAsTextStream(ForReading)
if stmFileContent.AtEndOfStream <> true then
sFileContent = stmFileContent.ReadAll
end if
stmFileContent.Close
Set objFile = nothing
Set stmFileContent = nothing
Set objFSys = nothing
response.redirect (\"tekstforum.asp?t=\"&server.urlencode(now))
%>
__________________________________________
Du bruger \"forumet\" således:
Indtast tekst og vælg en kategori. Indtast navn, adr. og by og klik \"Gem tekst\"
- Hvis du så vil se indlægget - så vælg den kategori det blev oprettet under med selectboxen - og klik \"Se indlæg i valgt kategori:\" - herefter vil de indlæg, som er oprettet i en kategori blive listet - og du kan nu klikke på dem for at se selve de indtastede data, selve teksten og dato for oprettelse.
/nuno
