Så ser min fungerande kod ut:

<code>
<%
Set Upload = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.SetMaxSize 15000000, True

' Intercept all exceptions to display user-friendly error
On Error Resume Next
Upload.Save("c:\Inetpub\wwwroot\upload")

For Each File In Upload.Files
Response.Write File.FileName & ""

Filnamn = File.FileName
Information = Upload.Form("infotext")
Next


' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Redirect "upload.asp?large=file"
Else

Connect.Execute("Insert Into upload(filnamn,infotext) Values('" & Filnamn & "','" & Information & "')")

Response.Redirect("upload.asp?upload=finish")

End If

Set Upload = Nothing %>
</code>

Jag hittar ingenstans på deras hemsida där jag endast accepterar en filändelse, tex *.rar filer.
Tacksam för svar.

Mvh Hassan

Du behöver plocka ut de sista fyra tecknen i filnamnet eller med RegExp söka bakifrån efter första punkten. Sen kollar du med InStr om det är .rar eller inte.

Jag är inte så bra på sånt, kan du visa mig ett exempel på hur de ser ut?

Hassan

Varför komplicera det?
<code>
<%
Set Upload = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.SetMaxSize 15000000, True

' Intercept all exceptions to display user-friendly error
On Error Resume Next
Upload.Save("c:\Inetpub\wwwroot\upload")

For Each File In Upload.Files
Response.Write File.FileName & ""

Filnamn = File.FileName
Information = Upload.Form("infotext")

if Right(File.FileName,3) <> "rar" and Right(File.FileName,3) <> "RAR" then

'Dumpa filen då den inte är rar

else

'Det är en rarfil.

end if


Next


' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Redirect "upload.asp?large=file"
Else

Connect.Execute("Insert Into upload(filnamn,infotext) Values('" & Filnamn & "','" & Information & "')")

Response.Redirect("upload.asp?upload=finish")

End If

Set Upload = Nothing %>
</code>
//Johannes

filändelse kan man få ut mha Ext:

Set File = Upload.Files("formuläret")
filandelse=File.ext


if lcase(filandelse) = "rar" then

tack,men de fungerade ej...

Vilket av ovanstående tips har du försökt?
Du kan nog testa med FileType för att kolla filändelsen.