X 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 %>