<%Option Explicit%>
<%
'Delare Constants
Const classid = "clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
Const codebase = "http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
'// Declare variables
Dim uno, rt_part, sSql, mcont, varrecipname,varrecipemail,varsendername,varsenderemail,varlisting,sname,frm,body1,body3,body_send
Dim varsenddate,varcategory,varcardnum,varmessage,varbimg,varbcolor,varwidth,varheight,varswfpath
Dim varloopval,varbgcolorval,varobtag,varbsound,catcode,i,sqlban,cat,link_href,link_href1,scat,banner_sql
Dim sql,varage,varname,vardytemp
'// Declare Object Variables
Dim SQLConn, sqlRS, ObjMail, cardRS, bannerRS, banner_RS
uno= Request.QueryString("uno")
'Response.write(uno)
rt_part=right(uno,2)
if rt_part="R1" or rt_part="S0" then
uno=Left(uno,len(uno)-2)
'Response.write(" " &uno)
end if
Set SQLConn = Server.CreateObject("ADODB.Connection")
Set sqlRS =Server.CreateObject("ADODB.Recordset")
SQLConn.open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orangepie" '// SQL Database
sSql = "SELECT * FROM sendcard WHERE usrnum='" & uno &"'"
'Response.Write(sSql)
sqlRS.Open sSql,SQLConn,adOpenKeyset,adLockOptimistic
IF NOT sqlRS.EOF THEN
IF sqlRS("nflag")="1" and rt_part="R1" THEN
sqlRS("nflag")=0
sqlRS.Update
'/// Notification Mail
body1="The greeting card that you sent to "& sqlrs("recipname") & " (" & sqlrs("recipemail") & ")" &VbCrLf&_
"has been viewed."&VbCrLf&VbCrLf&_
"To view this card, click on the link below:"&VbCrLf&_
"http://www.orangepie.com/flashsite/pick.asp?uno="&uno&VbCrLf&VbCrLf
' body2 is fetched adcode from file emailadcode.txt
body3="Spread happiness to your family and friends by sending more free greetings from http://www.orangepie.com "& VbCrLf& VbCrLf&_
"Enjoy!!!" & VbCrLf & "Orangepie.com" & VbCrLf & VbCrLf & VbCrLf &_
"Note : Do not reply to this message. If you would like to write to Orangepie, send mail "&_
"Webmaster@Orangepie.com"
body_send=body1 & body2 & body3
frm="Orangepie"
'// Send Notify Mail To Sender
Set objMail=CreateObject("CDONTS.Newmail")
objMail.From=frm
objMail.To=sqlRS("sendername")&" <"&sqlRS("senderemail")&">"
objMail.Subject="Notification of card viewed by "&sqlRS("recipname")
objMail.Body=body_send
objMail.Send
Set objMail=Nothing
End If
varrecipname = sqlRS("recipname")
varrecipemail = sqlRS("recipemail")
varsendername = sqlRS("sendername")
varsenderemail = sqlRS("senderemail")
varlisting = sqlRS("listing")
varsenddate = sqlRS("senddate")
varcategory = sqlRS("category")
varcardnum = sqlRS("cardnum")
vardytemp = sqlRS("dytemp")
'// for dynamic flash card
varname = Left(vardytemp,instrrev(vardytemp,"#",-1,1)-1)
varage = Mid(vardytemp,instrrev(vardytemp,"#",-1,1)+1)
'Response.Write(varname & " , " &varage)
varmessage = Replace(sqlRS("message"),"#"," ")
varmessage = replace(varmessage,chr(10)," ")
'cobrand_db = sqlRS("cobrand")
Set cardRS = Server.CreateObject("ADODB.RecordSet")
IF ISNULL(varcategory) or varcategory="" Or ISEMPTY(varcategory) then
sqlban="Select flashcardmaster.catid,category,subcategory from flashcarddetail,flashcardmaster "
sqlban=sqlban & "WHERE flashcardmaster.catid = flashcarddetail.catid AND cardnum ='" &varcardnum& "'"
'response.write(sqlban)
Set bannerRS=Server.CreateObject("ADODB.recordset")
bannerRS.Open sqlban,SQLConn '/// Open banner table to get catcode
If bannerRS.EOF then
Response.Write("No Category Found")
' *****Redirection to Home Page To Be Added
Else '// If no cat found then update SQL table 'sendcard'
sqlRS("category") = bannerRS("category")
sqlRS.Update
'Response.write("Updated category to : " & sqlRS("category"))
varcategory=bannerRS("category")
End if
bannerRS.close
Set bannerRS=nothing
End if
'// Link To .asp file which will show a default Thank You Card to the recipient
link_href="../r_thank.asp?rec="&Server.URLEncode(varrecipname)&"&rmail="&Server.URLEncode(varrecipemail)&"&sender="&Server.URLEncode(varsendername)&"&smail="&Server.URLEncode(varsenderemail)
link_href1="../reply.asp?rec="&Server.URLEncode(varrecipname)&"&rmail="&Server.URLEncode(varrecipemail)&"&sender="&Server.URLEncode(varsendername)&"&smail="&Server.URLEncode(varsenderemail)&"&ty=fl"
sSql = "SELECT * FROM flashcarddetail WHERE cardnum='" & varcardnum & "'"
cardRS.Open sSql,sqlConn,adOpenKeyset,adLockReadOnly '/// SQL-server database
IF cardRS.EOF THEN '/// Commented this block since no need
'Response.Write("No Category Found")
i=1
While IsNumeric(right(varcardnum,i))
i=i+1
Wend
scat=left(varcardnum,len(varcardnum)-(i-1))
banner_sql = "SELECT * FROM flashcardmaster WHERE subcategory='" & scat & "'"
Set banner_rs = SQLConn.Execute(banner_sql)
cat=banner_rs("category")
Set banner_rs = Nothing
'// Update sendcard table for category mismatch
sqlRS("category") = TRIM(cat)
sqlRS.Update
SQL = "SELECT * FROM flashcarddetail WHERE cardnum='" & varcardnum & "'"
'Response.Write(sql)
Set cardRS = SQLConn.Execute(SQL)
End If
'// Collect Values from table
varbimg = cardRS("bimg")
varbcolor = cardRS("pagecolor")
varwidth = cardRS("width")
varheight = cardRS("height")
varswfpath = cardRS("swfpath")
If Ucase(varcardnum) ="FLB31" Then
varswfpath = "./images/Birthday/flash/b31a.swf?name="&server.urlencode(varname)&"&age="&varage
End if
varloopval = cardRS("loopval")
varbgcolorval = cardRS("bgcolorval")
'//Create