Avatar billede smitx Praktikant
23. juli 2003 - 10:23 Der er 30 kommentarer og
1 løsning

aspSmartUpload med email ?

Hej eksperter.

Jeg har et script hvor mine brugere kan uploade filer til en bestemt mappe på min server, hvor de efter at have klikket på send, for en ny side detaljeret med oplysninger om filerne.

Mit spørgsmål er nu, kan jeg indsætte en email, så jeg automatisk for samme besked som brugerne, bare på email ?

Og kan jeg sætte begrænsning på således at de kun kan upload f.eks. jpr, gif, bmp ect...

Håber i kan hjælpe :)
Avatar billede smitx Praktikant
23. juli 2003 - 10:23 #1
Her kommer skriptet:

<HTML>
<BODY BGCOLOR="white">

<H1>Upload</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
        file.SaveAs("/files/" & file.FileName)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        intCount = intCount + 1
      End If
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")
%>
</BODY>
</HTML>
Avatar billede smitx Praktikant
23. juli 2003 - 10:42 #2
Jeg har JMail installeret hvis det er til nogle hjælp
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 10:45 #3
Ja det kan du ihvertfald:
mySmartUpload.AllowedFilesList = "GIF,JPG,BMP"

Det kan også være en ide at sætte en max begrænsning for hvor store filerne kan være:
mySmartUpload.MaxFileSize = 100000


Med hensyn til emailen så kan du også gøre det. Fx via JMail som de fleste udbydere har:
dim body:
body = "Name = " & file.Name & vbclrf &_
        "Size = " & file.Size & vbclrf &_
        FileName = " & file.FileName & vbclrf &_
        FileExt = " & file.FileExt & vbclrf &_
        "FilePathName = " & file.FilePathName & vbclrf &_
        "ContentType = " & file.ContentType & vbclrf &_
        "ContentDisp = " & file.ContentDisp & vbclrf &_
        "TypeMIME = " & file.TypeMIME & vbclrf &_
        "SubTypeMIME = " & file.SubTypeMIME & vbclrf &_

    set msg = Server.CreateObject("JMail.Message")
    msg.logging = true
    msg.From = "<domæne email>"
    msg.FromName = "Fx dit domæne"
    msg.AddRecipient "<din email>"
    msg.Subject = "fx. Upload fra bruger"
    msg.Body = body
msg.Send( "mail.domæne")
Avatar billede smitx Praktikant
23. juli 2003 - 10:47 #4
Jeg prøver lige :)
Avatar billede smitx Praktikant
23. juli 2003 - 10:48 #5
Kan du ikke lige sætte de ekstra felter ind i skriptet hvor de skal være, for jeg er ikke lige haj til det her *GG*

Og Ja Kanon ide med begrænsning :)
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 10:57 #6
<HTML>
<BODY BGCOLOR="white">

<H1>Upload</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.AllowedFilesList = "GIF,JPG"
  mySmartUpload.MaxFileSize = 100000

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
        file.SaveAs("/files/" & file.FileName)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        intCount = intCount + 1
      End If
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Sender en mail til administratoren med fil infos
dim body, adminEmail
adminEmail = "din email"

body = "Name = " & file.Name & vbclrf &_
        "Size = " & file.Size & vbclrf &_
        FileName = " & file.FileName & vbclrf &_
        FileExt = " & file.FileExt & vbclrf &_
        "FilePathName = " & file.FilePathName & vbclrf &_
        "ContentType = " & file.ContentType & vbclrf &_
        "ContentDisp = " & file.ContentDisp & vbclrf &_
        "TypeMIME = " & file.TypeMIME & vbclrf &_
        "SubTypeMIME = " & file.SubTypeMIME & vbclrf &_

    set msg = Server.CreateObject("JMail.Message")
    msg.logging = true
    msg.From = "<domæne email>"
    msg.FromName = "Fx dit domæne"
    msg.AddRecipient adminEmail
    msg.Subject = "fx. Upload fra bruger"
    msg.Body = body
msg.Send( "mail.domæne")
%>
</BODY>
</HTML>
Avatar billede smitx Praktikant
23. juli 2003 - 11:02 #7
Av :(

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/smart/upload.asp, line 66

FileName = " & file.FileName & vbclrf &_
----------------------------------------^
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:06 #8
body = "Name = " & file.Name & vbclrf &_
        "Size = " & file.Size & vbclrf &_
        FileName = " & file.FileName & vbclrf &_
        FileExt = " & file.FileExt & vbclrf &_
        "FilePathName = " & file.FilePathName & vbclrf &_
        "ContentType = " & file.ContentType & vbclrf &_
        "ContentDisp = " & file.ContentDisp & vbclrf &_
        "TypeMIME = " & file.TypeMIME & vbclrf &_
        "SubTypeMIME = " & file.SubTypeMIME & vbclrf
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:07 #9
hov der mangler lidt :)
body = "Name = " & file.Name & vbclrf &_
        "Size = " & file.Size & vbclrf &_
        "FileName = " & file.FileName & vbclrf &_
        "FileExt = " & file.FileExt & vbclrf &_
        "FilePathName = " & file.FilePathName & vbclrf &_
        "ContentType = " & file.ContentType & vbclrf &_
        "ContentDisp = " & file.ContentDisp & vbclrf &_
        "TypeMIME = " & file.TypeMIME & vbclrf &_
        "SubTypeMIME = " & file.SubTypeMIME & vbclrf
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:08 #10
ret lige Vbclrf til vbCrlf
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:08 #11
jeg er lige stået op, må være varmen og trætheden der spiller mig et pus.
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:12 #12
<HTML>
<BODY BGCOLOR="white">

<H1>Upload</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.AllowedFilesList = "GIF,JPG"
  mySmartUpload.MaxFileSize = 100000

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
        file.SaveAs("/files/" & file.FileName)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        intCount = intCount + 1
      End If
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Sender en mail til administratoren med fil infos
dim body, adminEmail
adminEmail = "din email"

body = "Name = " & file.Name & vbcrlf &_
      "Size = " & file.Size & vbcrlf &_
      "FileName = " & file.FileName & vbcrlf &_
      "FileExt = " & file.FileExt & vbcrlf &_
      "FilePathName = " & file.FilePathName & vbcrlf &_
      "ContentType = " & file.ContentType & vbcrlf &_
      "ContentDisp = " & file.ContentDisp & vbcrlf &_
      "TypeMIME = " & file.TypeMIME & vbcrlf &_
      "SubTypeMIME = " & file.SubTypeMIME & vbcrlf

    set msg = Server.CreateObject("JMail.Message")
    msg.logging = true
    msg.From = "<domæne email>"
    msg.FromName = "Fx dit domæne"
    msg.AddRecipient adminEmail
    msg.Subject = "fx. Upload fra bruger"
    msg.Body = body
msg.Send( "mail.domæne")
%>
</BODY>
</HTML>


Så tror jeg den er der
Avatar billede smitx Praktikant
23. juli 2003 - 11:12 #13
Kommer med fejl i bunden af siden brugerne for at se :(

Name = FILE1
Size = 11376
FileName = superworld.jpg
FileExt = jpg
FilePathName = C:\Documents and Settings\dhj\Dokumenter\Billeder\superworld.jpg
ContentType = image/pjpeg
ContentDisp = form-data
TypeMIME = image
SubTypeMIME = pjpeg

4 files could be uploaded.
1 file(s) uploaded.

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/smart/upload.asp, line 64
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:13 #14
hvad står der på linje 64
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:14 #15
ah 2 sek.
den var værre.
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:17 #16
<HTML>
<BODY BGCOLOR="white">

<H1>Upload</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
  dim body
  body = "En bruger har uploadet disse filer:"&vbcrlf
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.AllowedFilesList = "GIF,JPG"
  mySmartUpload.MaxFileSize = 100000

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
        file.SaveAs("/files/" & file.FileName)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        body = body & "Name = " & file.Name & vbcrlf &_
                "Size = " & file.Size & vbcrlf &_
              "FileName = " & file.FileName & vbcrlf &_
              "FileExt = " & file.FileExt & vbcrlf &_
              "FilePathName = " & file.FilePathName & vbcrlf &_
              "ContentType = " & file.ContentType & vbcrlf &_
              "ContentDisp = " & file.ContentDisp & vbcrlf &_
              "TypeMIME = " & file.TypeMIME & vbcrlf &_
              "SubTypeMIME = " & file.SubTypeMIME & vbcrlf
        intCount = intCount + 1
      End If
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Sender en mail til administratoren med fil infos
dim adminEmail
adminEmail = "din email"
    set msg = Server.CreateObject("JMail.Message")
    msg.logging = true
    msg.From = "<domæne email>"
    msg.FromName = "Fx dit domæne"
    msg.AddRecipient adminEmail
    msg.Subject = "fx. Upload fra bruger"
    msg.Body = body
msg.Send( "mail.domæne")
%>
</BODY>
</HTML>
Avatar billede smitx Praktikant
23. juli 2003 - 11:24 #17
Damn du er god, det virker sgu nu :)

Jeg vil meget gerne sætte den op til 100 point hvis du kan hjælpe med en sidste detalje som er, at brugerne bliver sendt til en ny side, hvis der f.eks. er fejl, pga. fokert filtype eller størrelse ect...

lige nu for de bare en asp fejl med forkert type.

den nye side kan jeg lave selv, hvor jeg bare skriver at check filtypen eller noget andet. f.eks kan siden hedde fejl.html eller fejl.asp

Hvis du har mod på det :) ?
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:29 #18
for at spare lidt plads i scriptet kan du også gøre dette:
erstatte:
      Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        body = body & "Name = " & file.Name & vbcrlf &_
                "Size = " & file.Size & vbcrlf &_
              "FileName = " & file.FileName & vbcrlf &_
              "FileExt = " & file.FileExt & vbcrlf &_
              "FilePathName = " & file.FilePathName & vbcrlf &_
              "ContentType = " & file.ContentType & vbcrlf &_
              "ContentDisp = " & file.ContentDisp & vbcrlf &_
              "TypeMIME = " & file.TypeMIME & vbcrlf &_
              "SubTypeMIME = " & file.SubTypeMIME & vbcrlf
        intCount = intCount + 1
      End If
  Next

Med:
        body = body & "Name = " & file.Name & vbcrlf &_
              "Size = " & file.Size & vbcrlf &_
              "FileName = " & file.FileName & vbcrlf &_
              "FileExt = " & file.FileExt & vbcrlf &_
              "FilePathName = " & file.FilePathName & vbcrlf &_
              "ContentType = " & file.ContentType & vbcrlf &_
              "ContentDisp = " & file.ContentDisp & vbcrlf &_
              "TypeMIME = " & file.TypeMIME & vbcrlf &_
              "SubTypeMIME = " & file.SubTypeMIME & vbcrlf
        intCount = intCount + 1
      End If
  Next
Response.Write Replace(body,vbcrlf,"<BR>")
Avatar billede smitx Praktikant
23. juli 2003 - 11:43 #19
Jeg mener selvfølgelig ikke du skal lave en detaljeret fejl side, bare et link til en side f.eks. fejl.asp :)
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:47 #20
Du kan prøve den her, jeg har ikke testet den endnu.
Den skriver til brugeren hvis der er en fejl, og hvilken fil den ikke kunne uploade. Men har som sagt ikke testet det endnu.


<HTML>
<BODY BGCOLOR="white">

<H1>Upload</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
  dim body, errorMsg, wasError
  wasError = false
  errorMsg = "Der skete en fejl i upload, nogle filer er muligvis ikke uploadet check om filerne overholder kravene (type, størrelse)"
  body = "En bruger har uploadet disse filer:"&vbcrlf
'  Object creation
'  ***************
  On Err resume next
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.AllowedFilesList = "GIF,JPG"
  mySmartUpload.MaxFileSize = 100000

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
        file.SaveAs("/files/" & file.FileName)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & file.FileName)

      '  Display the properties of the current file
      '  *****************************************
      if Err then
        errorMsg = errorMsg & "<BR>"&file.Name&" kunne ikke uploades"
        wasError = true
      Else
            body = body & "Name = " & file.Name & vbcrlf &_
                            "Size = " & file.Size & vbcrlf &_
                            "FileName = " & file.FileName & vbcrlf &_
                            "FileExt = " & file.FileExt & vbcrlf &_
                            "FilePathName = " & file.FilePathName & vbcrlf &_
                            "ContentType = " & file.ContentType & vbcrlf &_
                            "ContentDisp = " & file.ContentDisp & vbcrlf &_
                            "TypeMIME = " & file.TypeMIME & vbcrlf &_
                            "SubTypeMIME = " & file.SubTypeMIME & vbcrlf
        intCount = intCount + 1
      End IF
  End If
Next
If wasError then
    Response.Write errorMsg
End If
Response.Write Replace(body,vbCrlF,"<BR>")
'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Sender en mail til administratoren med fil infos
dim adminEmail
adminEmail = "din email"
    set msg = Server.CreateObject("JMail.Message")
    msg.logging = true
    msg.From = "<domæne email>"
    msg.FromName = "Fx dit domæne"
    msg.AddRecipient adminEmail
    msg.Subject = "fx. Upload fra bruger"
    msg.Body = body
msg.Send( "mail.domæne")
%>
</BODY>
</HTML>
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 11:49 #21
Der skal muligvis være et <BR> efter Response.Write errorMsg
så den ser således ud:
Response.Write errorMsg & "<BR>"
Avatar billede smitx Praktikant
23. juli 2003 - 11:52 #22
Den funker ikke, som du også selv havde mistanke om :)

Microsoft VBScript compilation error '800a03ea'

Syntax error

/smart/upload.asp, line 20

On Err resume next
---^
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 12:07 #23
der skulle vist stå: On Error Resume Next
Avatar billede smitx Praktikant
23. juli 2003 - 12:14 #24
den skriver ikke fejl men:

En bruger har uploadet disse filer:

0 files could be uploaded.
0 file(s) uploaded.
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 12:22 #25
Prøv den her:

<HTML>
<BODY BGCOLOR="white">

<H1>Upload</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
  dim body, errorMsg, wasError
  wasError = false
  errorMsg = "Der skete en fejl i upload, nogle filer er muligvis ikke uploadet check om filerne overholder kravene (type, størrelse)"
  body = "En bruger har uploadet disse filer:"&vbcrlf
'  Object creation
'  ***************
  On Err resume next
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.AllowedFilesList = "GIF,JPG,BMP"
  mySmartUpload.MaxFileSize = 100000

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
        file.SaveAs("/files/" & file.FileName)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & file.FileName)

      '  Display the properties of the current file
      '  *****************************************
      body = body & "Name = " & file.Name & vbcrlf &_
                    "Size = " & file.Size & vbcrlf &_
                    "FileName = " & file.FileName & vbcrlf &_
                    "FileExt = " & file.FileExt & vbcrlf &_
                    "FilePathName = " & file.FilePathName & vbcrlf &_
                    "ContentType = " & file.ContentType & vbcrlf &_
                    "ContentDisp = " & file.ContentDisp & vbcrlf &_
                    "TypeMIME = " & file.TypeMIME & vbcrlf &_
                    "SubTypeMIME = " & file.SubTypeMIME & vbcrlf
    intCount = intCount + 1
  End If
Next
If Err then
    Response.Write errorMsg
    wasError = true
End If
Response.Write Replace(body,vbCrlF,"<BR>")
'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Sender en mail til administratoren med fil infos
If intCount > 0 then
    dim adminEmail
    adminEmail = "din email"
        set msg = Server.CreateObject("JMail.Message")
        msg.logging = true
        msg.From = "<domæne email>"
        msg.FromName = "Fx dit domæne"
        msg.AddRecipient adminEmail
        msg.Subject = "fx. Upload fra bruger"
        msg.Body = body
    msg.Send( "mail.domæne")
End If
%>
</BODY>
</HTML>
Avatar billede smitx Praktikant
23. juli 2003 - 12:36 #26
Du er min helt :)
Avatar billede smitx Praktikant
23. juli 2003 - 12:37 #27
Smid lige et svar :)
Avatar billede smitx Praktikant
23. juli 2003 - 12:38 #28
Kan jeg smide et felt ind, som gør at den ikke skal sende email hvis filer = 0 ?

altså hvos der ikke er uploadet noget, for jeg kunne da godt forestille mig nogle syntes det ville være skide skægt at sidde og trykke send send send 100 gange *GGG*
Avatar billede smitx Praktikant
23. juli 2003 - 12:40 #29
ups det gør den heller ikke, kun ved fejl :o)
Avatar billede thomas_yde Nybegynder
23. juli 2003 - 12:52 #30
Glæder mig det virker :)
Avatar billede smitx Praktikant
23. juli 2003 - 12:54 #31
Tro mig, det gør det også mig :))))))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester