Solved

Expected end of statement-- ASP

Posted on 2008-06-20
5
806 Views
Last Modified: 2010-04-21
Hi,

I am making a program in ASP

Which will browse into the directory and filter image files. We should be able to delete those images

I got some code from below URL

http://www.asp101.com/articles/john/imageviewer/default.asp

I used the code, but I get the error:


Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/ASPImageProject/browsedir1.asp, line 60, column 28
objFile.Type = "JPEG Image" Then
---------------------------^


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

Page:

The code in the above URL is below. I get the same type of code in many other sites but all give the same errors

Please guide
<%@ Language=VBScript %>

<% Option Explicit %>

<%

Const ImageFilePath = "images"

Const DeleteButtonLabel = "Delete Selected Images"
 

Dim objFSO

Dim objFolder

Dim objFile
 

Dim strFileName

Dim strFileExtension
 

Dim blnShowImages
 

If Request.QueryString("ShowImages") = "" Then

    blnShowImages = False

Else

    blnShowImages = CBool(Request.QueryString("ShowImages"))

End If
 

If Request.Form("btnDelete") = DeleteButtonLabel Then

    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 

    For Each strFileName In Request.Form("delete")

        objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _

            strFileName))

    Next
 

    Set objFSO = Nothing

End If

%>

<html>

<head>

  <title>ASP 101 Image Browser & Killer!</title>

</head>

<body>
 

<form action="<%= Request.ServerVariables("URL") %>" method="post">
 

<table border="1">

<tr>

    <th>Image Name</th>

    <th>Image <a href="<%= Request.ServerVariables("URL") %>?

        ShowImages=<%= Not blnShowImages %>">(Toggle Display)</a></th>

    <th>Delete This Image</th>

</tr>

<%

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
 

For Each objFile In objFolder.Files

	strFileExtension = LCase(Mid(objFile.Name, _

		InStrRev(objFile.Name, ".", -1, 1) + 1))
 

	If strFileExtension = "gif" Or strFileExtension = "jpg" Or _

		strFileExtension = "jpeg" Then

	' Original image file identification option:

	'If objFile.Type = "GIF Image" Or _

		objFile.Type = "JPEG Image" Then

        %>

        <tr>

        <td>

            <a href="<%= ImageFilePath & "/" & objFile.Name %>">

            <%= objFile.Name %></a>

        </td>

        <%

        If blnShowImages Then

            %>

            <td>

                <img src="<%= ImageFilePath & "/" & objFile.Name %>" />

            </td>

            <%

        Else

            %>

            <td>

                <a href="<%= ImageFilePath & "/" & objFile.Name %>">

                View Image</a>

            </td>

            <%

        End If

        %>

        <td align="center">

            <input type="checkbox" name="delete"

            value="<%= objFile.Name %>" />

        </td>

        <%

    End If

Next
 

Set objFolder = Nothing

Set objFSO = Nothing

%>

<tr>

    <td colspan="3" align="right">

        <input type="submit" name="btnDelete"

        value="<%= DeleteButtonLabel %>">

    </td>

</tr>

</table>
 

</form>
 

</body>

</html>

Open in new window

0
Comment
Question by:tia_kamakshi
5 Comments
 
LVL 29

Expert Comment

by:rdivilbiss
Comment Utility
Could you try again without breaking the IF statement into two lines....e.g.

If objFile.Type = "GIF Image" Or  objFile.Type = "JPEG Image" Then
0
 
LVL 29

Expert Comment

by:rdivilbiss
Comment Utility
http://www.rodsdot.com/spider_images.asp

using

if  (file.type="GIF Image") or (file.type="JPEG Image") then
0
 
LVL 82

Accepted Solution

by:
hielo earned 300 total points
Comment Utility
The problem is that these lines:
      ' Original image file identification option:
      'If objFile.Type = "GIF Image" Or _
            objFile.Type = "JPEG Image" Then

should be only two:
      ' Original image file identification option:
      'If objFile.Type = "GIF Image" Or objFile.Type = "JPEG Image" Then

The last line is a continuation of the one before it, that's why the one before it ends in "_", meaning "this statement continues on the next line

If you really want to keep it in three lines, you need to comment the last line as well by prexing it with an apostrophe. Otherwise the system will try to execute that line by itself (like it is doing now) and will give you the error because Then is NOT tied to an If clause since the If is commented. Again, if you want it in three lines, this is what you need:
      ' Original image file identification option:
      'If objFile.Type = "GIF Image" Or _
      '      objFile.Type = "JPEG Image" Then
0
 
LVL 15

Assisted Solution

by:dosth
dosth earned 200 total points
Comment Utility
just remove this lines

' Original image file identification option:
        'If objFile.Type = "GIF Image" Or _
                objFile.Type = "JPEG Image" Then
0
 

Author Closing Comment

by:tia_kamakshi
Comment Utility
Many Thanks
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Suggested Solutions

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now