AdMentor homepage

/asp/freeapps/postcardmentor/default.asp

<!--#include file="inccard.asp"-->

<%
Dim oConn
Set oConn = Postcard_GetDatabaseConn()

%>
<HTML><HEAD><TITLE>PostcardMentor Card</TITLE>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY aLink=#000000 bgColor=#ffffff link=#000080 text=#000000 vLink=#000080>
<CENTER>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=591>
  <TBODY>
  <TR>
    <TD align=middle vAlign=top width="468">
        <%=Inccard_GetAd(1)%>
      </TD>
    <TD></TD>
    <TD vAlign=top><%=Inccard_GetAd(2)%></TD></TR></TBODY></TABLE></CENTER></CENTER>
<CENTER>
<P>&nbsp;
<div align="center">
  <center>
<table border="0">
  <tr>
    <td>
<P><b><font color="#000080" face="Arial,Helvetica,Sans Serif" size="5">Welcome
to PostcardMentor postoffice!</font></b></td>
  </tr>
</table>
  </center>
</div>
<FONT face="Arial,Helvetica,Sans Serif" size=2>
<TABLE border=0 cellPadding=0 width=580>
  <TBODY>
  <TR>
    <TD align="center"><FONT color=#000000 face="Arial,Helvetica,Sans Serif" size=2>This is
      just a demo of PostcardMentor product - the freeware ASP script developed
      by Stefan Holmberg. The demo is fully functioning so feel free to send a
      card!</FONT></TD></TR>
  <TR>
    <TD height=15>
      <p align="center">&nbsp;
  </FONT>
      <form method="POST" action="viewcard.asp">
        <p align="center"><b><font color="#000080" face="Arial,Helvetica,Sans Serif" size="4">Pick</font>
  </FONT>
        <font color="#000080" face="Arial,Helvetica,Sans Serif" size="4"> up
            card</font></b>
<FONT face="Arial,Helvetica,Sans Serif" size=2>
<FONT face="Arial,Helvetica,Sans Serif" size=2>&nbsp;&nbsp;</font></p>
        <p align="center"><FONT face="Arial,Helvetica,Sans Serif" size=2>&nbsp;<FONT color=#000000 
            face="Arial,Helvetica,Sans Serif" size=2><B>Card id: </B></FONT></font><input type="text" name="cardid" size="9"><input type="submit" value="View it!" name="B1"></p>
      </form>
    </font>
    </TD></TR>
  <TR>
    <TD height=15>&nbsp;
                  <FONT 
                  face="Arial, Verdana, Helvetica" size=2>
                  <TABLE border=0 cellPadding=0 cellSpacing=0 width=574 height="134">
                    <TBODY>
                    <TR>
                      <TD colSpan=2 vAlign=top width=574 height="92">
                        <p align="center"><b><font color="#000080" face="Arial,Helvetica,Sans Serif" size="4">Send
      a </font></b><FONT face="Arial,Helvetica,Sans Serif" size=2><b><font color="#000080" face="Arial,Helvetica,Sans Serif" size="4">card</font></b>&nbsp;
  </FONT>
                        <FONT face=arial 
                        size=2><BR><BR></FONT></FONT><font face="arial" size="2">Right
                      now we have <b><%=PostCard_GetCardCount(oConn)%></b> postcards in <b><%=PostCard_GetCatCount(oConn)%></b> categories.</font><br><br>
                        </TD></TR>
<%
Set oRS = oConn.Execute( "select fldAuto, name from " & Postcard_GetTablePrefix() & "cat" )
While Not oRS.EOF
%>                        
                    <TR>
                      <TD align=center vAlign=top width=276 height="21"><FONT face=arial 
                        size=2>
                                <A 
                          href="step1.asp?cat_fldAuto=<%=oRS("fldAuto")%>"><%=oRS("name")%></A> 
                        </FONT></TD>
                      <TD align=center vAlign=top width=298 height="21">
                        <%
                        oRS.MoveNext
                        If Not oRS.EOF Then
                        %>
                            <FONT face=arial size=2>
                                <A 
                          href="step1.asp?cat_fldAuto=<%=oRS("fldAuto")%>"><%=oRS("name")%></A> 
                        </FONT>
                        <%End If %>
                        </TD></TR>
<%
If Not oRS.EOF Then
    oRS.MoveNext
End If
Wend
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>                        
                    <TR>
                      <TD align=center vAlign=top width=276 height="21"></TD>
                      <TD align=center vAlign=top width=298 height="21"></TD></TR></TBODY></TABLE>
      <p>&nbsp;
    </TD></TR>
</TBODY></TABLE>
<P><BR>This script is developed by ASPCode.net - <a href="http://www.aspcode.net/postcardmentor">http://www.aspcode.net/postcardmentor</a><P><%=Inccard_GetAd(3)%></CENTER>
<P><BR>
<P><BR></P></BODY></HTML>
Privacy policy