random script til jpg og gif

<%
dim n
dim TotalNumberOfPics

TotalNumberOfPics = 11       
TotalNumberOfPics = TotalNumberOfPics -1

dim imgsrc

Randomize

n = int(rnd * TotalNumberOfPics) + 1 

n=cstr(n)
imgsrc="images/me" & n & ".jpg"
%>

læg denne hvor du vil have dinne pic.:
<img src=<% response.write imgsrc %> alt="" border="0" width="80" height="80">

Når jeg tager det som du skriver og ligger ind i test.asp. test.asp ligger så i sammen mappe som de jpg og gif filer som skal bruges kommer der ikke noget frem

Nej det tager kun *.jpg'er. Du skal lægge alle dine billeder i en mappe som du navn giver "images". dine billeder kan hedde fx me som jeg har gjort her: imgsrc="images/me" & n & ".jpg"

Nu skal du nummere dine billeder fra 1 til 11 det bestemmer du her: TotalNumberOfPics = 11  du kan sætte den til 1000 eller hvad du vil.

Det virker også, men jeg har ikke mulighed for at lave alle mine fil navne om, den skal kunne tage dem, men det navn som de har..

Man kan gøre det på en anden måde for at have alle slags gif eller jpg eller andet frem:

<%
    dim strBasePath
    dim strImage()
    dim x
    dim objFolder
    dim objFSO
    dim fso
    dim n
    dim imgsrc
    dim strFileName
    dim strHyperlinkPath
   
    x=0
    strBasePath="/images/me/"  'Bestemmes hvor dine billeder eller images

   
    'create the FSO
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Set objFolder = fso.GetFolder(Server.MapPath("/images/me"))  'Her skal være det samme Path
       

       
    'loop gennem mappen
          For Each objFile in objFolder.Files

            strFileName=objFile.Name                     
            strHyperlinkPath = strBasePath & strFileName
               
            RemoveSpaces strHyperlinkPath               
            ReDim Preserve strImage(x)
            strImage(x) = strHyperlinkPath
            x=x+1
                   
        Next

Randomize

x = UBound(strImage) + 1
n = int(rnd * x) 

n=cstr(n)
imgsrc = strImage(n)

set fso = Nothing
set objFolder = Nothing
set objFile = Nothing

Function RemoveSpaces(strString)
       
        strHyperlinkPath = Replace(strHyperlinkPath," ","%20")
       
End Function

læg den et sted på din side hvor du vil vise billedet:
<img src=<% response.write imgsrc %> alt="" border="0" width="80" height="80">

så kommer denne fejl

Microsoft VBScript runtime error '800a004c'

Path not found

/test/test1.asp, line 27

Hvor har du lagt dine billeder?
jeg Har skrevet images(hvor er en mappe)/me (hvor er en anden folder og alle billeder ligger i den.

og det er her som du skal rette, skift /images/me/ til din egen folder navn:
  strBasePath="/images/me/"  'Bestemmes hvor dine billeder eller images

   
    'create the FSO
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Set objFolder = fso.GetFolder(Server.MapPath("/images/me"))  'Her skal være det samme Path

jeg har også oprette /images/me kommer med den samme fejl

har du brugt den første løsning eller den 2.?

nummer 2

prøv med ../images/me/
strBasePath="../images/me/"
og:
Set objFolder = fso.GetFolder(Server.MapPath("../images/me"))

Så kommer denne fejl

Microsoft VBScript runtime error '800a004c'

Path not found

/test/test1.asp, line 29

line 29 -->

    Set objFolder = fso.GetFolder(Server.MapPath("../images/me")) 'Her skal være det samme Path

du skal bare finde den rigtige Path:
Set objFolder = fso.GetFolder(Server.MapPath("../images/me/"))
eller:
Set objFolder = fso.GetFolder(Server.MapPath("/images/me/"))

nu har jeg ikke det problem mere, men skal mine filer så have et bestemt navn nu ?

Min fejl nu virker det :-) Takker meget for din hjælp !