home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 November / PCW9911.BIN / sharewar / prx / wscripts / aspemail.exe / Attachments.asp < prev    next >
Encoding:
Text File  |  1998-11-24  |  1.5 KB  |  61 lines
  1. <%
  2.     If Request("Remove") <> "" Then
  3.         For Each id in Request("ID")
  4.             Session("arrFiles").Remove CInt(id)
  5.         Next
  6.     End If
  7. %>
  8.  
  9. <HTML>
  10. <HEAD>
  11. <META NAME="GENERATOR" Content="Microsoft Developer Studio">
  12. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  13. <TITLE>AspEmail: Editing Attachments</TITLE>
  14. </HEAD>
  15. <BODY BGCOLOR="#FFFFFF">
  16. <BASEFONT FACE="Arial, Helvetica">
  17.  
  18.  
  19. <TABLE WIDTH="80%" BGCOLOR="#C0C0C0" BORDER=2 CELLPADDING=0 CELLSPACING=3>
  20. <TD>
  21. <TABLE WIDTH="100%" BGCOLOR="#C0C0C0" BORDER=0 CELLPADDING=2 CELLSPACING=0>
  22.  
  23. <TR><TD ALIGN=CENTER><B>Select a file, then click on "Attach File". When finished, click on "Done"</B></TD></TR>
  24. <TR><TD><HR></TD></TR>
  25.  
  26. <TR><TD>
  27.     <FORM ACTION="UploadScript.asp" METHOD="POST" ENCTYPE="multipart/form-data">
  28.     <INPUT TYPE=FILE SIZE=60 NAME="Attchment"><BR>
  29.     <INPUT TYPE=SUBMIT VALUE="Attach File">
  30.     </FORM>
  31. </TD></TR>
  32. <TR><TD><HR></TD></TR>
  33. <TR><TD>
  34. <B>Attached Files:</B><BR>
  35. <FORM METHOD=GET NAME="Attachments.asp">
  36. <%
  37.     Set arrFiles = Session("arrFiles")
  38.     Items = arrFiles.Items
  39.     Keys = arrFiles.Keys
  40.     For i = 0 to arrFiles.Count - 1
  41.         Response.Write "<INPUT TYPE=CHECKBOX NAME=ID VALUE=" & Keys(i) & ">" & Items(i) & "<BR>"
  42.     Next
  43. %>
  44. <P>
  45. <INPUT TYPE=SUBMIT NAME="Remove" VALUE="Remove">
  46. </FORM>
  47. </TD></TR>
  48.  
  49. <TR><TD><HR></TD></TR>
  50. <FORM METHOD=GET ACTION="SendMail.asp">
  51. <TR><TD><INPUT TYPE=SUBMIT VALUE="Done">  <FONT COLOR="#FF0000"><% = Session("ErrorMsg") %></FONT></TD></TR>
  52. </FORM>
  53.  
  54. </TABLE>
  55. </TD>
  56. </TABLE>
  57.  
  58. </BASEFONT>
  59. </BODY>
  60. </HTML>
  61.