Tjo!
försöker använda detta, men om jag har en fil typ minbild.jpg på serven och laddar upp en fil med samma namn så vill jag få fram ett meddelande om att fillen finns och att det måste vara ett unikt filnamn. någon som kan hjälpa mig att fixa till det?

<code><%

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'email = UploadRequest.Item("email").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"uploaded"&filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close
%>
<b>Uploaded file : </b><%="uploaded"&filename%><BR>
<img src="<%="uploaded"&filename%>"></code>

/Tommy

Kolla funktionen FileExists

Exempel
<code>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

If (fs.FileExists("c:\test.txt"))=true Then
Response.Write("File c:\test.txt exists.")
Else
Response.Write("File c:\test.txt does not exist.")
End If

set fs=nothing
%>
</code>

Andrec

okej!
men vart & hur får jag in denna kod?
någon som kan få till det så att det blir lättare att få det att funka?

/Tommy

Men...

If (fs.FileExists('Här får du lägga en variabel med filnamnet))=true Then
'Här lägger du in all kod du har som körs för att spara filen
Else
'Här lägger du in felmeddelande att fil redan finns
End If

Du kan inte förvänta dig att vi ska skriva koden till dig.
Med det exemplet blir det hopplöst enkelt (du behöver inte hålla med).

/Andrec