Problemmer med upload af filer

du skal have installeret Persits' uploadkomponent på din server...

Du har ikke komponent innstallert!

Du kan sjekke hva som er innstallert med dette scriptet!

<%
'*******************************************
START = "<TR><TD><FONT FACE=""Tahoma"" SIZE=""2"">"
MELLEM = "</FONT></TD><TD WIDTH=""200""><FONT FACE=""Tahoma"" SIZE=""2"">"
SLUT = "</FONT></TD></TR>"

Komponentdata = Array("","MSWC.AdRotator","MSWC.BrowserType","ADODB.Connection","MSWC.NextLink","Scripting.FileSystemObject","CDONTS.Session","MSWC.Status","MSWC.PageCounter","MSWC.PermissionChecker","","SoftArtisans.FileUp","SoftArtisans.FileManager","SoftArtisans.FileManagerTX","SoftArtisans.ExcelWriter","SMUM.XCheck.1","SoftArtisans.SASessionPro.1","SAXFileLib.XFRequest","","JMail.SMTPMail","JMail.Speedmailer","JMail.POP3","JMail.Message","w3sitetree.tree","w3.upload","w3.netutils","Socket.TCP","","SMTPsvg.Mailer","AspImage.Image","AspSock.Conn","POP3svg.Mailer","AspNNTP.Conn","AspFile.FileObj","AspConv.Expert","AspHTTP.Conn","AspDNS.Lookup","AspMX.Lookup","","ImgSize.Check","AspPing.Conn","AspCrypt.Crypt","ASPExec.Execute","AspInet.FTP","ASPsvg.Process","","AspSmartForumAdm.SmartForumAdm","aspSmartFile.SmartFile","AspSmartSecurity.FileSec","AspSmartDate.SmartDate","AspSmartUpload.SmartUpload","aspSmartMail.SmartMail","aspSmartCache.SmartCache","","ASPChat2.Chat","ASPThumbnailer.Thumbnail","ASPSimpleUpload.Upload","WhoIs2.WhoIs","","cyScape.browserObj","","EZsite.Calendar","","Dynu.CreditCard","Dynu.DateTime","Dynu.DNS","Dynu.Exec","Dynu.Email","Dynu.Encrypt","Dynu.FileUtil","Dynu.FTP","Dynu.HTTP","Dynu.Email","Dynu.POP3","Dynu.Ping","Dynu.Socket","Dynu.StringUtil","Dynu.Wait","Dynu.Whois")
komponentnavn = Array("Microsoft","Ad Rotator","Browser Capabilities","Database Access","Content Linking","File Access","CDO for NTS","Status","Page Counter","Permission Checker","SoftArtisans http://www.softartisans.com","SA-FileUp","SA-FileManager","SA-FilemanagerTX","SA-ExcelWriter","SA-Check","SA-SessionPro","SA-XFile","Dimac http://www.dimac.net","JMail 3.7","JMail 4.1","JMail 4.1","JMail 4.1","Sitetree","Upload","Utils","Socket","ServerObjects http://www.serverobjects.com","ASPMail","ASPImage","ASPSock","ASPPop3","AspNNTP","AspFile (AspLib)","AspConv (AspLib)","AspHTTP","AspDNS","AspMX","ServerObjects (Freeware Komponenter) http://www.serverobjects.com","ImageSize","AspPing","AspCrypt","ASPExec","AspInet","ASPProc","aspSmart http://www.aspsmart.com","aspSmartForum","aspSmartFile","aspSmartSecurity","aspSmartDate","aspSmartUpload","aspSmartMail","aspSmartCache","ASPhelp http://www.asphelp.com","ASP Chat Professional","ASP Thumbnailer","ASP Simple Upload","ASP Whois","cyScape http://www.cyscape.com","BrowserHawk","Doug Dean Software http://www.dougdean.com","EZSite Calender","Dynu Systems http://www.dynu.com","DynuCreditCard","DynuDateTime","DynuDNS","DynuExec","DynuEmail","DynuEncrypt","DynuFileUtil","DynuFTP","DynuHTTP","DynuEmail","DynuPOP3","DynuPing","DynuSocket","DynuStringUtil","DynuWait","DynuWhois")

Function TestCom(data)
    On Error Resume Next
    Set komponent = Server.CreateObject(data)
        If Err.Number = 0 Then
            TestCom = "<FONT COLOR=""009900"">OK - " & TypeName(komponent) & "</FONT>"
        Else
            TestCom = "<FONT COLOR=""CC0000"">FEJL - " & Err.number & "</FONT>"
        End If
    Set komponent = Nothing
End Function

Function komponenter()
    komponenter = komponenter & "<TABLE BORDER=""1"" BORDERCOLOR=""999999"" WIDTH=""700"" CELLSPACING=""0"">"
    komponenter = komponenter & START & "<B>Komponent</B>" & MELLEM & "<B>Status</B>" & SLUT
    For i = 0 to Ubound(komponentdata)
        If komponentdata(i) = "" Then
            komponenter = komponenter & START & "<B>" & komponentnavn(i) & "</B>" & MELLEM & "<B>&nbsp;</B>" & SLUT
        Else
            komponenter = komponenter & START & komponentnavn(i) & " (" & komponentdata(i) & ")" & MELLEM & TestCom(komponentdata(i)) & SLUT
        End if
    Next
    komponenter = komponenter & "</TABLE>"
End Function
%>
<%
Response.buffer = True
Response.Expires = -1
Response.AddHeader "PRAGMA", "NO-CACHE"
%>

<HTML>
<HEAD>
<TITLE>ASPADMIN</TITLE>
<LINK REL="stylesheet" TYPE="text/css" HREF="css.css">
</HEAD>
<BODY>
<TABLE BORDER="0" WIDTH="100%">
<TR>
    <TD CLASS="menu"><A HREF="http://www.aspadmin.dk" CLASS="menu">ASPADMIN</A> - KOMPONENTER</TD>
</TR>
<TR>
    <TD CLASS="indhold">
        <% =komponenter() %>
    </TD>
</TR>
<TR>
    <TD CLASS="menu"><A HREF="http://www.aspadmin.dk" CLASS="menu">ASPADMIN</A> - <A HREF="http://www.cnhweb.dk" CLASS="menu">CNH WEB</A></TD>
</TR>
</TABLE>
</BODY>
</HTML>

Hov. Fordi der kræves en komponent som der skal betales for :-(

Kan i en mulighed hvor der ikke skal installeres noget eller kender i en freeware version?

AspSmartUpload er et gratis komponent. Kan hentes her:
http://www.aspsmart.com/aspSmartUpload/

Den har jeg også prøvet, men den brokker sig dog over at skulle håndtere Request.Form og Binær upload i samme form :-(
Finder en work-around

Smid svar, de som vil ha'

Ved alle uploadkomponenter skal du ændre din Request.Form, fordi komponentet overtager styringen. Det er nu ikke så svært, du skal bare ændre request.form() til Upload.form(), hvis du kalder dit komponent Upload.

Set Upload = server.CreateObject("Persits.Upload.1")
navn = Upload.form("navn")

så request og upload så gør det ud for det samme ?

Det kan man godt sige.
Du kan bruge request før du opretter dit komponent, men efter skal du bruge upload. Det er ved at være lidt tid siden jeg sidst har bruge det, så jeg er ikke sikker, men det kan du jo undersøge :)

Der er dog ofte problemer når man skal indsætte filopload i en form, fordi man ikke "overholder upload reglerne". Så jeg vil anbefale at du laver en test side, hvor du får din upload til at virke, så du ikke løber i problemer med din form med det samme. Bagefter kan du så flytte upload til din form, også tilpasse den så det virker.

siden er ikke i drift endnu, men skal være det den 14., så der er ved at være lidt stresse på.
Mange tak for dine svar, men vil du ikke ha' point :-) ?

jo tak...