Vides Dynamisk listning av filer

jag det kommer på sidan http://www.costodia.com/data/filerna.asp
så här:

 Costodia Data - Arkiv
*****' regEx.Pattern = "

jag startadeom från noll och kopierade din kod igen för att försöka få sidan utan radbrytningar, men jag vet inget program som kan fixa att ta emot någonting jag klistrat in från IE, du har inte lust att lägga upp en textfil?

Om jag får funktionen att funka komme rjag och säkert många andra ha otroligt mycket nytta av den.

------------------
Mvh Martin Persson
www.Costodia.com

okej... de där verkar ruggit skumt, men jag får inte riktigt nån koppling i alla dina små kodsnuttar... kan du klistra in typ allt eller nåt, så är de lättare att hjälpa dig..

MVH

------------------
nakoz :)

Nu använder jag notetab från www.notetab.com och det klarar radbrytningar, nu ser koden ut så här istället:

 <%
'***** Specifierar sökvägen till filerna, lokalt och via HTTP *****
http = "http://www.costodia.com/data"
lokal = Server.Mappath("\")
'***** Skapar FSO-objektet och hämtar in alla filer från sökvägen *****'
Set fso = CreateObject("scripting.FileSystemObject")
Set fsof = fso.GetFolder(lokal)
Set fsofi = fsof.files

'***** Skapar ett Regular Expression *****'
Set regEx = New RegExp
regEx.IgnoreCase = True 
regEx.Global = True

'***** Loopar igenom alla filer i katalogen *****'
For Each fil in fsofi

'***** Öppnar filen och lägger allt innehåll i variabelnn filecont *****'
Set filen = fso.OpenTextFile(lokal & "\" & fil.name)
filecont = filen.ReadAll

'***** Letar upp positionen för textsträngen <title> *****'
regEx.Pattern = "<title>"
Set Matches = regEx.Execute(filecont)
For each match1 in Matches
pos1 = Match1.FirstIndex+8
exit For
Next

'***** Letar upp positionen för textsträngen </title> *****'
regEx.Pattern = "</title>"
Set Matches2 = regEx.Execute(filecont)
For each match2 in Matches2
pos2 = Match2.FirstIndex
exit For
Next

'***** Bryter ut all text mellan <title> och </title> *****'
title_text = pos2 - pos1
title = Mid(filecont,pos1,title_text+1)

'***** Skriver ut en länk till filen med titeln som länknamn *****'
Response.write "<a href='" & http & "/" & fil.name & "'>" & title & "</a><br>"
Next
%>

kan det fortfarande vara någon radbrytning som är fel?

------------------
Mvh Martin Persson
www.Costodia.com

Okej, har alla filer i mappen title-taggar? Det måste dom ha...

------------------
Jourhavande @e SweQuake.com

nu har jag lagt in title på alla mina filer, samtliga är aspfiler, och det fungerar endå inte.
kan det vara någonting annat som är fel?

------------------
Mvh Martin Persson
www.Costodia.com

Om denna filen ligger där också, så måste den också ha title-taggar före koden...

------------------
Jourhavande @e SweQuake.com

Kalasbra,
tack så jättemycket Vide, det är en otroligt bra funktion du har gjort.
Nu fick jag i och för sig ett annat probelm som jag i och för sig inte tror ät relaterat till scriptet utan någon annan konstigt jag gjort men det har aldrig hänt förut.
jag får felmeddelnadet Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/goto.asp, line 16

i samtliga länksystem på costodia, utan att länksysystemen har någonting att göra med verann.

------------------
Mvh Martin Persson
www.Costodia.com

japp, det beror på att mappen som databasen / databaserna ligger i har fel rättigheter.

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>