ASP Source Code: iasppop3vb.asp

   ASP Script
   Comments
   HTML and Text

<%@Language =vbScript%>
<html>
<head>
<title> New Document </title>
</head>
<body BGCOLOR="#F0A080">
<p align="center"><big><big>Welcome to Use Halcyon AspPOP3 Mail Receiver</big></big></p>
<%
if (Request.form("host").Count <> 0 and Request.form("uid").Count <> 0 and Request.form("pwd").Count <> 0) then
      strHost = Request.Form("host")
      strUid = Request.Form("uid")
      strPwd = Request.Form("pwd")
     
      Set Mailer = Server.CreateObject("POP3svg.Mailer")
      Mailer.RemoteHost = strHost
      Mailer.UserName = strUid
      Mailer.Password = strPwd
      Mailer.OpenPop3

      Response.Write "<table width=90% border=1>"
      Response.Write "<tr>"
      Response.Write "<td ><b>" & "Msg #" & "<b></td>"
      Response.Write "<td ><b>" & "Subject" & "<b></td>"
      Response.Write "<td ><b>" & "FromName" & "<b></td>"

      Response.Write "<td><b>" & "FromAddress" & "<b></td>"
      Response.Write "<td><b>" & "BodyText" & "<b></td>"
      Response.Write "<td><b>" & "Version" & "<b></td>"
      Response.Write "<td><b>" & "view" & "<b></td>"
      Response.Write "<td><b>" & "delete" & "<b></td>"

      Response.Write "</tr>"

      count=Mailer.MessageCount
     Set Session("mail") = Mailer
     
      dim i
     
      for i = 1 to count
           Mailer.Retrieve(i)
           Set Session("mailer" & i)=Mailer
           Response.Write "<tr>"
           Response.Write "<td><b>" & i & "</b></td>"
           Response.Write "<td><b>" & Mailer.Subject & "</b></td>"
           Response.Write "<td><b>" & Mailer.FromName & "<b></td>"
           Response.Write "<td><b>" & Mailer.FromAddress & "<b></td>"
           Response.Write "<td><b>" & Mailer.BodyText & "<b></td>"
           Response.Write "<td><b>" & Mailer.Version & "<b></td>"
           %>

          
           <td><b>
           <form action="vbmesr.asp" method="post">
           <input type="hidden" value="<%=i%>" name="view">
           <input type="submit" value="view">
           </form>
           </b></td>
         <td><b>
           <form action="vbdel.asp" method="post">
           <input type="hidden" value="<%=i%>" name="del">
           <input type="submit" value="delete!">
           </form>
           </b></td>
          
           <%
           Response.Write "</tr>"
      Next

      Response.Write "</table>"
     
      if (count=0) then
           Response.Write "<font size =4>Sorry,You have no new message!!</font>"
      end if
else
%>

      <table border="0">
     <form action="iasppop3vb.asp" method="post">
     <tr><td>Enter POP3 Mail Host:<td><input type="text" size="45" name="host" value></td>
     <tr><td>Enter POP3 User Name:<td><input type="text" size="45" name="uid" value></td>
     <tr><td>Enter POP3 Password:<td><input type="password" size="45" name="pwd" value> <input type="Submit"></td>
      </form>
     </table>

<%end if%>

</body>
</html>

If you require technical support please send complete details about the problem you are having to support@halcyonsoft.com.


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.