ASP Source Code: iasppop3js.asp

   ASP Script
   Comments
   HTML and Text

<%@Language =JScript%>
<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 && Request.form("uid").Count != 0 &&
    Request.form("pwd").Count != 0)
{
   strHost = Request.Form("host")
   strUid = Request.Form("uid")
   strPwd = Request.Form("pwd")
     
   var 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>" + "Delete" + "<b></td>");
   Response.Write("</tr>");

   count=Mailer.MessageCount;
   Session("mail")=Mailer;
   var i
   for (i = 1; i <= count; i++) {
      Mailer.Retrieve(i);
      Session("mailer"+i)=Mailer;
          
      Response.Write("<tr>");
      Response.Write("<td><b>" + i + "</b></td>");
      Response.Write("<td><a href=jmesr.asp?>" + Mailer.Subject +"</a></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="jdel.asp" method="post">
<input type=hidden value=<%=i%>   name="del" >
<input type="submit" value="delete!">
</form>
</b></td>

<%
   Response.Write("</tr>");
   }

   Response.Write("</table>");
     
   if(count==0)
      Response.Write("<font size =4>Sorry,You have no new message!!</font>");
   }
   else
   {
%>
<table border=0>
<form action="jpop3.asp" method="post">
<tr><td>Enter POP3 Mail Host:<td><input type=text size=45 name=host value="">
<tr><td>Enter POP3 User Name:<td><input type=text size=45 name=uid value="">
<tr><td>Enter POP3 Password:<td><input type=password size=45 name=pwd value="">
     
<input type="Submit">
 
</form>
</table>


<%}%>


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