<%
Dim FlashSwf
eCardCode = Request("ECardCode")
Recipient = Request("Recipient")
Sender = Request("Sender")
Message = Replace(Request("Message"),"''","'")
FlashLoadingString = "to="&Recipient&"&from="&Sender&"&message="&Message
If eCardCode="NDPFL" Then
FlashSwf = "ndp1.swf"
End If
If eCardCode="NDPAL" Then
FlashSwf = "ndp2.swf"
End If
If eCardCode="SPT01" Then
FlashSwf = "ndp2.swf"
End If
%>
