Filuppladdnign

[Signe_1]

Har en sida med filuppladning för våra kunders räkning. Efter det att filen är sparad på servern genererar koden ett mail med information från formuläret och en nedladdningslänk till filen som laddats upp.

 

Detta fungerar precis som jag vill vid uppladdning av mindre filer men kommer vi upp till filer på större volym (vet inte riktigt var gränsen går men 2 MB går inte) sparas filen men något mail genereras inte.

 

Har försökt lägga mailet före filsparningen, vilket inte är ultimat, men då kommer inget mail oavsett storlek på filen.

 

Någon som har en fundering på vad det kan bero på?

 

/Signe_1

 

[Cluster]

Utan att se kod eller veta vilka komponenter (om några) för mail och uppladdning som används blir det riktigt svårt.

Får du några 500-fel i loggen?

 

/Cluster

------------------------------------------------------

I do not fear computers. I fear the lack of them

--------> http://eforum.kicks-ass.net <---------

 

[Signe_1]

Nej, inga felmeddelanden. Allt ser ut precis som när ett mail genereras, skillnaden är att det inte kommer in något mail.

 

<%

           Set form = Server.CreateObject("Bluerange.ASPUpload")

           sArendenr = form.Form("arendenr")
           sForetag = form.Form("foretag")
           sKontakt = form.Form("kontakt")
           sEpost   = form.Form("epost")
           sTelefon = form.Form("telefon")

           strFileName = form.RemoteFileName("file")

	    nFindSlash = InStrRev(strFileName, "\")
	    If nFindSlash>0 Then
	        strFileName = Mid(strFileName,nFindSlash+1)
	    End If

           form.save "file", "kund/" & replace(sArendenr," ","") & "-" & replace(sForetag," ","") & "-" & replace(strFileName," ","")

           HtmlBody = "<b>En fil från hemsidan till supporten</b><br />" & "<br /><b>Ärendenr: </b>" & replace(sArendenr," ","") & "<br /><b>Företag: </b>" & sForetag & "<br /><b>Kontakt: </b>" & sKontakt & "<br /><b>Epost: </b>" & replace(sEpost," ","") & "<br /><b>Telefon: </b>" & sTelefon & "<br /><br /> http://www.systemandersson.se/kund/" & replace(sArendenr," ","") & "-" & replace(sForetag," ","") & "-" & replace(strFileName," ","")

           set msg = Server.CreateOBject( "JMail.Message" )
           msg.Logging = true
	    msg.silent = true

           msg.From = replace(sEpost," ","")
           msg.FromName = sKontakt

           msg.AddRecipient "support@domän.se"
           msg.Subject = "Fil från hemsidan"

           msg.HtmlBody = HtmlBody

           if not msg.Send("exchange.domän.se" ) then
	        'Response.write "<pre>" & msg.log & "</pre>"
	        Response.write "Meddelandet om skickad fil kom aldrig fram till supporten, vv. Ring xxxx"
	    else
   %>
           <p>
               Filen är skickad, vi hanterar ert ärende och kontaktar er så snart som möjligt.
           </p>
           <p> </p>
   <%
           Response.write "<p>"
           Response.Write "Ärendenr: " & replace(sArendenr," ","") & "<br />"
           Response.Write "Företag: " & sForetag & "<br />"
           Response.Write "Kontakt: " & sKontakt & "<br />"
           Response.Write "E-post: " & sEpost & "<br />"
           Response.Write "Telefon: " & sTelefon & "<br />"
           Response.write "Filnamn: " & strFilename & "</p>"

       end if
   %>

 

[inlägget ändrat 2008-08-27 16:29:10 av Signe_1]

[Cluster]

Skrivs texten "Filen är skickad, vi hanterar ert ärende.." ut?

 

/Cluster

------------------------------------------------------

I do not fear computers. I fear the lack of them

--------> http://eforum.kicks-ass.net <---------

 

[Signe_1]

Ja, det gör den