- Använd [kod]-taggar
- Markera rad 35
- Visa felmeddelandet.
Frågan#1
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ör att gå till förstasidan" border="0"></a>
<BR>
<BR>
</TD>
</TR>
</TABLE>
<center>
<b><%=showpath & FileName%></b>
</center>
<% Call Footer%>
</BODY>
</HTML>