Hej Jag har en upload script och jag skulle döpa om filer som man laddar upp Det handlar om bilder Bilderna hamnar i en mapp som heter uploaded och bildernas namn ska sparas i en databas. En rename funktion hade jag hitat här på pellesoft upload
http://www.pellesoft.nu/login/articles/asp/fileuploadsave.asp
Men det funkar inte riktigt Jag får hela tiden bara 00000 som namn och ingen ändelse Min script--------->
<!--#include file="Loader.asp"-->
<%On Error Resume Next
Response.Buffer = True
' load object
Dim load
Set load = new Loader
' calling initialize method
load.initialize
' Check if any files were uploaded
' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))
' File path
Dim filePath
filePath = load.getFilePath("file")
' File path complete
Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")
' File size
Dim fileSize
fileSize = load.getFileSize("file")
' File size translated
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")
' Content Type
Dim contentType
contentType = load.getContentType("file")
' No. of Form elements
Dim countElements
countElements = load.Count
' Value of text input field "datum"
Dim datum
datum = load.getValue("datum")
' Value of text input field "kommun"
Dim kommun
kommun = load.getValue("kommun")
' Value of text input field "namn"
Dim namn
namn = load.getValue("namn")
' Value of text input field "telefon"
Dim telefon
telefon = load.getValue("telefon")
'*******
' Value of text input field "rubrik"
Dim rubrik
rubrik = load.getValue("rubrik")
' Value of text input field "anno"
Dim anno
anno = load.getValue("anno")
' Value of text input field "epost"
Dim epost
epost = load.getValue("epost")
Dim kategori
kategori = load.getValue("kategori")
' Value of text input field "annons"
'===============bara test====================================================
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
'fso.MoveFile filePathComplete & fileName, filePath & date()&"_"&fileName
'fso.MoveFile filepath & fileName, filepath & date()&"_"&fileName
'********
'' hämtar filnamnet på sedvanligt sätt
'filename = myRequestFiles(0,1)
'' hämtar filextension
'extension = right(filename,len(filename) - instr(filename,".") +1)
'' 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(returnedId), 5)
'' bygger ihop det nya filnamnet
'UPLOAD_PATH = Server.MapPath("uploaded")
'Set Fso = Server.CreateObject("Scripting.FileSystemObject")
'Set Folder = Fso.getFolder(UPLOAD_PATH)
''Response.Write UPLOAD_PATH & "\" & Filen & " - "& UPLOAD_PATH & "\" & Nytt
''Response.End
'If Fso.FileExists(UPLOAD_PATH & "\" & Nytt) Then
' Fso.DeleteFile(UPLOAD_PATH & "\" & Nytt)
' Fso.MoveFile UPLOAD_PATH & "\" & Filen , UPLOAD_PATH & "\" & Nytt
'Else
' Fso.MoveFile UPLOAD_PATH & "\" & Filen , UPLOAD_PATH & "\" & Nytt
'End If
'============================slut test=======================================
Dim pathToFile
pathToFile = Server.mapPath("uploaded/") & "\" & fileName
' Uploading file data
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)
'Upload.OverwriteFiles = False
' destroying load object
Set load = Nothing
%>
<html>
<head><link rel="stylesheet" href="pon.css" type="text/css">
<title>Inserts Images into Database</title>
</head>
<body>
<table width="600" border="0" align="center">
<tr>
<td>Datum</td><td><%= now %></td>
</tr>
<tr>
<td>bild</td><td><%= fileName %></td>
</tr><tr>
<td>Namn</td><td><%= namn %></td>
</tr><tr>
<td>Telefon</td><td><%= telefon %></td>
</tr><tr>
<td>Rubrik</td><td><%= rubrik %></td>
</tr><tr>
<td>Epost</td><td><%= epost %></td>
</tr><tr>
<td>Kategori</td><td><%= kategori %></td>
</tr><tr>
<td>Annonsen</td><td><%= annons %></td></tr></table><br>
<br>
<p style="padding-left:220;">
<%= namn %>! Tack för besöket<br>
<%
'======================kopling härifrån==================
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("omni.mdb")
' detta är hämtas från form-en från insertx.asp
datum =now
filename = Request.Form("FileName")
Kommun = Request.Form("kommun")
Namn = Request.Form("namn")
Epost = Request.Form("epost")
Telefon = Request.Form("telefon")
Kategori = Request.Form("kategori")
Anno = Request.Form("anno")
Rubrik = Request.Form("rubrik")
'deklarea som man vill lägga in i databasen
SQL = "Insert Into files(filename,kommun,namn,epost,telefon,kategori,anno,rubrik,datum) Values ('"& filename &"','"& Kommun &"','"& Namn &"','" & epost & "','" & telefon & "','" & kategori & "','" & anno & "','" & rubrik & "','" & datum & "')"
'nedre raden tillhör kopplingen och viktigt!
Set rs = Conn.Execute(SQL)
Set rs = nothing
'======================slut=====================
If Err.number = 0 Then
Response.Write "Insertion into Database complete ...<br>"
Else
Response.Write "Välkommen åter ...<br>"
End If
%>
Tack /Tomas