need help with some asp code...

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi I need some help from a good ASP and JavaScript, person.

This is what I have and � what I would like it to be - 

1.    I have a folder with images and files.
2.    I have an asp file with some text, textbox and editing possibilities for these.

I need a Folder file viewer/listing code � that can display all the file names on the same asp page.

when you click on one of the images/or files, the image/file name will be transferred to the text box/field, ready to save to database with the new image/file name�

Is this to complicated� I have this piece of code: 

[Code start]

[Code end]

Sending the file name to the form field

and I have this piece of code:

[Code start]
<script language="JavaScript">
  function confirm_delete(intSectionID)
   {
   if (confirm("Are you sure that you would like to delete this file?"))
    {
    document.location = "images.asp?Action=Delete&File=" + intSectionID ;
    }
   }
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
ImagesPath = "images/"
If Request.QueryString("Action") = "Delete" Then
 Dim strImage

 strImage = ImagesPath & Request.QueryString("File")
 response.write(server.mappath(strImage))
 Set objFSO = CreateObject("Scripting.FileSystemObject") 
 objFSO.DeleteFile(server.mappath(strImage))
 objFSO.Close
 Set objFSO = Nothing
End If 
%>
<table border="0" cellpadding="0" cellspacing="0" width="400" align="center">
  <tr>
   <td align="left" width="10"><img src="../images/left.gif" width="8" height="20" border="0" alt=""></td>
   <td width="100%"  align="center">Image Management</td>
   <td align="right" width="10"><img src="../images/right.gif" width="8" height="20" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="3" valign="top">
    <table border="0" width="100%" bgcolor="#000000" cellpadding="0" cellspacing="1" valign="top">
     <tr>
      <td bgcolor="#fffff0" valign="top">
       <table cellpadding="0" cellspacing="0" border="0" width="100%">
        <tr>
         <td>
          <table width="100%" border="0" align="left" cellpadding="3" cellspacing="0">
               <tr align="left" valign="top"> 
                <td width="155"><font class="Bold">File Name</font></td>
                <td width="55" align="center"><font class="Bold">Size</font></td>
                <td align="center"><font class="Bold">Date</font></td>
             <td align="center"><font class="Bold">Actions</font></td>
               </tr><%
               Dim objFSO 'File System Object
               Dim objFile 'File Object
               Dim objFolder 'Folder Object
               Set objFSO = CreateObject("Scripting.FileSystemObject") 'Create File System Object To Get list of files
               Set objFolder = objFSO.GetFolder(server.mappath(ImagesPath)) 'Set the object folder To the mapped path
               'For Each file In the folder
               For Each objFile In objFolder.Files 
             if objFile.Name <>  "blank.gif" then %>
                <tr align="left" valign="top"> 
                 <td>
              <b><%=objFile.Name%></b><br>
              <% response.write "<img src='" & ImagesPath & objfile.name & "