Just nu i M3-nätverket
Jump to content

Filuppladdnign


Signe_1

Recommended Posts

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

 

Link to comment
Share on other sites

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 <---------

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...