Detter er FORMEN:
<table border="0" cellpadding="5" cellspacing="0" class="img">
<form method="post" name="form" action="DB_OpretBedrift.asp" enctype="multipart/form-data">
<tr bgcolor="6C8492">
<td height="1" align="center" colspan="2" class="tekst" bgcolor="#A29570">
<b>TILFØJ BEDRIFT<br>
</b><font size="1">NB! Udfyld <b>alle</b> felter.</font><b>
</b></td>
</tr>
<tr bgcolor="#CEC5A4">
<td height="-1" align="left" valign="middle" class="tekst">Overskrift:</td>
<td height="-1" align="left" valign="middle" class="tekst">
<input type=text name="overskrift" size="36">
</td>
</tr>
<tr bgcolor="#CEC5A4">
<td height="1" align="left" valign="top" class="tekst">Tekst:</td>
<td height="1" align="left" valign="top" class="tekst">
<textarea cols="38" rows="8" name="tekst1"></textarea>
</td>
</tr>
<tr bgcolor="#CEC5A4">
<td height="-1" align="left" valign="top" class="tekst">Vælg
billede_1:</td>
<td height="-1" align="left" valign="top" class="tekst">
<input type=file name="billede1">
<br>
<font size="1"><i>ikke for store billeder</i></font></td>
</tr>
<tr bgcolor="#CEC5A4">
<td height="-1" align="left" valign="middle" class="tekst">Billede_1
beskrivelse </td>
<td height="-1" align="left" valign="middle" class="tekst">
<textarea cols="38" rows="8" name="beskrivelse1"></textarea>
</td>
</tr>
<tr bgcolor="#CEC5A4">
<td height="-1" align="left" valign="middle" class="tekst">Tekst:</td>
<td height="-1" align="left" valign="middle" class="tekst">
<textarea cols="38" rows="8" name="tekst2"></textarea>
</td>
</tr>
<tr bgcolor="#CEC5A4">
<td height="-1" align="left" valign="middle" class="tekst">Billede_2:</td>
<td height="-1" align="left" valign="middle" class="tekst">
<input type=file name="billede2">
</td>
</tr>
<tr bgcolor="#CEC5A4">
<td height="-1" align="left" valign="middle" class="tekst">Billede_2
beskrivelse </td>
<td height="-1" align="left" valign="middle" class="tekst">
<textarea cols="38" rows="8" name="beskrivelse2"></textarea>
<input ID=""FORM" type="hidden" value=<%=Dato%> name="Dato">
</td>
</tr>
<tr bgcolor="#333333" valign="bottom">
<td align="center" colspan="2" bgcolor="#A29570">
<input type=submit value="Tilføj" name="submit">
</td>
</form>
</table>
Dette er uploaden:
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
On Error Resume Next
Count = Upload.Save("d:\home\teamfriluftsladk\www\upload")
If Err <> 0 or Count = 0 Then
%>
<font size="3" face="Arial" color="#FFFFFF">
<% If Err <> 0 Then Response.Write "En fejl er opstået:" & Err.Description Else Response.Write "<b>Der er ikke blevet uploadet noget.</b>"%>
</font>
<p> <font size="2" face="Arial"><a href="default.htm">Prøv igen</a>.</font>
<%
Else
On Error Goto 0
Set File = Upload.Files(1)
If File.ImageType <> "JPG" or (LCase(Right(File.Path, 3)) <> "jpg" and LCase(Right(File.Path, 4)) <> "jpeg") Then
File.Delete
%>
<font size="3" face="Arial" color="#FFFFFF" class="tekst">Dette er ikke
et JPG/JPEG billede.</font>
<p><font size="3" face="Arial"><a href="default.htm.asp">Prøv igen</a>.</font>
<%
Else
%>
<p>
<table cellspacing="0" cellpadding="5" border="0" class="img">
<tr bgcolor="#A29570">
<td colspan="2" align="center"> <b class="overskrift">PREVIEW</b> </td>
</tr>
<tr bgcolor="#CEC5A4">
<td class="tekst"> <b>Billede_1:</b></td>
<td class="tekst">
<% = file1.OriginalPath %>
</td>
</tr>
<tr bgcolor="#CEC5A4">
<td class="tekst"> <b>Størrelse:</b> </td>
<td class="tekst">
<% = File1.Size %>
bytes </td>
</tr>
<tr bgcolor="#CEC5A4">
<td class="tekst"> <b>Dimensioner:</b> </td>
<td class="tekst">
<% = File1.ImageWidth %>
x
<% = File1.ImageHeight %>
pixels </td>
</tr>
</table>
<table cellspacing="0" cellpadding="5" border="0" class="img">
<tr bgcolor="#A29570">
<td colspan="2" align="center"> <b class="overskrift">PREVIEW</b> </td>
</tr>
<tr bgcolor="#CEC5A4">
<td class="tekst"> <b>Billede_2:</b></td>
<td class="tekst">
<% = file2.OriginalPath %>
</td>
</tr>
<tr bgcolor="#CEC5A4">
<td class="tekst"> <b>Størrelse:</b> </td>
<td class="tekst">
<% = File2.Size %>
bytes </td>
</tr>
<tr bgcolor="#CEC5A4">
<td class="tekst"> <b>Dimensioner:</b> </td>
<td class="tekst">
<% = File2.ImageWidth %>
x
<% = File2.ImageHeight %>
pixels </td>
</tr>
</table>
<p>
<form action="Gem_thumb.asp" METHOD="POST">
<input type="HIDDEN" name="Savename1" value="<% = File1.ExtractFileName %>">
<input type="HIDDEN" name="Path1" value="<% = File1.Path%>">
<input type="HIDDEN" name="Height1" value="<% = File1.ImageHeight %>">
<input type="HIDDEN" name="Width1" value="<% = File1.ImageWidth %>">
<input type="HIDDEN" name="Savename2" value="<% = File2.ExtractFileName %>">
<input type="HIDDEN" name="Path2" value="<% = File2.Path%>">
<input type="HIDDEN" name="Height2" value="<% = File2.ImageHeight %>">
<input type="HIDDEN" name="Width2" value="<% = File2.ImageWidth %>">
<input type="SUBMIT" value="Fortsæt..." name="SUBMIT">
</form>
<p><img src="../upload/<% = File1.ExtractFileName %>" class="img" border="1">
<img src="../upload/<% = File2.ExtractFileName %>" class="img" border="1">
<%
End If
End If
%>
<%
FUNCTION fixQuotes( theString )
fixQuotes = Replace( theString, "'", "''" )
END FUNCTION
dato = upload.form("dato")
overskrift = upload.form("overskrift")
tekst1 = upload.form("tekst1")
beskrivelse1 = upload.form("beskrivelse1")
tekst2 = upload.form("tekst2")
beskrivelse2 = upload.form("beskrivelse2")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../db/db.mdb")
strSQL="INSERT into bedrifter (dato, overskrift, tekst1, ,billede1, beskrivelse1, tekst2, billede2, beskrivelse2) Values('" & fixQuotes(dato) & "','" & fixQuotes(overskrift) & "','" & fixQuotes(tekst1) & "','" & File1.ExtractFileName & "','" & fixQuotes(beskrivelse1) & "','" & fixQuotes(tekst2) & "','" & File2.ExtractFileName & "','" & fixQuotes(beskrivelse2) & "')"
Conn.Execute(strSQL)
%>
Hvilken syntax-fejl får du?
Bruger selv følgende script når jeg uploader.
Det er en lang kode, der også opretter mapper og flytter filerne rundt, men håber du kan se idéen i det:
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "sb_web"
strSQL = "SELECT TOP 1 * FROM Filmpopup ORDER BY Filmnr DESC"
Set rs = Connect.Execute(strSQL)
If (rs.bof or rs.eof) Then
old_filmnr = "0"
Else
old_filmnr = rs("Filmnr")
End if
new_filmnr = old_filmnr + 1
'opretter mapper til filmen
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder(Server.MapPath("./../images/film/"&new_filmnr&""))
'mappen til galleri-billederne
objFSO.CreateFolder(Server.MapPath("./../images/film/"&new_filmnr&"/images/"))
'mappen til trailere
objFSO.CreateFolder(Server.MapPath("./../images/film/"&new_filmnr&"/media/"))
'mappen tmp
objFSO.CreateFolder(Server.MapPath("./../images/film/"&new_filmnr&"/tmp/"))
'mappen til thumbnails
objFSO.CreateFolder(Server.MapPath("./../images/film/"&new_filmnr&"/thumbs/"))
'uploader filer til tmp-mappen
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
sti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/") & "\"
Upload.Save sti
'felter til tabellen "Filmpopup
Censur = Upload.Form("censur")
Tagline = replace(replace(Upload.Form("tagline"),"'","´"),"""","´´")
Filnavn = Upload.Form("side1")
Tekst = replace(replace(Upload.Form("omfilmen"),"'","´"),"""","´´")
Spilletid = Upload.Form("spilletid")
URL = Upload.Form("url")
Edbnr = Upload.Form("edbnr")
Anmeldelse = replace(replace(Upload.Form("anmeldelser"),"'","´"),"""","´´")
Set side1 = Upload.Files("side1")
If side1 is nothing Then
side1_1 = ""
Else
side1_1 = side1.ExtractFileName
End if
Set Trailer1 = Upload.Files("trailer1")
If Trailer1 is nothing Then
Trailer11 = ""
Else
Trailer11 = Trailer1.ExtractFileName
End if
Set Trailer2 = Upload.Files("trailer2")
If Trailer2 is nothing Then
Trailer21 = ""
Else
Trailer21 = Trailer2.ExtractFileName
End if
'flytter evt. trailere til den rigtige mappe
If Trailer11 = "" Then
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/media/")
Else
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/"&Trailer11&"")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/media/"&Trailer11&"")
objFSO.MoveFile tmpSti,standardSti
End if
If Trailer21 = "" Then
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/media/")
Else
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/"&Trailer21&"")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/media/"&Trailer21&"")
objFSO.MoveFile tmpSti,standardSti
End if
'flytter side1-filen
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/"&side1_1&"")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/"&side1_1&"")
objFSO.MoveFile tmpSti,standardSti
'sætter og flytter gallerifiler
Set Pic1 = Upload.Files("gal1")
If Pic1 is nothing Then
Pic11 = ""
Else
Pic11 = Pic1.ExtractFileName
End if
Set Pic2 = Upload.Files("gal2")
If Pic2 is nothing Then
Pic21 = ""
Else
Pic21 = Pic2.ExtractFileName
End if
Set Pic3 = Upload.Files("gal3")
If Pic3 is nothing Then
Pic31 = ""
Else
Pic31 = Pic3.ExtractFileName
End if
Set Pic4 = Upload.Files("gal4")
If Pic4 is nothing Then
Pic41 = ""
Else
Pic41 = Pic4.ExtractFileName
End if
Set Pic5 = Upload.Files("gal5")
If Pic5 is nothing Then
Pic51 = ""
Else
Pic51 = Pic5.ExtractFileName
End if
Set Pic6 = Upload.Files("gal6")
If Pic6 is nothing Then
Pic61 = ""
Else
Pic61 = Pic6.ExtractFileName
End if
If Pic11 = "" Then
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/images/")
Else
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/"&Pic11&"")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/images/"&Pic11&"")
objFSO.MoveFile tmpSti,standardSti
End if
If Pic21 = "" Then
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/images/")
Else
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/"&Pic21&"")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/images/"&Pic21&"")
objFSO.MoveFile tmpSti,standardSti
End if
If Pic31 = "" Then
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/images/")
Else
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/"&Pic31&"")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/images/"&Pic31&"")
objFSO.MoveFile tmpSti,standardSti
End if
If Pic41 = "" Then
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/images/")
Else
tmpSti = Server.MapPath("./../images/film/"&new_filmnr&"/tmp/"&Pic41&"")
standardSti = Server.MapPath("./../images/film/"&new_filmnr&"/images/"&Pic41&"")
objFSO.MoveFile tmpSti,standardSti
End if
'opretter thumbnails
If Pic11 <> "" Then
Set Image = Server.CreateObject("AspImage.Image")
Image.PadSize = 0
ImgFullPath = (Server.MapPath("./../images/film/"&new_filmnr&"/images/"&Pic11&""))
Image.LoadImage ImgFullPath
Image.GetImageFileSize imgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y OR X > 100 Then
ResizedX = 80
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = Server.MapPath("./../images/film/"&new_filmnr&"/thumbs/"&Pic11&"")
Image.SaveImage
Set Image = Nothing
End if
If Pic21 <> "" Then
Set Image = Server.CreateObject("AspImage.Image")
Image.PadSize = 0
ImgFullPath = (Server.MapPath("./../images/film/"&new_filmnr&"/images/"&Pic21&""))
Image.LoadImage ImgFullPath
Image.GetImageFileSize imgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y OR X > 100 Then
ResizedX = 80
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = Server.MapPath("./../images/film/"&new_filmnr&"/thumbs/"&Pic21&"")
Image.SaveImage
Set Image = Nothing
End if
If Pic31 <> "" Then
Set Image = Server.CreateObject("AspImage.Image")
Image.PadSize = 0
ImgFullPath = (Server.MapPath("./../images/film/"&new_filmnr&"/images/"&Pic31&""))
Image.LoadImage ImgFullPath
Image.GetImageFileSize imgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y OR X > 100 Then
ResizedX = 80
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = Server.MapPath("./../images/film/"&new_filmnr&"/thumbs/"&Pic31&"")
Image.SaveImage
Set Image = Nothing
End if
If Pic41 <> "" Then
Set Image = Server.CreateObject("AspImage.Image")
Image.PadSize = 0
ImgFullPath = (Server.MapPath("./../images/film/"&new_filmnr&"/images/"&Pic41&""))
Image.LoadImage ImgFullPath
Image.GetImageFileSize imgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y OR X > 100 Then
ResizedX = 80
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = Server.MapPath("./../images/film/"&new_filmnr&"/thumbs/"&Pic41&"")
Image.SaveImage
Set Image = Nothing
End if
'indsætter data i tabellen "filmpopup"
strSQL = "INSERT INTO Filmpopup (Filmnr,Censur,Filnavn,Tagline,Tekst,Spilletid,URL,Edbnr,Anmeldelse) VALUES ("&""&new_filmnr&","&Censur&",'"&side1_1&"','"&Tagline&"','"&Tekst&"',"&Spilletid&",'"&URL&"',"&Edbnr&",'"&Anmeldelse&"')"
'Response.Write strSQL &"<br>"
Connect.Execute(strSQL)
'indsætter i tabellen filmskuespiller
actSQL = "INSERT INTO Filmskuespiller (Edbnr,Actor1,Actor2,Actor3,Actor4,Actor5,Actor6,Actor7,Actor8) VALUES ("&""&edbnr&",'"&replace(replace(Upload.Form("actor1"),"'","´"),"""","´´")&"','"&replace(replace(Upload.Form("actor2"),"'","´"),"""","´´")&"','"&replace(replace(Upload.Form("actor3"),"'","´"),"""","´´")&"','"&replace(replace(Upload.Form("actor4"),"'","´"),"""","´´")&"','"&replace(replace(Upload.Form("actor5"),"'","´"),"""","´´")&"','"&replace(replace(Upload.Form("actor6"),"'","´"),"""","´´")&"','"&replace(replace(Upload.Form("actor7"),"'","´"),"""","´´")&"','"&replace(replace(Upload.Form("actor8"),"'","´"),"""","´´")&"')"
'Response.Write actSQL &"<br>"
Connect.Execute(actSQL)
'indsætter data i tabellen "Galleri"
galSQL = "INSERT INTO Galleri (Filmnr,Filnavn1,Filnavn2,Filnavn3,Filnavn4) VALUES ("&""&new_filmnr&",'"&Pic11&"','"&Pic21&"','"&Pic31&"','"&Pic41&"')"
'Response.Write galSQL &"<br>"
Connect.Execute(galSQL)
'indsætter data i tabellen "Filmtrailer"
trailSQL = "INSERT INTO Filmtrailer (Filmnr,Trailer1,Trailer2) VALUES ("&""&new_filmnr&",'"&Trailer11&"','"&Trailer21&"')"
'Response.Write trailSQL &"<br>"
Connect.Execute(trailSQL)
'indsætter data i tabellen "Film"
Orgtitel = replace(replace(Upload.Form("org_titel"),"'","´"),"""","´´")
Nationaltitel = replace(replace(Upload.Form("nat_titel"),"'","´"),"""","´´")
VHS_leje = Upload.Form("vhs_leje")
Format = Upload.Form("releasetype")
Instruktoer = replace(replace(Upload.Form("instructor"),"'","´"),"""","´´")
Genre = Upload.Form("genre")
VHS_koeb = Upload.Form("vhs_koeb")
If Upload.Form("bio") = "" Then
BIO = "01-01-1900"
Else
BIO = Upload.Form("bio")
End if
DVD_leje = Upload.Form("dvd_leje")
DVD_koeb = Upload.Form("dvd_koeb")
VHS_billede = Upload.Form("vhs_billede")
Spotlight = Upload.Form("spotlight")
filmSQL = "INSERT INTO Film (Edbnr,Orgtitel,Nationaltitel,VHS_leje,Format,Instruktoer,Genre,VHS_koeb,BIO,DVD_leje,DVD_koeb,VHS_billede,Spotlight) VALUES ("&""&Edbnr&",'"&Orgtitel&"','"&Nationaltitel&"',#"&VHS_leje&"#,"&Format&",'"&Instruktoer&"',"&Genre&",#"&VHS_koeb&"#,#"&BIO&"#,#"&DVD_leje&"#,#"&DVD_koeb&"#,'"&VHS_billede&"','"&Spotlight&"')"
'Response.Write filmSQL &"<br>"
Connect.Execute(filmSQL)
'indsætter data i tabellen "DVDInfo"
Lydformatid = Upload.Form("lydformat")
Billedformatid = Upload.FOrm("billedformat")
DVDFormatid = Upload.Form("dvdformat")
Regionskodeid = Upload.Form("region")
dvdSQL = "INSERT INTO DVDInfo (Filmnr,Lydformatid,Billedformatid,Dvdformatid,Regionskodeid) VALUES ("&""&new_filmnr&","&Lydformatid&","&Billedformatid&","&Dvdformatid&","&Regionskodeid&")"
'Response.Write dvdSQL &"<br>"
Connect.Execute(dvdSQL)
'indsætter data i tabellen "Dvdextrabilledformat"
Extrabilledformat = replace(replace(Upload.Form("extbilled"),"'","´"),"""","´´")
exbSQL = "INSERT INTO Dvdextrabilledformat (Filmnr,Extrabilledformat) VALUES ("&""&new_filmnr&",'"&Extrabilledformat&"')"
'Response.Write exbSQL &"<br>"
Connect.Execute(exbSQL)
'indsætter i tabellen "Dvdextrafeatureinfo"
Menu = Upload.Form("feat1")
Behind = Upload.Form("feat2")
Biografier = Upload.Form("feat3")
Presentation = Upload.Form("feat4")
Subtitles = Upload.Form("feat5")
Commentary = Upload.Form("feat6")
Music = Upload.Form("feat7")
Selection = Upload.Form("feat8")
Deleted = Upload.Form("feat9")
Tekstet = Upload.Form("feat10")
featSQL = "INSERT INTO Dvdextrafeatureinfo (Filmnr,Animeret_menu,Bagom_filmen,Biografier,Filmpresentation,Flytbar_undertekst,Kommentarer,Musik_fra_filmen,Scenevalg,Skjulte_klip,Tekstet) VALUES ("&""&new_filmnr&",'"&Menu&"','"&Behind&"','"&Biografier&"','"&Presentation&"','"&Subtitles&"','"&Commentary&"','"&Music&"','"&Selection&"','"&Deleted&"','"&Tekstet&"')"
'Response.Write featSQL &"<br>"
Connect.Execute(featSQL)
'indsætter i tabellen "Dvdextraspecialfeature"
Extra1 = replace(replace(Upload.Form("extspec1"),"'","´"),"""","´´")
Extra2 = replace(replace(Upload.Form("extspec2"),"'","´"),"""","´´")
Extra3 = replace(replace(Upload.Form("extspec3"),"'","´"),"""","´´")
Extra4 = replace(replace(Upload.Form("extspec4"),"'","´"),"""","´´")
extSQL = "INSERT INTO Dvdextraspecialfeature (Filmnr,Extra1,Extra2,Extra3,Extra4) VALUES ("&""&new_filmnr&",'"&Extra1&"','"&Extra2&"','"&Extra3&"','"&Extra4&"')"
'Response.Write extSQL &"<br>"
Connect.Execute(extSQL)
'Response.End
Connect.Close
Response.Redirect("film_list.asp?offset=10&start=1")
Scriptet er gennemtestet og bruger også ASP-Upload som du gør.
Ny bruger
Nybegynder
Opret
Preview
