upload 2 resized billeder

Hej så er jeg på banen igen med et spørgsmål håber der er nogen der kan hjælpe mig.

Jeg står og skal have lavet en kode der skal kunne uploade to billeder som begge bliver lavet mindre med ASpjpeg sammensat med ASPupload skulle filer gerne uploades til en sql database i samme tabel række.


Den kode jeg har sendt med virker ikke helt som den skal, billederne og teksterne kommer godt nok ind i datbasen, men det er det samme billede som ligger på begge felter af tabel rækken.

Håber dette er forståligt.


Her har i min kode som den ser ud nu.



<%
case "cms_ref"
%>

<table width="337" border="0" cellspacing="0" cellpadding="0"> 
<form enctype="multipart/form-data" method="post" action="index.asp?page=cmsref_upload">
  <tr>
  <td width="67" height="24" align="left"><span class="brodskrift">Overkrift:</span></td>
    <td width="5" height="24"></td>
    <td width="222" height="24" align="left"><input type="text" name="stroverkriftForm"/></td>
    <td width="43" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="24" align="left"><span class="brodskrift">Smalltext:</span></td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="200" align="left">
  <%
    Set oFCKeditor = New FCKeditor
    oFCKeditor.BasePath = "fckeditor/"
    oFCKeditor.Create "FCKeditor"
  %>  </td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="24" align="left"><span class="brodskrift">Longtext:</span></td>
  </tr>
  <tr>
    <td colspan="4" height="10"></td>
  </tr>
  <tr>
    <td colspan="4" height="200" align="left">
  <%
    Set oFCKeditor = New FCKeditor
    oFCKeditor.BasePath = "fckeditor/"
    oFCKeditor.Create "inhold"
  %>  </td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
    <td width="67" align="left"><span class="brodskrift">Billede:</span></td>
    <td width="5"></td>
    <td width="222" align="left"><input type="file" name="myfile" /></td>
    <td width="43"></td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
 
    <td colspan="2" height="24" align="left"><span class="brodskrift">Org.Billede:</span></td>
    <td height="24" width="222"><input type="file" name="myfile1" /></td>
    <td height="24" width="43" align="left"></td>
  </tr>
  <tr>
    <td height="5"></td>
</tr>   
  <tr>
    <td colspan="4" height="24" align="left"><input type="submit" value="Upload" /></td>
  </tr>
  </form>
</table>


<%
case "cmsref_upload"

  width = 111
    height = 107

  'Opret objekt
  Set Upload = Server.CreateObject("Persits.Upload")
 
  'Fortæl at fier ikke må overskrives
  upload.OverwriteFiles = False
 
  Path = Server.MapPath("./upload/original")
  'Fang uploaded filer og nummeret
  Count = Upload.Save(Path)
 
  'Hvis count =0 er der ikke uploaded noget. SKriv fejl
  If Count = 0 then
    response.write "Ingen billede valgt"
  else
    'Fang filen til upload
    Set File = Upload.Files(1)
   
    'Tjek filformat
    if File.Ext <> ".jpg" then
      response.write"Forkert fil format"
      response.End()
    end if
   
    'Er det en gyldig billede fil?
    If File.ImageType <> "UNKNOWN" then
      Set Jpeg = Server.CreateObject("Persits.Jpeg")
     
      'Åben den uploadede fil
      Jpeg.Open(File.Path)

        'Resize, uden at strække eller presse
      if Jpeg.OriginalWidth > int(width) or Jpeg.OriginalHeight > int(height) then
        NewWidth = width
        Jpeg.Width = NewWidth
        Jpeg.Height = Jpeg.OriginalHeight * NewWidth / Jpeg.OriginalWidth
      end if
           
      Jpeg.Quality = 100
     
      'Beskær billedet 0px fra venstre og 0px fra toppen indtil ønsket bredde og højde er nået
      if Jpeg.Height > int(height) then
        Jpeg.Crop 0, 0, width, int(height)
      end if
     
      '0 dårlig kvalitet (hurtigst), 1 God kvalitet (Langsomt)
      Jpeg.Interpolation = 1
     
      'True = vis mere og mere af billedet mens det loades
      'False = Vis først billedet når det er loaded
      Jpeg.Progressive = True
 
      pathT = Server.MapPath("./upload/thumbnail")
     
      'angiv hvor filen skal gemmes
      SavePath = PathT & "\small_" & File.ExtractFileName
     
     
     
      'Find absolut sti til upload mappe
      dbPath = replace(server.MapPath("./upload"),"\","\\")
     
      'Gem filnavnet i en variabel
      filnavn = File.ExtractFileName
     
     
     
      'Find absolut sti til upload mappe
      dbPath1 = replace(server.MapPath("./upload"),"\","\\")
     
      'Gem filnavnet i en variabel
      filnavn1 = File.ExtractFileName
     
     


 
     
      overskrifrVar = Upload.form("stroverkriftForm")
      infoVar = Upload.form("FCKeditor")
      longtextVar = Upload.form("inhold")
     
     
     
      'insæt i db
     
      sql = "INSERT INTO refrencer(path,filnavn,r_over,r_text,r_longtext,path1,filnavn1) VALUES ("&"'"&dbpath&"','"&filnavn&"','"&overskrifrVar&"','"&infoVar&"','"&longtextVar&"','"&dppath1&"','"&filnavn1&"')"
'response.Write sql
'response.End()

Conn.Execute(sql)
     
      'Fang billede navnet
      img = "upload/thumbnail/small_" & File.ExtractFileName
     
      'Gem filen
      Jpeg.Save SavePath
     
      'Udskriv bekræftigelse
      Response.write "Success!"
    else
      'Udskriv fejlbesked
      response.write "Filen er ikke en gyldig billede fil"
      response.End()
    end if
  end if
 

%>

<%if img <> "" then%>

<br />
<img src="<%=img%>" />
<%end if %>