Skriva ut bilder istället för länkar

voigtann1 skrev:

Ja

Vad menar du med va?... är inte direkt lätt att förklara för dig ;)

"min" kod med alla rader... ta den och erästt din kod så skall det fungera helt enkelt.

Hmm får bara ? :OO

An error occurred on the server when processing the URL. Please contact the system administrator

Får du någon fel på någon specifik rad? Jag har provat köra min kod på två server maskiner och får inget sådant fel.

kommentera ut:

'Set Folder = Nothing
'Set demofolder = Nothing
'Set folcoll = Nothing

Om du nu inte har någon annan kod som du inte ha postat här.

voigtann1 skrev:

Får du någon fel på någon specifik rad? Jag har provat köra min kod på två server maskiner och får inget sådant fel.

kommentera ut:

'Set Folder = Nothing
'Set demofolder = Nothing
'Set folcoll = Nothing

Om du nu inte har någon annan kod som du inte ha postat här.

Slänge upp den på en annan server, då fick jag följade fel (samma sak om jag kommenterar ut det du skrev)

Error Type:
Sun ONE ASP VBScript compilation (0x800A03EE)
Syntax error, unexpected "identifier", expecting ")"
galleri.asp, line 10, column 80

Hmm är det så att jag måste skriva in vart skriptet ska hämta bilderna? det som vi utgick ifrån var så att den sökte bland mapparna i roten där själva galleri.asp filen låg i. ää jag vet inte =/

vilken rad är rad 10? det ser ut som det saknas ett ) i koden.
wF verkar inte gillar variabel namnet:
(Server.Mappath(S CRIPT_NAME)))

Det skall vara SCRIPT_NAME

voigtann1 skrev:

vilken rad är rad 10? det ser ut som det saknas ett ) i koden.
wF verkar inte gillar variabel namnet:
(Server.Mappath(S CRIPT_NAME)))

Det skall vara SCRIPT_NAME

Hehe ja nu kom dropdownen fram iaf, men när jag klickar på en mapp får jag

Sun ONE ASP VBScript runtime (0x800A01F4)
'CaseElse' is undefined
galleri.asp, line 59

CaseElse ska vara Case Else

voigtann1 skrev:

CaseElse ska vara Case Else

Nu funkar det, tack så mycket :birp

Är det jätte svårt att att göra så mapparna skrivs ut på en rad (klickbara givetvis) istället för dropdownen? :OO

nej
Ändra

Response.Write "<select onChange=""url=this.options[this.selectedIndex].value; if(url){ location.href=url; }"">" & _
			   "<option value="""">Välj mapp</option>"

Dim filesys, demofolder, subfol, folcoll, folist, mapp, SCRIPT_NAME

SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
mapp = Request.querystring("mapp")

Set Folder = CreateObject("Scripting.FileSystemObject")
Set demofolder = Folder.GetFolder(Folder.GetParentFolderName(Server.Mappath(S  CRIPT_NAME)))
Set folcoll = demofolder.SubFolders

For Each subfol in folcoll
	folist = folist & "<option value=""" & SCRIPT_NAME & "?mapp=" & subfol.Name & """>" & subfol.Name & "</option>"
Next

Response.Write folist & "</select>" & vbCrLf & vbCrLf

till

Dim filesys, demofolder, subfol, folcoll, folist, mapp, SCRIPT_NAME

SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
mapp = Request.querystring("mapp")

Set Folder = CreateObject("Scripting.FileSystemObject")
Set demofolder = Folder.GetFolder(Folder.GetParentFolderName(Server.Mappath(SCRIPT_NAME)))
Set folcoll = demofolder.SubFolders

For Each subfol in folcoll
	'Layout för alla mappar
	folist = folist & "<a href=""" & SCRIPT_NAME & "?mapp=" & subfol.Name & """>" & subfol.Name & "</a><br>"
Next

Response.Write follist

(glöm inte att ändra om till 'SCRIPT_NAME' "buggen")

voigtann1 skrev:

(glöm inte att ändra om till 'SCRIPT_NAME' "buggen")

Tänkte faktisk på det.. men jag fick nu

Sun ONE ASP VBScript compilation (0x800A0411)
Name redefined: 'filesys'
galleri.asp, line 6, column 5

För att du ha dim:at filesys två gånger i ditt dokument.

voigtann1 skrev:

För att du ha dim:at filesys två gånger i ditt dokument.

såg det nu..

Men nu blir det bara en tom sida..

<%
Dim filesys, demofolder, subfol, folcoll, folist, mapp, SCRIPT_NAME

SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
mapp = Request.querystring("mapp")

Set Folder = CreateObject("Scripting.FileSystemObject")
Set demofolder = Folder.GetFolder(Folder.GetParentFolderName(Server.Mappath(SCRIPT_NAME)))
Set folcoll = demofolder.SubFolders

For Each subfol in folcoll
	'Layout för alla mappar
	folist = folist & "<a href=""" & SCRIPT_NAME & "?mapp=" & subfol.Name & """>" & subfol.Name & "</a><br>"
Next

Response.Write follist
Set Folder = Nothing
Set demofolder = Nothing
Set folcoll = Nothing

Response.Write RenderImagesList(mapp, 5) ' ### Draw all the Images in a nice table list.

' Function that Renders out the Images in a specific folder.
' ## sFolder - String: Folder Name.
' ## lImagesPerRow - Long: How many Images per row should be rendered.
Function RenderImagesList(sFolder,lImagesPerRow)
	Dim retrunString, FSO, Folder, Files, count
	If sFolder <> "" Then
		Set FSO = Server.CreateObject("Scripting.FileSystemObject")
		Set Folder = FSO.GetFolder(Server.Mappath(sFolder))
		set Files = Folder.Files
		count = 1
		If Files.Count > 0 Then
			For each Item In Files
				If isValidFile(Item.Name) Then
					retrunString = retrunString & "<td><a href=""" & sFolder & "/" & Item.Name & """ onClick=""imgPopup4(this.href); return false;"" target=""_blank""><img src=""" & mapp & "/" & Item.Name & """ alt="""" width=""135"" height=""100"" border=""0"" /></a></td>" & vbcrlf
					If count MOD lImagesPerRow = 0 Then
						retrunString = retrunString & "</tr>"&vbCrLf&"<tr>" & vbCrLf
					End if
					count = count + 1
				End if
			Next
			' If No matches from isValidFile function we wont have any length on the string below. We wont render out the start code for a HTML table.
			If Len(retrunString) > 0 Then retrunString = "<p><table><tr>" & retrunString & "</tr></table></p>"
		End If
			Set Folder = Nothing
			Set demofolder = Nothing
			Set folcoll = Nothing
	End If
	RenderImagesList = "<br/><b>" & sFolder & "</b>" & retrunString
End Function

' Function That checks if the file is a vaild file to render out.
Function isValidFile(filename)
	Select Case lcase(right(filename,4))
		Case ".gif",".jpg",".png","jpeg"
			isValidFile = True
		Case Else
			isValidFile = False
	End Select
End Function
%>

Response.Write follist

ska vara

Response.Write folist

voigtann1 skrev:

Response.Write follist

ska vara

Response.Write folist

(y) yes
Återigen, TACK!