i am impressed

Va? Vad är det som skall uppnås? Och vad finns i textfilen?

i testfilen finns text, men det är inte det som är det viktiga utan bara att textfilen inkluderas i nyhetsbrev2.asp

Det är ju bara att använda fso och sedan tex sätta taggar i text filen typ [rubrik] sluttagg [/rubrik] och sedan kolla efter vissa saker i text filen och skriva ut det på en sida.

i testfilen finns text, men det är inte det som är det viktiga utan bara att textfilen inkluderas i nyhetsbrev2.asp

Vad som finns i textfilen är visst viktigt, beroende på det kanske det finns en smartare lösning... ligger all text i filen så är det enklast att göra som erka sa.

fast då kan man likaväl ha det i en xml fil varje nyhetsbrev och styra det med asp och xml, smidigare och snyggare

Det erka sa lät bra, men tyvärr har jag ingen aning om hur jag kodar detta, så om du råkar ha lite tid över så skulle jag bli jätteglad om du kankse hade lust att visa lite kod.
Tack på förhand,

här kommer en diskussion med text fils varianten
http://cgi.webforum.nu/wf/Forum11/HTML/006593.html

jag gjorde om den och byggde den på xml senare men den har jag inte tillgång till idag (men i morgon så, he he)

jag testade ditt script men får tyvärr

Microsoft VBScript runtime  error '800a01c2'

Wrong number of arguments or invalid property assignment: 'ReadFile'

/erka/Default.asp, line 4

du har inte lust att skicka det i en zip?

Du menar text fils varianten eller ? vad är det för kod som generarar felmeddelandet ? posta koden

jo. men det är just den du använder i ditt script, som låg i den där andra tråden som hänvisades till här.

Det jag visade var inte exakt vad du eftersökte, det var en liten sak som skapade kataloger , listade filer i kataloger och som sedan visade text filen.. Här har du lite mer som visar hur jag öppnar textfilen och tar ut rubriker etc.

I text filen har jag följande saker
[rubrik]RUBRIKEN[/rubrik]

utskrifts filen skrev jag nu lite snabbt men den ska funka

osv för de andra, ingress och brodtext

FILEN SOM VISAR ARTIKELN
<!--#include file="backbone.asp" -->
%
strKatalogNamn = Request.Querystring("KatalogNamn")
strRootPath = Server.MapPath("\")
strFolder = Request.Querystring("Path")
strFolderPath = strRootPath & strFolder
strFileName = Request.Querystring("Artikel")
strFile = strFolderPath & strFileName

set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
set objTFile = objFSO.OpenTextFile(strFile,1,Create)
strC = ReadFile(strFileName,strFolderPath)

%>
<%Response.Write br(getText(strC,"[rubrik]",true))%><br>
<%Response.Write br(getText(strC,"[ingress]",true)) %><br>
<%Response.Write br(getText(strC,"[brodtext]",true))%><br>
<%
Set objFSO  = Nothing
Set objTFile = Nothing
%>

BACKBONE.ASP (som inkluderas ovan)
<%
'** Öppnar och återger filens innehåll **'
Function ReadFile(file,strPath)	
Set fso = CreateObject("Scripting.FileSystemObject")	
strArtikel = strpath &""& file	
ReadFile = fso.OpenTextFile(strArtikel, 1).ReadAll	
Set fso = Nothing
End Function
'** Hämtar text mellan angivna taggar **'
Function getText(strString,strTag,bolRemChr13)
'** Tolkar taggen **'	
strFirstChar = Left(strTag,1)	
strLastChar = Right(strTag,1)	
strTagContents = Mid(strTag,2,Len(strTag)-2)	
strEndTag = strFirstChar & "/" & strTagContents & strLastChar

'** Skapar RegExp-objektet **'	
Set RE = New RegExp	
RE.Global = false
RE.IgnoreCase = false

RE.Pattern = "(\"&strFirstChar&strTagContents&"\"&strLastChar&"){1}(.&#0124;\n)+(\"&strFirstChar&"/"&strTagContents&"\"&strLastChar&"){1}"	
Set MM = RE.Execute(strString)	
For each M in MM

	strTmp = M	
	Next		
	strTmp = Replace(strTmp,strTag,"")	
	strTmp = Replace(strTmp,strEndTag,"")
	
	If InStr(strTmp,vbcrlf) AND bolRemChr13 Then strTmp = Mid(strTmp,2)		
	getText = Trim(strTmp)
	End Function
	
	'** Byter radbrytningar mot <br> **'
	Function br(strC)	
		br = Replace(strC,vbcrlf,"<br>")
	End Function
	%>

nu hände det något helskumt, http://www.costodia.com/erka/

under

<!--#include file="backbone.asp" -->
%

så saknades det ju ett < tecken

byt ut mot
<!--#include file="backbone.asp" -->
<%

sen ser du att jag hämtar ut artikel med ett id från en querystring. Det får du byta ut mot din text fil
strFileName = din text fil

tack för all hjälp, men jag ger upp, nu får jag premission denied, fast jag flyttade katalogen till http://www.costodia.com/scripts/erka/ som är skrivbar.

vad står det på rad 10 ?

set objTFile = objFSO.OpenTextFile(strFile,1,Create)

och du har fullständig behörighet på katalogen ? även i utforskaren

vadå utforskaren?
Jag kan ändra mina rättigehet på ballou via att man loggar in, men där finns ingen utforskare.

Den raden säger att

1. öppna textfilen som ligger i variabeln strFile (du kan byta ut den mot ditt filnamn och strunta helt i variabeln strFile, sätt filnamnet inom " tecken i såfall)

2.1 (iomode) menar att du bara ska öppna den för läsning

3.Byt ut create mot false, create kan antingen vara true eller false, det betyder att om filen inte finns så skapas den.

Relaterade länkar:
http://www.devguru.com/Technologies/vbscript/quickref/filesystemobject_opentextfile.html
http://www.devguru.com/Technologies/vbscript/quickref/filesystemobject.html

Glöm utforskaren trodde att du satt på egen utvecklingsburk. Du behöver inte skrivrättigheter, bara läs rättigheter om du har satt create på false