View code for step3.asp in /asp/freeapps/postcardmentor/step3.asp

Code Viewer
AdMentor homepage
/asp/freeapps/postcardmentor/step3.asp

<!--#include file="inccard.asp"-->
<%
Dim nCardId, sSmallGufUrl

nCardId = Request.QueryString("fldAuto")
if nCardId = "" Then
    Response.Redirect "."
End If
Dim oRS
Dim oConn
Set oConn = Postcard_GetDatabaseConn()
Set oRS = Server.CreateObject("ADODB.Recordset")
Set oRS.ActiveConnection = oConn
oRS.CursorLocation = adUseClient
oRS.Open "select * from " & Postcard_GetTablePrefix() & "card where fldAuto=" & nCardId

Dim sGifUrl, sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo
sGifUrl = oRS("gifurl")
sNameTo = Request.Form("nameto")
sNameFrom = Request.Form("namefrom")
sEmailFrom = Request.Form("emailfrom")
sEmailTo = Request.Form("emailto")
sGreeting = Request.Form("greeting")
if sGreeting = "custom" Then
    sGreeting = Request.Form("cGreeting")
End if
sText = Request.Form("S1")
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing

Dim sBGColor
sBGColor = Request.Form("BgColor")
Dim sTextColor
sTextColor = Request.Form("TColor")
%>

<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=#<%=sBGColor%> link=#000080 text=#<%=sTextColor%> 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>
<p>Previewing...This is how the card will look like:</p>
<div align="center">
  <center>
<table border="0">
  <tr>
    <td valign="top" align="center">
<P><b><font face="Arial,Helvetica,Sans Serif" size="5"><%=sNameTo%>, you
got a card:</font></b></td>
    <td valign="top" align="center">
    </td>
  </tr>
</table>
  </center>
</div>
<FORM action=sendit.asp method=post>
<p>&nbsp;</p>
<TABLE border=0 cellPadding=0 width=580>
  <TBODY>
  <TR>
    <TD>
      <p align="center"><b><font size="4">
      From: <a href="mailto:<%=sEmailFrom%>"><%=sNameFrom%></a></font></b>
      </p><br>
    </TD></TR>
  <TR>
    <TD height=15>
      <p align="center"><b><font size="4"><%=sGreeting%></font></b></TD></TR>
  <TR>
    <TD align=middle height=25>
      <p align="center"><img src="<%=sGifUrl%>"></p>
    </TD></TR>
  <TR>
    <TD align=middle height=25>
      <p align="center"><textarea rows="5" name="S1" cols="24"><%=sText%></textarea></TD></TR>
  <TR>
    <TD align=middle height=25><INPUT name=submit type=submit value="OK! Go ahead and send it!"></TD></TR></TBODY></TABLE>
    <input type="hidden" name="fldAuto" value="<%=nCardId%>">
    <input type="hidden" name="nameto" value="<%=sNameTo%>">
    <input type="hidden" name="namefrom" value="<%=sNameFrom%>">
    <input type="hidden" name="emailfrom" value="<%=sEmailFrom%>">
    <input type="hidden" name="greeting" value="<%=sGreeting%>">
    <input type="hidden" name="BgColor" value="<%=sBgColor%>">
    <input type="hidden" name="TColor" value="<%=sTextColor%>">
    <input type="hidden" name="emailto" value="<%=sEmailTo%>">
    </FORM>
<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>
Codeview.ASPCode.net

/asp/freeapps/postcardmentor/step3.asp
