home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advsmtp / act_upload.asp < prev    next >
Encoding:
Text File  |  2001-09-22  |  2.0 KB  |  58 lines
  1. <html>
  2. <head>
  3.     <title>AdvSMTP Component</title>
  4. </head>
  5. <body>
  6. <%
  7.     Server.ScriptTimeout = 20000
  8.     Response.Write Time & "<br>"
  9. dim SMTP
  10. set SMTP = Server.CreateObject("AdvSMTP.SMTP")
  11.     SMTP.NameConflict = "MakeUnique" 'other values are OverWrite, Error, Skip
  12.     'SMTP.SetMaxFileSize = 100
  13.     'SMTP.Truncate = true
  14.     set Upload = SMTP.Upload("c:\temp")
  15.     if (SMTP.IsError = 1) then
  16.         Response.Write SMTP.ErrorReason & "<br>"
  17.     else
  18.         Response.Write SMTP.Count & " files successfully uploaded" & "<br>"%>
  19.                 <TABLE WIDTH=75% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
  20.                 <TR bgcolor="black">
  21.                     <TD bgcolor="black"><b><font color="white">ClientFileName</font></b></TD>
  22.                     <TD bgcolor="black"><font color="white">ClientFileExtension</font></b></TD>
  23.                     <TD bgcolor="black"><font color="white">ServerFileName</font></b></TD>
  24.                     <TD bgcolor="black"><font color="white">ServerFileExtension</font></b></TD>
  25.                     <TD bgcolor="black"><font color="white">ContentType</font></b></TD>
  26.                     <TD bgcolor="black"><font color="white">FileField</font></b></TD>
  27.                     <TD bgcolor="black"><font color="white">CreationTime</font></b></TD>
  28.                     <TD bgcolor="black"><font color="white">LastModifiedTime</font></b></TD>
  29.                     <TD bgcolor="black"><font color="white">FilePath</font></b></TD>
  30.                     <TD bgcolor="black"><font color="white">FileSize</font></b></TD>
  31.                 </TR>
  32.                 <%
  33.                 for each Member in Upload%>
  34.                 <TR>
  35.                     <TD><%=Member.ClientFileName%></TD>
  36.                     <TD><%=Member.ClientFileExtension%></TD>
  37.                     <TD><%=Member.ServerFileName%></TD>
  38.                     <TD><%=Member.ServerFileExtension%></TD>
  39.                     <TD><%=Member.ContentType%></TD>
  40.                     <TD><%=Member.FileField%></TD>
  41.                     <TD><%=Member.CreationTime%></TD>
  42.                     <TD><%=Member.LastModifiedTime%></TD>
  43.                     <TD><%=Member.FilePath%></TD>
  44.                     <TD><%=Member.FileSize%></TD>
  45.                 </TR>
  46.                 <%
  47.                 next
  48.                 %>
  49.                 </TABLE>
  50.     <%end if
  51.     Response.Write Time
  52. set SMTP = Nothing
  53. set Upload = Nothing
  54. %>
  55. <a href="<%=Request.QueryString("filename")%>">Back</a>
  56. </body>
  57. </html>
  58.