打印本文 打印本文  关闭窗口 关闭窗口
使用ASPMail组件发送数字卡片
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005/9/10 13:49:32
nbsp;      CInt(ident) & " AND passw = " & CInt(psw)

     ' Execute the SQL statementz
     rs.Open SQLstmt, Conn, 1, 2


     if rs.EOF then
      'Post card doesn't exist or invalid password!
         erring = 1  
     else  
      'Postcard does exist.  Populate the session
      'variables with the database info.
         session("postal") = rs("postal")
         session("namefrom") = rs("namefrom")
         session("emailfrom") = rs("emailfrom")
         session("nameto") = rs("nameto")
         session("emailto") = rs("emailto")
         session("message") = rs("message")
'if fromn have "seeit we will show =
     end if
end if
%>

<html>
<body
     marginheight="0"
     marginwidth="0"
     topmargin="0"
     leftmargin="0"
     background="images/something.gif"
     bgcolor="#002400"
     text="#FCC403"
>

<%
' At this time we will see if there has been an error
' We also want to make sure the form data is valid.

if erring <> 1 and (fromn="seeit" or fromn="out") and  
   session("postal") <> "" then

     ' if everything is correct we show the information
%>
<div align="left">
<table border="0" width="580" cellspacing="0" cellpadding="0">
  <tr>
    <td width="50%" valign="top" align="left"><br>
      <br>
      <img src="images/<%=session("postal")%>.jpg" hspace="5"
          border="2" WIDTH="354" HEIGHT="231">
    </td>
    <td width="50%">
       <table border="0" cellspacing="3" width="100%" cellpadding="3"
              bordercolor="#000000" height="202">
         <tr>
           <td width="100%" height="109">
              <p align="left">
              <font face="Arial"><br>
                <small>From:</small>
                <strong><%=session("namefrom")%></strong>
                <br>
                <small>Email:</small><small><strong>
                <%=session("emailfrom")%></strong></small>
                <br>
                <small>To:</small><strong><small>
                <%=session("nameto")%></small></strong>
                <br>
                <small>Email:</small><small><strong>
                <%=session("emailto")%></strong></small>
              </font>
            </td>
          </tr>

          <tr>
            <td width="100%">
              <font face="Arial">
                <small>Message:</small><br>
                <font size="2"><strong>
                <%=session("message")%></strong>
                </font>
              </font>
             </td>
          </tr>

          <tr>
            <td width="100%" align="center" valign="middle" height="29">
            <%
               'if fromn == "seeit" we will show the
            'buttons "to send" and "to retry"
               if fromn="seeit" then  
            %>
              <p align="left"><br>
              <a href="javascript:history.back()">
                <img src="images/rebuildbotton.gif" width="60"
                     height="53" border="0">
              </a>
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
              <a href="enviado.asp">
                 <img src="images/sendbotton.gif" width="41"
                      height="53" border="0">
              </a>
             </td>
           </tr>
           </table>
         </td>
      </tr>
   </table>
</div>

           <%
            ' Someone is viewing a card already made
         ' Show the reply button  
            else  
          

上一页  [1] [2] [3] [4]  下一页



打印本文 打印本文  关闭窗口 关闭窗口