If exist [filnavn]

UPS... Do under nr = ... s'følig *GGG*

Ja det kan man da.

Okay... men jeg kan ikke få den der exist  til at virke... hvordan vender man den ?

Du kan også lave det så det liste alle billeder i en folder hvis det er en billede fil.:


<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Ret så det passer med din folder
strFolder = "C:\InetPub\wwwroot\images"
Set objFolder = objFSO.GetFolder(strFolder)

For Each File in objFolder.Files
  if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"gif,jpg,jpeg,bmp") > 1 then
    Response.Write "<img src=""" & File.Name & """>" & "<br>"
  end if
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>

For at tjekke om en fil findes skal du bruger FileSystemObject.


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Do while nr < 10

if objFSO.FileExists(Server.MapPath("xxxx"& nr&".xxx")) then
  Response.Write "<img src=""" & File.Name & """>" & "<br>"
end if
nr = nr + 1

Loop

Er ikke sikker på jeg forstår. Jeg har x antal billeder...

pic001.jpg, pic002.jpg osv. som jeg vil sætte op i liste form... 4 på hver række... som så linker videre til et popup med det billede. Popup er ikke problemet... probæemet er at få billederne vist på samme side.

Ok, så bliver det noget med:


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

picPrRow = 4
noPic = 0
Response.write "<table>"
Do while nr < 10

  tal = Right("00" & nr, 3)
  if objFSO.FileExists(Server.MapPath("pic"& tal &".jpg")) then
   
    if noPic = 0 then Response.write "<tr>"

    Response.write "<td>"
    Response.Write "<img src=""" & "pic"& tal &".jpg" & """>"
    Response.write "</td>"

    noPic = noPic + 1 
    if noPic = picPrRow then
      Response.write "</tr>"
      noPic = 0
    end if
  end if
  nr = nr + 1
Loop
if noPic > 0 then Response.write "</tr>"
Response.write "</table>"

Okay, jeg tester lige når jeg kommer hjem... men det ser godt ud ... mange tak.

Er der ikke noget med at der kun kan være 10 ?

Do while nr < 10

Der er op til 99 i hver...

Men ellers tror jeg at jeg har fået det til at virke... skal jeg bare lave det om ?

Og i øvrigt skal de linke til et popup vindue... kan jeg heller ikke få til at virke...

<a href="#" target="Main" onclick="popup('view.asp?filnavn','mitvindue','360','480');">


hvor filnavn er billednavnet... ex. PIC053 så jeg kan lave ét popupvindue til allesammen... forstår ???

Ja bare lav:

Do while nr < 10

om til:

Do while nr < 99

Så prøv i stedet for denne:

Response.Write "<img src=""" & "pic"& tal &".jpg" & """>"

Lave det sådan her så det bliver i pop up-:

Response.Write "<a href=""#"" target=""Main"" onclick=""popup('view.asp?
filnavn=pic" & tal & ".jpg','mitvindue','360','480');""><img src=""" & "pic"& tal &".jpg" & """></a>"

Jeg får fejl på linket...
Previews kommer fint frem...

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/grafik/galleri/15-05-03/index.asp, line 17

Response.Write "<a href=""#" target=""Main"" onclick=""popup('view.asp?

Det skal skrive som en lang linje:

Response.Write "<a href=""#" target=""Main"" onclick=""popup('view.asp?filnavn=pic" & tal & ".jpg','mitvindue','360','480');""><img src=""" & "pic"& tal &".jpg" & """></a>"

Det er det samme...

Ved nærmere eftersyn mangler der også et " efter #

Response.Write "<a href=""#"" target=""Main"" onclick=""popup('view.asp?filnavn=pic" & tal & ".jpg','mitvindue','360','480');""><img src=""" & "pic"& tal &".jpg" & """></a>"

Det skete der ikke noget ved.

? prøver lige igen:
Response.Write "<a href=""#"" target=""Main"" onclick=""popup('view.asp?filnavn=pic" & tal & ".jpg','mitvindue','360','480');""><img src=""" & "pic"& tal &".jpg" & """></a>"

hmmm det forsvinder når man skriver det her..

Du skal selv lige sætte et " ind efter  #

Man eksperten æder åbenbart det ene af de to når det står efter en #

Så der står to " efter hinanden "" efter  #

Fedt nok... de er kommet frem nu, men der står nederst at der opstod en fejl på siden... og der sker ikke rigtig noget når jeg klikker på dem ...

Prøv med denne hvor popup er lavet med window.open


Response.Write "<a href=""java script:;"" onClick=""window.open('view.asp?filnavn=pic" & tal & ".jpg','mitvindue','width=360,height=480');""><img src=""" & "pic"& tal &".jpg" & """></a>"

Ja, nu tror jeg sQ den er der... skal bare lige have rettet view.asp til... så vender jeg lige tilbage ;o)

Christ... hvordan gør jeg nu det... troede bare jeg kunne lave en
request.querystring("filnavn") men tilsyneladende ikke... altså i view.asp...

Det skulle du også meget gerne kunne gøre i view.asp


filen = Request.QueryString("filnavn")

Det sker der ikke rigtigt noget ved... har jeg formateret det forkert ?

<IMG SRC="<% Request.QueryString("filnavn") %>.jpg"

Prøv at bruge view source på popup vinduet jeg tror navnet er rigtgit med, dog skal du lige havde et = efter den første <% når du ikke skriver Reqponse.write:

Det filnavn du får overfør har også .jpg på:
filnavn=pic" & tal & ".jpg'

Så jeg tror bare filnavet bliver picxxxx.jpg.jpg

Så prøv at lave det om til:

<IMG SRC="<%= Request.QueryString("filnavn") %>"

Hvis jeg viser kilde på view.asp står der...

<p>Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a000d'</font>
<p>
<font face="Arial" size=2>Type mismatch: 'filnavn'</font>
<p>
<font face="Arial" size=2>/grafik/galleri/15-05-03/view.asp</font><font face="Arial" size=2>, line 7</font>

men intet billede...

Prøv at lave linje om til dette:

<IMG SRC="<%= Request.QueryString("filnavn") %>"

Det er det der stod i forvejen... det du gav mig før.

Hvordan ser hele koden ud for popupen?

Type mismatch: 'filnavn'  Eller alle de steder hvor filnavn er.

<HTML>

<HEAD>
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=iso-8859-1">
    <TITLE> <font face="Arial" size=2>
<p>Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a000d'</font>
<p>
<font face="Arial" size=2>Type mismatch: 'filnavn'</font>
<p>
<font face="Arial" size=2>/grafik/galleri/15-05-03/view.asp</font><font face="Arial" size=2>, line 7</font>

det er vil ikke koden for filen men ouput i browseren.

variablen filnavn briver brugt et sted med indeholder noget forkert.

Det jeg skrev før var output... jeg har kigget, men filnavn bliver kun brugt et sted.

Så prøv at vise den linje hvor den bliver brugt. Ellers kan jeg ikke hjælpe med den fejl.

Den er her i galleri siden ...

Response.Write "<a href=""java script:;"" onClick=""window.open('view.asp?filnavn=FYBI" & tal &

og så s'følig i view hvor jeg henviser...

Kommer fejlen på galeri siden eller på popup siden?

Den kommer på popup-siden... billedet kommer ikke frem på popup'en

Ligger ASP filen i samme folder som billederne ?

Jepz... jeg har lagt en kopi af den i hver folder... galleriet er delt op i datoer... men det burde jo ikke have betydning.

Hvis billede filerne og asp filen ikke ligger i samme folder så har det betydening da img src så skal havde stien med til billederne

/view.asp
/imgaes/pic00.jpg
/images/pic01.jpg

Så kan man ikke skrive

<img src="pic01.jpg">  i filen view.asp men det skal være
<img src="/images/pic01.jpg">

Det gør de... både billeder, index.asp og view.asp

Så prøv at vise koden for view.asp så må der være en fejl i den for så skulle den vise et billede.

Det her er view.asp

<%@LANGUAGE="VBScript"%>
<HTML>

<HEAD>
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=iso-8859-1">
    <META NAME="GENERATOR" Content="Visual Page 2.0 for Windows - Trial Version">
    <TITLE><% filnavn %></TITLE>
</HEAD>

<BODY BGCOLOR="#65829E" marginheight="0" marginwidth="0" leftmargin="0" topmargin="0">
<IMG SRC="<%= Request.QueryString("filnavn") %>">

</BODY>

</HTML>

Kan ikke umiddelbart se hvad det skulle være.. der er jo ikke så meget som kan gå galt ;o)

Her i denne linje

<TITLE><% filnavn %></TITLE>

Der mangler et = efter <% hvis du vil udskrive variablen filnavn.
men den er også tom så det skal nok også være Request.QueryString:

<TITLE><%= Request.QueryString("filnavn") %></TITLE>

Du har hermed officielt reddet mit liv... mange tak ;o)