---
title: "behöver hjälp med ett script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92600-behöver-hjälp-med-ett-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nedde"
published: "2003-12-14T02:24:17.000Z"
updated: "2003-12-14T06:49:44.000Z"
replies: 1
views: 186
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/92600-behöver-hjälp-med-ett-script"
---

# behöver hjälp med ett script

## #1 — nedde, 2003-12-14T02:24Z

Hej!

Har testat men lyckas aldrig. Scriptet funkar när det ligger i 
en vanlig mapp. Men när jag kör det genom en virtuell mapp
så vill det helt enkelt inte funka. Det är på rad 35 som det inte
stämmer, och jag kan inte klura ut det. Någon som kan hjälpa mig?

Tacksam för svar.

\<%@ Language=VBScript %\>
\<!-- #include file="incConfig.asp" --\>
\<!-- #include file="incMain.asp" --\>
\<HTML\>
\<HEAD\>
\<link rel="stylesheet" type="text/css" href="Main.css"\>
\<title\>\<%=SiteTitle%\>\</title\>
\</HEAD\>
\<BODY\> 
\<%
' orginal path of where we came from
OrigPath = Request("OrigPath")
LastFolder = Request("LastFolder")

' get image dimensions
set Img = Server.CreateObject("SImageUtil.Image")
img.OpenImageFile(Request("File"))
	height = img.Height
	width =  img.Width 
img.Close
set img =nothing

' get basic photo info
Set filesystem = CreateObject("Scripting.FileSystemObject")
set file = filesystem.GetFile(Server.MapPath(request("File")))
	PicDate = file.datelastmodified
set file = nothing

' determine file name and file path
FilePath = left(request("File"),instrrev(request("File"),"/")) 
FileName = right(request("File"),len(request("File"))-instrrev(request("File"),"/")) 

' open the indexed file and determine the next and previous file name
set file = filesystem.OpenTextFile(Server.MapPath("/") & FilePath & "indexed",1 )
do while not file.AtEndOfLine
	LastFile = CurrentFile	
	CurrentFile = file.readline 
	if CurrentFile = FileName then
		PreviousFile = LastFile
		if not file.AtEndOfLine then
			NextFile = file.readline
		end if
	end if
Loop
set file = nothing
set filesystem = nothing
%\>
\<table width="90%" align="center"\>
	\<tr\>
		\<td nowrap width=50%\>
			\[ \<a href="index.asp?path=\<%=OrigPath%\>&LastFolder=\<%=LastFolder%\>"\>start\</A\> \]
		\</td\>
		\<td align="right" nowrap width=50%\>
			\<% if len(PreviousFile) \> 0 then %\>
			\[ \<a href="ShowPic.asp?file=\<%=FilePath%\>\<%=PreviousFile%\>&OrigPath=\<%=OrigPath%\>&LastFolder=\<%=LastFolder%\>"\>föregående\</a\> \]
			\<% ELSE%\>
			\[ föregående \]
			\<% END IF %\>
			
			\<% if len(NextFile) \> 0 then %\>
				\[ \<a href="ShowPic.asp?file=\<%=FilePath%\>\<%=NextFile%\>&OrigPath=\<%=OrigPath%\>&LastFolder=\<%=LastFolder%\>"\>nästa\</a\> \]
			    \<% ELSE %\>
				\[ nästa \]
			    \<% END IF%\>
		\</td\>
	\</tr\>
\</table\>
\<TABLE height="90%" width="100%"\>
	\<TR\>
		\<TD valign="middle" align="center"\>
			\<a href="index.asp?path=\<%=OrigPath%\>&LastFolder=\<%=LastFolder%\>"\>\<img src="\<%=request("file")%\>" alt="Klicka f&ouml;r att g&aring; till f&ouml;rstasidan" border="0"\>\</a\>
			\<BR\>
			\<BR\>
	  \</TD\>
	\</TR\>
\</TABLE\>
\<center\>
\<b\>\<%=showpath & FileName%\>\</b\>
\</center\>
\<% Call Footer%\>
\</BODY\>
\</HTML\>

Permalänk: https://www.webforum.nu/p/92600

## #2 — @nders, 2003-12-14T06:49Z

1) Använd \[kod\]-taggar
2) Markera rad 35
3) Visa felmeddelandet.

Permalänk: https://www.webforum.nu/p/1228450

---

Tråden på webben: https://www.webforum.nu/amne/asp/92600-behöver-hjälp-med-ett-script