Notifikationer

Markér alle som læst Log ud

tentakkel Nybegynder

08. december 2001 - 23:40 Der er 27 kommentarer og
2 løsninger

Frasorter emner i et objekt

Dette er faktisk et dobbelt spørsgmål (a og B)- 60 point for hver. I det nederste ASP vil jeg gerne kunne

A) at have en liste med textstrenge som der ikke må være indeholde i de objektor der bliver vist. Fx.
variabel nonshow=(\'.js\', \'index.\')
så kommer chesk.js og index.asp ikke frem i listen

A2) at have en liste med textstrenge der SKAL være i navnet før at den vises
variabel justshow=(\'.htm\', \'.html\')
så vises KUN htm og html filer fra mappen

B) også kunne se de mapper der er i mappen + A) + A2) (bare for mapperne naturligvis)
:-)
<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables(\"SCRIPT_NAME\")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>


<TABLE cellpadding=5>
<TR align=center>
<TH align=left>Fil</TH>
<TH>Størrelse</TH>
<TH>Sidst ændret</TH>
</TR>

<%
For Each objFileItem In objFolderContents
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write objFileItem.Name+\"\'>\"
Response.Write objFileItem.Name
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
Next
%>

Synes godt om

nute Nybegynder

08. december 2001 - 23:50 #1

jeg kan ikke se grunnen til at du både skal ha en liste over filer en ikke skal få listet ut *og* en liste over lovlige filer...anyway...er dette noe ála det du søker:

<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables(\"SCRIPT_NAME\")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>


<TABLE cellpadding=5>
<TR align=center>
<TH align=left>Fil</TH>
<TH>Størrelse</TH>
<TH>Sidst ændret</TH>
</TR>

<%
notShow = \".js, index.\"
doShow = \".htm, .html\"
For Each objFileItem In objFolderContents
fileName = objFileItem.Name
fileExt = MID( fileName, InStr( fileName, \".\" ) )
if( InStr( doShow, fileExt ) > 0 ) then
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write fileName & \"\'>\"
Response.Write fileName
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
end if
Next
%>

Synes godt om

Slettet bruger

08. december 2001 - 23:51 #2

Hej igen ;)

Jeg vil meget gerne lave det for dig, men har desværre ikke tid for imorgen :(

Mht. A og A2 vil det så ikke være nemmest kun at definere de fil-extensions/filnavne der IKKE skal vises?

Synes godt om

tentakkel Nybegynder

09. december 2001 - 00:16 #3

Grunden til at jeg gerne ville have både en not og en do er: man vil fx gerne have alle htmlfilerne vist - men index.html
Eller man vil vise en bunke billeder i en mappe - men ikke lige én bestemt

nute --> den viser slet ikke noget - overhovet :-(

magik --> det er selvfølgelid dumt hvis i begge laver det samme arbejde. Men jeg ville blive meget glad hvis du ville hjælpe

Hmm - i javascript har man en \"variabel.indexOf(\'noget\')\". Det kommer tilbage med første charter hvorder er et \"n\" efterfulgt af \"oget\". Hvis der ikke ern nogen kommer der -1. Har Man ikke en streng operation med samme funktion i ASP?
så skulle det jo hede

<%
For Each objFileItem In objFolderContents
if (test()
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write objFileItem.Name+\"\'>\"
Response.Write objFileItem.Name
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
Next
%>

Synes godt om

nute Nybegynder

09. december 2001 - 00:30 #4

tentakkel >> den viser faktisk noe for meg. jeg har 3 filer den folderen jeg kjører scriptet i, men jeg får kun listet ut min .html fil...så scriptet fungerer.

hvis du kikker litt på scriptet jeg har postet, så kan du se at jeg har benyttet funksjonen \'InStr\'. dette er ekvivalent med javascript sin \'indexOf\'

/nute

Synes godt om

tentakkel Nybegynder

09. december 2001 - 00:35 #5

AAAAAAAAAARRRRRRRRRRGGGGGGg - jeg kom til at trykke tabulator og enter - jeg er ikke færdig med at skrive = kommer om lidt

Synes godt om

tentakkel Nybegynder

09. december 2001 - 00:41 #6

Grunden til at jeg gerne ville have både en not og en do er: man vil fx gerne have alle html filerne vist - men ikke index.html.
Eller man vil vise en bunke billeder i en mappe - men ikke lige ét bestemt

nute --> den viser slet ikke noget - overhovet :-(

magik --> det er selvfølgelid dumt hvis i begge laver det samme arbejde. Men jeg ville blive meget glad hvis du ville hjælpe :-)

Hmm - i javascript har man en \"variabel.indexOf(\'noget\')\". Det kommer tilbage med første charter i variablen hvorder er et \"n\" (efterfulgt af \"noget\"). Hvis der ikke er nogen \"noget\" i variablen returnere den -1. Har Man ikke en streng operation med samme funktion i ASP?
så skulle det jo hede

<%
notShow = \".js, index.\"
doShow = \".htm, .html\"
For Each objFileItem In objFolderContents
if (test()) then
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write objFileItem.Name+\"\'>\"
Response.Write objFileItem.Name
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
Next
%>

fuction test(variabel) {
for(i=0;notShow.length!=i;i++){
if (variabel.indexOf(notShow[i]!=-1) {return false}
}
for(i=0;notShow.length!=i;i++){
if (variabel.indexOf(doShow[i]=-1) {return false}
}
return true
}

(Det er naturligvis noget sluder at blande Javascript og ASP - men det blot betydningen af det)

Synes godt om

tentakkel Nybegynder

09. december 2001 - 00:51 #7

Hov ja - den viser noget. Men man SKAL bare indtaste noget i doShow feltet

med

fuction test(variabel) {
for(i=0;notShow.length!=i;i++){
if (variabel.indexOf(notShow[i]!=-1) {return false}
}
for(i=0;notShow.length!=i;i++){
if (variabel.indexOf(doShow[i]=-1) {return false}
}
return true
}

Synes godt om

nute Nybegynder

09. december 2001 - 00:59 #8

denne fungerer utmerket for meg...

<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables(\"SCRIPT_NAME\")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>


<TABLE cellpadding=5>
<TR align=center>
<TH align=left>Fil</TH>
<TH>Størrelse</TH>
<TH>Sidst ændret</TH>
</TR>

<%
notShow = \".js, test1.\"
doShow = \".htm, .html, testInc.\"
For Each objFileItem In objFolderContents
fileFullName = objFileItem.Name

if( testString( fileFullName ) ) then
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write fileFullName & \"\'>\"
Response.Write fileFullName
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
end if
Next

function testString( ByVal fName )
fileName = LEFT( fName, InStr( fName, \".\" ) )
fileExt = MID( fName, InStr( fName, \".\" ) )
returnVal = true

if( InStr( notShow, fileName ) > 0 OR InStr( notShow, fileExt ) > 0 ) then
returnVal = false
end if

if( returnVal AND ( InStr( doShow, fileName ) > 0 OR InStr( doShow, fileExt ) > 0 ) ) then
returnVal = true
else
returnVal = false
end if
testString = returnVal
end function
%>

/nute

Synes godt om

nute Nybegynder

09. december 2001 - 01:01 #9

du skal bare fylle ut hvilke filer eller extentions du *ikke* vil vise i variabelen \'notShow\' og hvilke du tillater å vise i variabelen \'doShow\'

/nute

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:02 #10

Hov ja - den viser noget. Men man SKAL bare indtaste noget i doShow feltet - man skal kunne lade være med at skrive noget.
Jeg tror også at vi har misforstået hinanden mht. notShow = \".js, index.\" og doShow = \".htm, .html\" - det ikke extensiont jeg er ude efter - det må også gerne være en del af resten af navnet

<%
notShow = \".js, index.\"
doShow = \".htm, .html\"
For Each objFileItem In objFolderContents
if (test()) then
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write objFileItem.Name+\"\'>\"
Response.Write objFileItem.Name
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
end if
Next
%>

fuction test(variabel) {
//tester alle notShow\'erne i filnavnet. hvis den findes så er indexOf andet end -1 og så returnere den bare false
for(i=0;notShow.length!=i;i++){ //hvis notShow ikke indeholder noget (.length = 0) vil den bare springe denne for-lykke over - og så vil det ikke betyde noget at man lader den stå tom - så SKAL man ikke angive om det er noget den ikke må hede
if (variabel.indexOf(notShow[i])!=-1) {return false}
}
//tester alle doShow\'erne i filnavnet. hvis den ikke findes så ER indexOf -1 og så returnere den bare false (fordi der SKAL være der ikke findes)
for(i=0;notShow.length!=i;i++){ //hvis doShow ikke indeholder noget (.length = 0) vil den bare springe denne for-lykke over - og så vil det ikke betyde noget at man lader den stå tom - så SKAL man ikke angive om det er noget den ikke må hede
if (variabel.indexOf(doShow[i]=-1) {return false}
}
return true
}

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:03 #11

Jeg forstår ikke min computer lige nu - den sender lidt - og så sender den ikk - men nu har du lige skrevet noget. - du må undskylde hvis jeg snakker om noget du har løst for længe siden :-/

Synes godt om

nute Nybegynder

09. december 2001 - 01:13 #12

det er kanskje enklere hvis jeg forklarer hvordan jeg har kodet min løsning:

1) Hvis enten filnavnet eller filextention er registrert i \'notShow\', så vises ikke filen

2) Hvis filnavnet eller filextention er tillatt (i \'doShow\') så har filene/extentions i \'notShow\' presedens og filen vil ikke kunne vises

3) Hvis filnavnet eller filextention ikke er registrert i \'doShow\' så vises ikke filen...

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:13 #13

Hvorfor virker dette ikke?

<%
notShow = \"01-8-8.\"
doShow = \".doc\"
For Each objFileItem In objFolderContents
fileFullName = objFileItem.Name
if( testString( fileFullName ) ) then
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write fileFullName & \"\'>\"
Response.Write fileFullName
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
end if
Next

function testString( ByVal fName )
returnVal = true
if( InStr( notShow, fileFullName ) > -1 ) then
returnVal = false
end if
if( InStr( doShow, fileName ) < 0 ) then
returnVal = false
end if
testString = returnVal
end function
%>

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:15 #14

Det er helt rigtigt - Men det skal ikke være adskilt af extingtion - det skal være hele navnet den skal søge i (det er hvad jeg har forsøgt at lave her i den sidste)

Synes godt om

nute Nybegynder

09. december 2001 - 01:15 #15

hvorfor har du fjernet noe av min kode ???

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:16 #16

(har det nogen betydninge at dette kommer før det kode som vi hele tiden har arbejdet med?

<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables(\"SCRIPT_NAME\")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:18 #17

Fordi jeg gerne ville havde den til at søGe i hele navnet i stedet for i navet eller extingtion

Synes godt om

nute Nybegynder

09. december 2001 - 01:26 #18

oki....du er ikke særlig god til å forklare deg....

du har en folder som du løper innholdet igjennom. for at en fil i denne folder skal bli listet ut, så skal den oppfylle noen kriterier. deler av hele filnavnet (filnavn + extention) må ikke forekomme i \'notShow\' variabelen ?

med andre ord...

notShow inneholder \'01-8-8\'
doShow inneholder \'.doc\'

hvis vi har filen \'01-8-8.doc\', så skal filen *ikke* vises
hvis vi har filen \'01-8-9.doc\', så skal filen vises
hvis vi har filen \'01-8-8.inc\', så skal filen *ikke* vises

er dette korrekt ?

og ja...det har en betydning hvor du legger koden i posting @ 09/12 2001 01:16:27. filen *skal* se ut som den jeg har postet @ 09/12 2001 00:59:50, med unntak at \'testString\' functionen kan legges hvor som helst i filen...

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:37 #19

Nej hvis bare en *del* af fileFullName = notShow skal den ikke vises
filerne er kamp.jpg, hihi.mp3, hiri.mp3

hvis notShow indeholder fx \"mp\" så skal hverken kamp.jpg eller hihi.mp3 vises

Hvis doshow = \"i.m\" skal navnet indeholde det - det gør hihi.mp3 og hiri.mp3 men da hihi.mp3 gik under notShow bliver den naturligvis ikke vist

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:52 #20

notShow = \"8\"
doShow = \".doc\"
For Each objFileItem In objFolderContents
fileFullName = objFileItem.Name
if( (InStr( doShow, fileFullName ) > -1 OR doShow=\"\") AND ( InStr( notShow, fileFullName ) < 0 OR notshow=\"\" ) ) then
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write fileFullName & \"\'>\"
Response.Write fileFullName
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
end if
Next
%>

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:52 #21

burde det ikke virke?

Synes godt om

nute Nybegynder

09. december 2001 - 01:57 #22

hmmm....det vil iallefall ikke fungere hvis du ønsker å registrere flere betingelser i \'doNotShow\' eller \'doShow\'

/nute

Synes godt om

tentakkel Nybegynder

09. december 2001 - 01:59 #23

øv. hmmm - jeg må nok hellere lade det der med kodninge af ASP til dig :-) - men har du forstået hvad der er jeg vil nu?

- jeg vil sutte i seng - tak for hjælpen ind til videre

Synes godt om

nute Nybegynder

09. december 2001 - 02:05 #24

så tror jeg at jeg har funnet noe som fungerer etter ditt ønske:

<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables(\"SCRIPT_NAME\")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>


<TABLE cellpadding=5>
<TR align=center>
<TH align=left>Fil</TH>
<TH>Størrelse</TH>
<TH>Sidst ændret</TH>
</TR>

<%

notShowArr = Array(\"mp\")
doShowArr = Array(\"i.m\",\"t.a\")
For Each objFileItem In objFolderContents
fileFullName = objFileItem.Name

if( testString( fileFullName ) ) then
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write fileFullName & \"\'>\"
Response.Write fileFullName
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
end if
Next

function testString( ByVal fName )
doNotShow = false
doShow = false

for i = 0 to UBOUND( notShowArr )
if( InStr( fName, notShowArr(i) ) > 0 ) then
response.write \" forbudt \"
doNotShow = true
end if
next

if( NOT doNotShow ) then
for i = 0 to UBOUND( doShowArr )
if( InStr( fName, doShowArr(i) ) > 0 ) then
doShow = true
end if
next
end if

testString = ( NOT doNotShow AND doShow )
end function
%>

/nute

Synes godt om

tentakkel Nybegynder

09. december 2001 - 16:24 #25

SÅDAN - (næsten) perfekt :-)

jeg ændrede bare

function testString( ByVal fName )
doNotShow = false
doShow = false

Til

function testString( ByVal fName )
doNotShow = false
doShow = true

For så *skal* man ikke angive noget i \"dem vil jeg have\"

Du får naturligvis 60 point :-)

Synes godt om

tentakkel Nybegynder

09. december 2001 - 16:39 #26

Hmmm - jeg synes at det andet spørgsmål he havde er blevet ændret - derfor laver jeg http://www.eksperten.dk/spm/144382

Og du skal lige svare for at få 60 point

Synes godt om

nute Nybegynder

09. december 2001 - 17:48 #27

hmm....betyr dét at jeg skal svare her ?...

Synes godt om

tentakkel Nybegynder

09. december 2001 - 17:52 #28

Jepper :-)

Synes godt om

tentakkel Nybegynder

09. december 2001 - 18:52 #29

Det helt rigtige svar på dette spørgsmål

<HTML>
<BODY>
<script>
if (document.all) document.body.style.cssText=\"background:white url(b_blue.gif) no-repeat fixed top left\"
</script>

<center>
 
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" width=\"70%\" id=\"AutoNumber1\">
<tr>
<td width=\"100%\">
Filer:
</td>
</tr>
</table>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" width=\"100%\" id=\"AutoNumber2\">
<tr>
<td width=\"100\"> </td>
<td>


<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables(\"SCRIPT_NAME\")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objSubFolders = objFolder.SubFolders
Set objFolderContents = objFolder.Files

%>


<TABLE cellpadding=5>
<TR align=center>
<TH align=left>Fil</TH>
<TH>Størrelse</TH>
<TH>Sidst ændret</TH>
</TR>

<%

notShowArr = Array(\"ti\")
doShowArr = Array( )
for each folder in objSubFolders
if( testString( folder.Name ) ) then
Response.Write \"<TR><TD align=left>/<a href=\'\"
Response.Write folder.Name & \"\'>\"
Response.Write folder.Name
Response.Write \"</a>/</TD><TD align=right> </TD><TD align=right>\"
Response.Write \" </TD></TR>\"
end if
next

notShowArr = Array( )
doShowArr = Array( )
For Each objFileItem In objFolderContents
fileFullName = objFileItem.Name

if( testString( fileFullName ) ) then
Response.Write \"<TR><TD align=left><a href=\'\"
Response.Write fileFullName & \"\'>\"
Response.Write fileFullName
Response.Write \"</a></TD><TD align=right>\"
Response.Write objFileItem.Size
Response.Write \"</TD><TD align=right>\"
Response.Write objFileItem.DateLastModified
Response.Write \"</TD></TR>\"
end if
Next

function testString( ByVal fName )
doNotShow = false
doShow = true

for i = 0 to UBOUND( notShowArr )
if( InStr( fName, notShowArr(i) ) > 0 ) then
response.write \" forbudt \"
doNotShow = true
end if
next

if( NOT doNotShow ) then
for i = 0 to UBOUND( doShowArr )
if( InStr( fName, doShowArr(i) ) > 0 ) then
doShow = true
end if
next
end if

testString = ( NOT doNotShow AND doShow )
end function

%>



</tr></tr>
</TABLE>

</BODY></HTML>

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS