automatiserer script

hvis billederne ligger i en mappe på serveren kan du bruge dette;

http://www.html.dk/scripts/asp/00011/

lækkert :) det er ikke sådan så du ved hvordan det skal sættes sammen for jeg kan ikke få det til at virke når jeg prøver :/

hvis du kommer med lidt kode for hvor langt du er nået og evt nogle fejlmeddelelser du støder på kan vi da prøve at kigge på det.

det vil jeg da så gøre. ind til videre har jeg fået stykket følgende kode sammen:

<%
ImageDir = "/images/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 3 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write "<p><strong>" & intImgCount & " Billeder - "
Response.Write "viser side " & intPage & " af " & intPageCount & ":</strong></p>"

For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
Response.Write "<p><a href='" & ImageDir & Image.Name & "' class="highslide" onclick="return hs.expand(this)"> /></a></p>"       
End If
Next

strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & ">" & i & "</a> "   
Next
Response.Write "</p>"
Set objFS = Nothing
%>

jeg har ændret fra det gamle:
<a href="images/full-image.jpg" class="highslide" onclick="return hs.expand(this)">
    <img src="images/thumbnail.jpg" alt="Highslide JS"
        title="Click to enlarge" height="120" width="107" /></a>

til:
<a href='" & ImageDir & Image.Name & "' class="highslide" onclick="return hs.expand(this)"> /></a>

men desværre når jeg kører hele koden får jeg fejlen:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet
/index.asp, line 22, column 66
Response.Write "<p><a href='" & ImageDir & Image.Name & "' class="highslide" onclick="return hs.expand(this) /></a></p>"

du skal sørge for at escape alle "-tegn når det indsættes i en response.write - dvs;

Response.Write "<p><a href=""" & ImageDir & Image.Name & """ class=""highslide"" onclick=""return hs.expand(this);"" /></a></p>"

hmm den skriver fejlen

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0412)
Det skal være den første sætning på linjen
/highslide/ex.asp, line 140, column 127
Response.Write "<p><a href=""" & ImageDir & Image.Name & " class=""highslide"" onclick=""return hs.expand(this);"" /></a></p>" End If
------------------------------------------------------------------------------------------------------------------------------^

nu virker det men der er ingen billeder :/

hov - manglede også lidt;

Response.Write "<p><a href=""" & ImageDir & Image.Name & """ class=""highslide"" onclick=""return hs.expand(this);"" /></a></p>"

Hvis der ingen billeder er kunne det tyde på at stien til billederne er angivet forkert. Du kan evt prøve at udskrive Server.MapPath(ImageDir) og se om det stemmer overens med den rigtige placering.

lukketid?