Denna kod skall spara över en bil med ex namnet 00001.gif men om den finns blir det felmeddelande:
Koden:
<%If Request.QueryString("do") = "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
SQL = "Select Top 1 * From galleri Order By id desc"
Set RecSet = Conn.Execute(SQL)
Nynamn = RecSet("id")+1
Filen = Session("fil")
extension = right(Filen,4)
' bygger det nya filnamnet. Eftersom det exempelvis kan stå 48, så vill vi istället
' att det skall stå 00048 och det kan man göra på följande sätt:
filename = Right("00000" & trim(Nynamn), 5)
' bygger ihop det nya filnamnet
Nytt = filename & extension
UPLOAD_PATH = Server.MapPath("pics")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.getFolder(UPLOAD_PATH)
Är du säkert på att det är raden
Fso.MoveFile UPLOAD_PATH & "\" & Filen , UPLOAD_PATH & "\" & Nytt
som ger felet? Där anropas ju bara en metod - inget objekt skapas mig veteligen.
------------------ En eller annan godbit från pannan
Om det inte fungerar att skriva över, kan du ju alltid prova att använda FSO-metoderna FileExists och DeleteFile, för att radera innan du sparar filen.
Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
SQL = "Select Top 1 * From galleri Order By id desc"
Set RecSet = Conn.Execute(SQL)
Nynamn = RecSet("id")+1
Filen = Session("fil")
extension = right(Filen,4)
' Bygger det nya filnamnet. Eftersom det exempelvis kan stå 48, så vill vi istället
' att det skall stå 00048 och det kan man göra på följande sätt:
filename = Right("00000" & trim(Nynamn), 5)
' Bygger ihop det nya filnamnet
Nytt = filename & extension
UPLOAD_PATH = Server.MapPath("pics")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.getFolder(UPLOAD_PATH)
Ganska festligt faktist, sitter själv o knåpar på en liknande grej som du redan gjort ser jag.
Hur som helst, en ide tycker jag är att du när du gör dina thumbnails är att du håller dig till en fast höjd, tex 120px men låter bredden variera så att du inte "förstör" bildens proportioner.
