<% Dim Step, Base Base="http://www.conservationhamilton.ca" Step=Request.Form("Step") 'Response.Write Step %> Hamilton Conservation Authority <%=step%>
" 'Next Table=Table & "" If request.QueryString("image")<>"" Then Card_image=request.QueryString("image") Step=2 End If If request.form("card_image")<>"" Then card_image=request.form("card_image") For X=1 to UBound(Pic) If pic(x)=card_image Then 'card_image=request.form("card_image") caption=captions(x) End If Next If Card_image="" Then card_Image=pic(1) caption=captions(1) End If 'Step 1 .. pick image 'Step 2 fill out form Select Case Step Case 1 Step1 Case 2 Step2 Case 3 If Request.Form("Back.x")>0 Then Step1 Else Step3 End If Case 4 If Request.Form("back.x")>0 Then Step3 Else Step5 End If Case 5 If Request.Form("back.x")>0 Then Step2 Else Step5 End If Case Else Step1 End Select %>
<% Dim to_name, to_email, from_name, from_email, message, valid, card_Image Dim captions(25), caption Dim pic(21) pic(1)="anne4" captions(1)="Anne" pic(2)="behindwebsterfalls" captions(2)="Behind Webster Falls" pic(3)="christielakeinfall" captions(3)="Christie Lake in Fall" pic(4)="civilwar" captions(4)="Civil War" pic(5)="dundasvalleyfallcolours" captions(5)="Dundas Valley Fall Colours" pic(6)="dundasvalleytrailcentre" captions(6)="Dundas Valley Trail Centre" pic(7)="duskatwestfield" captions(7)="Dusk at Westfield" pic(8)="easyriver" captions(8)=" Easy River" pic(9)="fiftypointmarina" captions(9)="Fifty Point Marina" pic(10)="flowersbythefalls" captions(10)="Flowers By Fall" pic(11)="healthystreams" captions(11)="Healthy Streams" pic(12)="quietwaters" captions(12)="Quiet Waters" pic(13)="valensfishingbridge" captions(13)="Valens Fishing Bridge" pic(14)="valenssunset" captions(14)="Valens Sunset" pic(15)="wintersbeauty" captions(15)="Winter's Beauty" pic(16)="card_01" captions(16)="Hamilton - the city of waterfalls" pic(17)="card_02" captions(17)="Dundas Valley panorama" pic(18)="card_03" captions(18)="The beach at Christie Lake" pic(19)="card_04" captions(19)="Canoeing at Christie Lake" pic(20)="card_05" captions(20)="Ice climbing at Tiffany Falls" pic(21)="card_06" captions(21)="Westfield’s restored locomotive" dim Table, Col, X, MaxCol, Pct Table="
" 'Build Table MaxCol=6 Pct=Int(100/MaxCol) Col=1 For X=1 to UBound(Pic) 'Table=Table & "" &_ ' "" &_ ' "" ' 'Table=Table & "" Table=Table & "  " Next 'For X= 1 to MaxCol-Col+1 ' Table=Table & "		 
<% Sub Step1 %>
Please select an image for your eCard
<%=Table%>
<% End Sub %> <% Sub Step2 If request.form("card_image")="" Then If request.querystring("image")<>"" Then card_image=request.querystring("image") Else card_image=pic(1) End If Else card_image=request.form("card_image") End If %>

 To Name: ">
 To Email: ">


 

Your Name:">
Your Email:">

<%=caption%>
<% End Sub %> <% Sub Step3 %>
<% to_name=Request.Form("To_Name") from_name=Request.Form("from_Name") from_name=Replace(from_name,"""", "") to_name=Replace(to_name,"""", "") to_email=Request.Form("To_email") from_email=Request.Form("from_email") from_email=Replace(from_email,"""", "") to_email=Replace(to_email,"""", "") message=request.form("message") message=replace(message, """", "&quo;") message=Left(message,500) Message=Request.Form("message") Message=Replace(Message, "<", "<") Message=Replace(Message, ">", ">") Message=Replace(Message, CHR(10), "
") Message=Replace(Message, CHR(13), "
") Valid=True 'Test Data If Len(Trim(To_Email))<5 Then Valid=False If Instr(To_Email, "@")=0 or IsNull(To_Email) Then Valid=False If Instr(To_Email, "<")>0 Then Valid=False If Instr(To_Email, ">")>0 Then Valid=False If Instr(To_Email, "%")>0 Then Valid=False If Instr(To_Email, "*")>0 Then Valid=False If Len(Trim(from_email))<5 Then Valid=False If Instr(from_email, "@")=0 or IsNull(from_email) Then Valid=False If Instr(from_email, "<")>0 Then Valid=False If Instr(from_email, ">")>0 Then Valid=False If Instr(from_email, "%")>0 Then Valid=False If Instr(from_email, "*")>0 Then Valid=False If Len(Trim(Message))=0 Then Valid=False %> ">
Please verify your info <% IF Valid=True Then %> <%Else%>   <%End IF%>
.jpg" width="257" height="321">

 <%=Request.Form("To_Name")%>
 <%=Request.Form("To_Email")%>

<% If Valid=True Then Response.Write Message Else Response.Write "Your postcard must have the following..." Response.Write "

  • proper TO and FROM email address
    • " Response.Write "
  • TO and FROM names
    • " Response.Write "
  • The MESSAGE field must not be left blank
" Response.Write "" End If %>
 

<%=Request.Form("from_name")%>
<%=Request.Form("from_email")%>

<%=caption%>
<% End Sub %> <% Sub Step4b %>
<% to_name=Request.Form("To_Name") from_name=Request.Form("from_Name") to_email=Request.Form("To_email") from_email=Request.Form("from_email") message=request.form("message") %> ">
" width="257" height="321">

 <%=Request.Form("To_Name")%>
 <%=Request.Form("To_Email")%>

<%=Message%>
 

<%=Request.Form("from_name")%>
<%=Request.Form("from_email")%>

<%=caption%>
<% End Sub Sub Step5() Postcard="Hamilton Conservation Authority eCard" &_ "
" &_ "" &_ "" &_ "

 " &_ "" & Request.Form("To_Name") & "
 " &_ "" & Request.Form("To_Email") &_ "

" &_ "" & Request.Form("Message") &_ "
 

" &_ "" & Request.Form("from_name") &_ "
" &_ "" & Request.Form("from_email") &_ "

"&caption&"
" &_ "
" 'Response.Write PostCard Send_Email Request.Form("To_Email"), Request.Form("To_Name"), Request.Form("From_Email"), "You have received a Hamilton Conservation Authority eCard", postcard 'Response.Redirect "http://www.conservationhamilton.ca/ecard/thanks.asp" 'Write Thanks you and close window message %>
.jpg" width="257" height="321">

 


Your message has been sent, click here to close the window
<% End Sub %> <%Sub ShowFields For each item in request.form Response.Write item Response.Write ":" Response.Write request.form(item) & "
" Next Response.End End Sub %>