Fotoalbum

Du kan ju borja med att gora en paging som listar allt, sen nar du klickar pa en bild sa kan du ju ha lank i querystring som hamtar nasta bild i db'n.

..annars kan du lösa det med FSO.
Gjorde en liknande funktion för nått år sedan.

se här: http://www.webforum.nu/showthread.php?s=&threadid=13626&highlight=bilder

Tittade på ditt palle och det verkar va precis ett sånt jag vill ha, dock får jag felmeddelande:

Körningsfel i Microsoft VBScript fel '800a0035'

Det går inte att hitta filen.

/test/ffny/bilder/test.asp, line 20

Fast jag har 1.gif och 2.gif i /test/ffny/ och angett att det ska vara 2 bilder.

Nåt förslag på vad jag kan ha missat?

Kolla så du anget rätt strPhysicalPath och strThePath

Jag har sidan på :
http://www.forfesten.com/test/ffny/bilder/test.asp .
Sedan har jag

   strPhysicalPath = Server.MapPath("test\ffny\1.gif")
   strThePath = "test/ffny/bilder/"

Är inte det korrekt då? eller ska det va i form av c:\xxx\xxxx\xx osv?

Tack igen! =)

rättelse: givetvis kör jag

strPhysicalPath = Server.MapPath("test\ffny\bilder\1.gif")
 trThePath = "test/ffny/bilder/"

Ligger sidan med funktionen och bilderna i samma mapp räcker det med att ange bildens namn i strPhysicalPath.

Får fortf samma fel, kör nu med:

   strPhysicalPath = "1.gif"
   strThePath = "test/ffny/bilder/"

Är följande rad som är rad nr 20 som den klagar på :

Set objFile = objFSO.GetFile(strPhysicalPath)

Har du en bild i mappen som heter 1.gif?

Japp

*phu* :)

Kolla om den här fungerar bättre:

[red]<%
   
	Dim strNext
	If Len(trim(Request.Querystring("next"))) > 0 Then strNext = trim(Request.Querystring("next")) Else strNext = 1

	Dim strPhysicalPath, strThePath
	strPhysicalPath = Server.MapPath("1.gif")
	strThePath = ""

	Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.GetFile(strPhysicalPath)
	Set objFolder = objFile.ParentFolder
	Set objFolderContents = objFolder.Files
			
	Dim intFiles
	intFiles = objFolder.Files.Count

	Dim i, arrFile(33) '--## Ange hur många bilder det finns i mappen
	For Each objFileItem in objFolderContents
		i = i +1
		arrFile(i) = objFileItem.Name
	Next
	Response.Write "<img src="& strThePath & arrFile(strNext) &">"
	Response.Write "<br><br>"
   
	Dim PrevPic, NextPic
	PrevPic = Cint(strNext)-1
	NextPic = Cint(strNext)+1
   
	If PrevPic > 0 Then
		Response.Write "<a href=default.asp?next="& PrevPic &">« Före</a> | "
	Else
		Response.Write "« Före | "
	End If
   
	If NextPic < Cint(intFiles + 1) Then
		Response.Write "<a href=default.asp?next="& NextPic &">Nästa »</a>"
	Else
		Response.Write "Nästa »"
	End If
  
%>[/red]

Tackar nu funkar det till 99% =)

Får upp bilder och allt sånt, problemet är ju dock att jag inte kan ha aspfilen i samma dir som bilderna, för då försöker den ju visa dom också....

Säg att jag har default.asp i /bilder och sen bilderna i /bilder/bilderna/1.gif osv... .

Hur ska jag ha

	Dim strPhysicalPath, strThePath
	strPhysicalPath = Server.MapPath("DSCF0001.JPG")
	strThePath = ""

då?
testat med strPhysicalPath = Server.MapPath("bilderna/DSCF0001.JPG") men inte fått det att funka...
sista frågan var det =)

Stort tack!

Ligger inte antalet bilder i variabeln int Files? Så att man slipper skriva in antalet.

	Dim intFiles
	intFiles = objFolder.Files.Count

	Dim i, arrFile(33)
	ReDim arrFile(intFiles)

Jo jag kollade fel, trodde den sorterade ut enbart jpg och gif men det gjorde den inte, redigerade föregående inlägg lite när jag kom på det, hoppas nån har en lösning, alla e vi nya ibland =)

Det finns iofs mer utvecklade bildscript om du söker här på forumet, som tex sållar ut endast gif eller vad man nu vill.
Återkommer on jag hittar länk.

Nm killar löste det!

SKITSTORT TACK =)
nu ska man bara fixa designen också =)

solbulle skrev:

Det finns iofs mer utvecklade bildscript om du söker här på forumet, som tex sållar ut endast gif eller vad man nu vill.
Återkommer on jag hittar länk.

Jag gjorde denna funktion för nått år sedan i testsyfte, att den sedan fungerade var bara kul.. ;)

emil skrev:

Nm killar löste det!

SKITSTORT TACK =)
nu ska man bara fixa designen också =)

Gutt mos!
Lycka till! :e