'RSVP 'in use......... this function is used for rsvp when user invite guest from invite more guest section from user dashboard function fnEmail_Invitation(reqHosted_By,tmpEmail_add,reqEvent_Title,reqtmpMSG,Gen_Website_Address,req_Invite_ID,recSecCode) 'Ad_ID = fnFindAdID("Invitation",req_Invite_ID) if Ad_ID <> "" then req_ad_image =FnGetValue("tbl_ad_request","ad_image","ad_id="&Ad_ID &" and paid_status = 1") req_url =FnGetValue("tbl_ad_request","url","ad_id="&Ad_ID) end if Set RSCat2 = Server.CreateObject("ADODB.Recordset") sql = "select * from tbl_desievite_event where Invite_ID= " & req_Invite_ID RSCat2.Open sql, cn,1,1 Do While Not RSCat2.EOF req_Email_Head = RSCat2("Email_Header") reqEmail_Message = RSCat2("Email_Message") reqEmail_Message_Sub = RSCat2("Email_Header_Sub") reqEvent_Title = RSCat2("Event_Name") 'reqEvent_Title = reqHosted_By reqEvDate = RSCat2("Event_Date") reqTime_Hr = RSCat2("Event_Time") reqEvent_Time_AM_PM = RSCat2("Event_Time_AM_PM") reqLocation = RSCat2("Name") reqHosted_By = RSCat2("Hosted_by") reqEvent_User = RSCat2("UserName") reqEvent_Lang = RSCat2("Event_Lang") 'reqFileName = fnGetvalue("tbl_Theme","Picture","Theme_ID="&RSCat2("Theme")) reqFileName = md5(reqEvent_User & "_Invitation_" & req_Invite_ID & "_Desktop") &".jpg" template_flag = fnGetvalue("tbl_Theme","template_flag","Theme_ID="&RSCat2("Theme")) 'reqLocation1 = reqLocation reqLocation1 = "" if RSCat2("Street") <> "" then reqLocation1 = RSCat2("Street") End if if template_flag = "" then template_flag = 0 End if if template_flag = 1 then ' do Nothing else if RSCat2("usr_upld_img_1") <> "" and trim(RSCat2("usr_upld_img_1")) <> "NULL" and trim(RSCat2("usr_upld_img_1")) <> "no_image.gif" then reqFileName= RSCat2("usr_upld_img_1") tmpPath = "Documents\" & reqFileName elseif trim(RSCat2("usr_upld_img_2")) <> "" and trim(RSCat2("usr_upld_img_2")) <> "NULL" and trim(RSCat2("usr_upld_img_2")) <> "no_image.gif" then reqFileName= "youtube.png" tmpPath = "Images\youtube.png" End if End if RSCat2.MoveNext Loop dbAccountType = fnGetValue("tbl_User","AccountType","UserName = '"& reqEvent_User & "'") if dbAccountType = "Premium" then dbAccountName = fnGetValue("tbl_User","First_Name","UserName = '"& reqEvent_User & "'") reqFrom_Address = dbAccountName & "<"& reqEvent_User &">" else reqFrom_Address = "DesiEvite" end if reqEvent_Link = Gen_Website_Address&"detail/" & req_Invite_ID & "/?SecCode=" & recSecCode & "&UserName=" & tmpEmail_add reqEvent_Link_Print = Gen_Website_Address&"Invitation_Details_Print_Preview.asp?SecCode=" & recSecCode & "&UserName=" & tmpEmail_add & "&Invite_ID=" & req_Invite_ID 'response.Write(reqtmpMSG) reqtmpMSG = GuestEmailMessage (reqHosted_By,reqEvent_Lang,req_Email_Head,reqEvent_Title,reqEvDate,reqTime_Hr,reqEvent_Time_AM_PM,reqLocation1,reqEmail_Message,reqEvent_Link,reqEvent_Link_Print,reqFileName,tmpEmail_add,req_url,req_ad_image,reqNameaddress,1) 'reqFrom_Address = "DesiEvite" reqTo_Address = trim(tmpEmail_add) 'reqSubject = reqHosted_By &" invited you to "& reqEvent_Title reqSubject = reqEmail_Message_Sub reqtmpMSG = reqtmpMSG reqReplyTo = reqTo_Address reqReplyTo = Session("Full_Name") & "<"&Session("User_Name")&">" 'response.Write(reqtmpMSG) 'fnSent_Email_New_Invitation reqFrom_Address,reqReplyTo,reqTo_Address,reqSubject,reqtmpMSG fnSent_Email_New reqFrom_Address,reqReplyTo,reqTo_Address,reqSubject,reqtmpMSG 'just to check if email is going to junk or not reqTo_Address_Self ="admin@desievite.com" fnSent_Email_New reqFrom_Address,reqReplyTo,reqTo_Address_Self,reqSubject,reqtmpMSG end function 'RSVP 'in use........call from fnEmail_Invitation. this function is used for rsvp email message template for guest when user invite guest from invite more guest section from user dashboard function GuestEmailMessage(reqHosted_By,reqEvent_Lang,req_Email_Head,reqEvent_Title,reqEvDate,reqTime_Hr,reqEvent_Time_AM_PM,reqLocation1,reqEmail_Message,reqEvent_Link,reqEvent_Link_Print,reqFileName,tmpEmail_add,req_url,req_ad_image,reqNameaddress,Emailflag) reqtmpMSG = "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "
Connecting Community
" & req_Email_Head & " " &reqNameaddress&"
" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "
 " if trim(reqEmail_Message) <> "" then reqtmpMSG = reqtmpMSG & replace(reqEmail_Message,vbCrLf,"
") end if reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "
Are you attending ?" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "Yes
" reqtmpMSG = reqtmpMSG & "		" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "May Be
" reqtmpMSG = reqtmpMSG & "		" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "No
" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "


" reqtmpMSG = reqtmpMSG & "
Click Below For More Details. " if Emailflag = 1 then reqtmpMSG = reqtmpMSG & vbCrLf & "Invitation Image" else Set Thumbfs=Server.CreateObject("Scripting.FileSystemObject") if Thumbfs.FileExists(Pub_Thumb_Path&"/invitation/Thumb-"&reqFileName) then ThumbImageSRC = Gen_Website_Address & "thumb_img/invitation/Thumb-" & reqFileName else ThumbImageSRC = Gen_Website_Address & "Documents/" & reqFileName & "?width=173&height=125&mode=pad&format=jpg&quality=100" end if reqtmpMSG = reqtmpMSG & vbCrLf & "Invitation Image" Set Thumbfs= nothing end if reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "
Note :- If you are not able to open this invitation after clicking on invitation request then please copy below link in a new browser to open and view this invitation..
" reqtmpMSG = reqtmpMSG & "" &reqEvent_Link& "

" reqtmpMSG = reqtmpMSG & "

Is this email going to your junk/bulk folder? Add desieviteadmin@desievite.com to your address book to that you receive all future DesiEvite invitations in your inbox.ensure.
" reqtmpMSG = reqtmpMSG & "DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy.
" GuestEmailMessage = reqtmpMSG End Function function fnSend_Event_reminder_mail(reqEvent_Title,reqSecurity_Code,tmpEmail_add,reqInvite_ID) 'Ad_ID = fnFindAdID("Invitation",reqInvite_ID) if Ad_ID <> "" then req_ad_image =FnGetValue("tbl_ad_request","ad_image","ad_id="&Ad_ID) req_url =FnGetValue("tbl_ad_request","url","ad_id="&Ad_ID) end if 'tmpEmail_add reqEvent_Link = Gen_Website_Address & "detail/" & reqInvite_ID & "/?SecCode=" & reqSecurity_Code & "&UserName=" & tmpEmail_add reqtmpMSG = "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "

Connecting Community

" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "

Hello "& tmpfullname &"

" reqtmpMSG = reqtmpMSG & "

"& reqHosted_By&" has sent you reminder message for

" reqtmpMSG = reqtmpMSG & "

"& reqEvent_Title &"

" reqtmpMSG = reqtmpMSG & "

"&event_date&"

" reqtmpMSG = reqtmpMSG & "

"&reqHosted_By&" said:
"& reqEmail_Message&"

" reqtmpMSG = reqtmpMSG & "

 

" reqtmpMSG = reqtmpMSG & "

Note :- If you are not able to open this invitation after clicking on invitation request then please copy below link in a new browser to open and view this invitation.
"& reqEvent_Link&"

Desievite respects your privacy. For more information, please review our privacy policy. Add desieviteadmin@desievite.com to your address book to ensure that you receive Desievite emails in your inbox.

" reqtmpMSG = reqtmpMSG & "
" if Ad_ID <> "" then reqtmpMSG = reqtmpMSG & "
" end if 'response.Write(reqtmpMSG) reqFrom_Address = reqHosted_By &"" reqTo_Address = tmpEmail_add reqSubject = reqHosted_By& " sent you reminder of " & reqEvent_Title reqMSG = reqtmpMSG 'reqReplyTo = Session("Full_Name") & "" fnSent_Email_New reqFrom_Address,reqFrom_Address,reqTo_Address,reqSubject,reqtmpMSG 'fnSent_Email_New reqFrom_Address,reqReplyTo,reqTo_Address,reqSubject,reqtmpMSG end function function fnSend_Event_updates_mail(reqEvent_Title,reqSecurity_Code,tmpEmail_add,reqInvite_ID) ' response.Write("title=".reqEvent_Title) reqEvent_Link = Gen_Website_Address & "detail/" & reqInvite_ID & "/?SecCode=" & reqSecurity_Code & "&UserName=" & tmpEmail_add reqtmpMSG = "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "

Connecting Community

" reqtmpMSG = reqtmpMSG & "
" reqtmpMSG = reqtmpMSG & "

Hello "& tmpfullname &"

 

" reqtmpMSG = reqtmpMSG & "

"& reqHosted_By&" sent you updated invitation for

 

" reqtmpMSG = reqtmpMSG & "

"& reqEvent_Title &"

" reqtmpMSG = reqtmpMSG & "

"&tmpevent_date&"

 

" reqtmpMSG = reqtmpMSG & "

"&reqHosted_By&" said:
"& reqEmail_Message&"

" reqtmpMSG = reqtmpMSG & "

 

 

 

 

" reqtmpMSG = reqtmpMSG & "

Note :- If you are not able to open this invitation after clicking on invitation request then please copy below link in a new browser to open and view this invitation.

"& reqEvent_Link&"

Desievite respects your privacy. For more information, please review our privacy policy. Add desieviteadmin@desievite.com to your address book to ensure that you receive Desievite emails in your inbox.

" reqtmpMSG = reqtmpMSG & "
" if Ad_ID <> "" then reqtmpMSG = reqtmpMSG & "
" end if 'response.Write(reqtmpMSG) reqFrom_Address = reqHosted_By &"" reqTo_Address = tmpEmail_add reqSubject = reqHosted_By& " sent you invitation updates " & reqEvent_Title reqMSG = reqtmpMSG reqReplyTo = Session("Full_Name") & "<"&Session("User_Name")&">" 'fnSent_Email reqFrom_Address,reqTo_Address,reqSubject,reqtmpMSG fnSent_Email_New reqFrom_Address,reqReplyTo,reqTo_Address,reqSubject,reqtmpMSG end function ' Event Posted before 8 hrs and (event_date >= todays date and event time > current time) function fnBeforeEventSendEventStatisticsEMail() 'cn.execute "UPDATE tbl_desievite_event SET LastSentEventStatistics = Posted_Date " cur_date = date() CurDateTIme = now() ' For Yashwant Sir - To Set time Limit SendReminderAfterNoofHours = 48 sql = "select Picture,Invite_ID,Event_Name,Hosted_by,UserName,Event_Date,Event_Time,Event_Time_AM_PM from tbl_desievite_event left join tbl_Theme on tbl_Theme.Theme_ID = tbl_desievite_event.Theme where " sql = sql & " DATEDIFF(hour,LastSentEventStatistics,'" & CurDateTIme & "') > " & SendReminderAfterNoofHours sql = sql & " and (Cancel_Event <> 1 or Cancel_Event = '') and (eGreetingFlag <> 1 or eGreetingFlag IS NULL or eGreetingFlag = '') and event_date > '"& cur_date &"'" 'sql = sql & " Invite_ID in (38374)" 'sqlcmd -S deserver -d desi_DE -i script.sql rs.open sql,cn,1,3 Do While Not rs.EOF reqInvite_ID = rs("Invite_ID") CntInvitedUser = fnGetCount("tbl_Invited_Users","tbl_Invited_Users.Evite_ID = " & reqInvite_ID) if CntInvitedUser > 0 then req_Event_Name = rs("Event_Name") reqHosted_By = rs("Hosted_by") reqTo_Address = rs("UserName") reqFileName = rs("Picture") reqEvent_Date = rs("Event_Date") reqEvent_Time = rs("Event_Time") reqEvent_Time_AM_PM = rs("Event_Time_AM_PM") Counter_Yes = 0 Counter_No = 0 Counter_MayBe = 0 Counter_Not_Yet_Replied = 0 Counter_Total_Invited_Guest = 0 Counter_Total_Viewed_Guest = 0 Set rsReply = Server.CreateObject("ADODB.Recordset") sqlReply = "SELECT Reply_Status from tbl_Event_Comment where Invite_ID= " & reqInvite_ID & " and Sts_Changed_Flag=0" rsReply.open sqlReply,cn,1,3 while (Not rsReply.EOF) tmpReply_Status= rsReply("Reply_Status") if tmpReply_Status = "Yes" then Counter_Yes = Counter_Yes + 1 elseif tmpReply_Status = "No" then Counter_No = Counter_No + 1 elseif tmpReply_Status = "May Be" then Counter_MayBe = Counter_MayBe + 1 end if rsReply.movenext wend rsReply.close set rsReply = nothing Counter_Not_Yet_Replied = FnGetCount("tbl_Invited_Users","Evite_ID = " & reqInvite_ID & " and Responded = 0") Counter_Total_Invited_Guest = FnGetCount("tbl_Invited_Users","Evite_ID = " & reqInvite_ID & "") Counter_Total_Viewed_Guest = FnGetCount("tbl_Invited_Users","Evite_ID = " & reqInvite_ID & " and viewed =1 and Responded = 0") if Counter_Yes = "" then Counter_Yes = 0 end if if Counter_No = "" then Counter_No = 0 end if if Counter_MayBe = "" then Counter_MayBe = 0 end if if Counter_Not_Yet_Replied = "" then Counter_Not_Yet_Replied = 0 end if if Counter_Total_Invited_Guest = "" then Counter_Total_Invited_Guest = 0 end if if Counter_Total_Viewed_Guest = "" then Counter_Total_Viewed_Guest = 0 end if SNCnt = SNCnt + 1 UniqueID = UniqueIDKeyword & SNCnt ValidationKeyURL = "key=" & Encode("UserName=" & reqTo_Address & "~UserID=" & reqUserID & "~uid=" & UniqueID) reViewInv = "" reqInvitationURL = Gen_Website_Address & "detail/" & reqInvite_ID & "/?" & ValidationKeyURL reqFrom_Address = "DesiEvite" reqSubject = "RSVP summary for '" & req_Event_Name & "'" reqMSG = "" reqMSG = reqMSG & "
" reqMSG = reqMSG & "
" reqMSG = reqMSG & "
" reqMSG = reqMSG & "
" reqMSG = reqMSG & "" reqMSG = reqMSG & "
" reqMSG = reqMSG & "
" reqMSG = reqMSG & "

Dear, " & reqHosted_By & "

" reqMSG = reqMSG & "

Here are your current RSVP for

" reqMSG = reqMSG & "

"& req_Event_Name &"

" reqMSG = reqMSG & "

on " & reqEvent_Date & " at " & reqEvent_Time & " " & reqEvent_Time_AM_PM & "

" reqMSG = reqMSG & "

" & Counter_Yes & " Replied Yes

" reqMSG = reqMSG & "

" & Counter_MayBe & " Replied Maye be

" reqMSG = reqMSG & "

" & Counter_No & " Replied No

" reqMSG = reqMSG & "

" & Counter_Not_Yet_Replied & " Have not yet replied/Viewed

" reqMSG = reqMSG & "

"&reViewInv&"

" reqMSG = reqMSG & "
Note :- If you get problem to open link, please copy and paste the URL link located towards the bottom of the email into a new browser." reqMSG = reqMSG & "

"& reqInvitationURL &"
" reqMSG = reqMSG & "
DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy
" reqMSG = reqMSG & "
" 'Response.Write(reqFrom_Address & reqTo_Address & reqSubject & reqMSG) 'fnSent_Email reqFrom_Address,reqTo_Address,reqSubject,reqMSG fnSent_Email_New reqFrom_Address,reqTo_Address,reqTo_Address,reqSubject,reqMSG 'just to test sent email to admin also fnSent_Email_New reqFrom_Address,reqFrom_Address,reqFrom_Address,reqSubject,reqMSG cn.execute "UPDATE tbl_desievite_event SET LastSentEventStatistics = '" & NOW() &"' where Invite_ID=" & reqInvite_ID End if rs.MoveNext Loop rs.close end function 'RSVP plus othrer ecard created successfully 'email to organiser function fnEmail_Invitation_Inform_User(reqHosted_By,tmpEmail_add,reqEvent_Title,reqtmpMSG,Gen_Website_Address,req_Invite_ID,recSecCode,reqUserID) Set rsEmail_Invitation_Inform_User = Server.CreateObject("ADODB.Recordset") sql = "select Email_Header,Email_Message,Guest_Message,WebProtalFlag,Event_Name,Event_UniqueURL,Event_Date,Event_Time,Event_Time_AM_PM,Theme,Event_title from tbl_desievite_event where Invite_ID = " & req_Invite_ID rsEmail_Invitation_Inform_User.Open sql, cn,1,1 do while not rsEmail_Invitation_Inform_User.eof req_Email_Head = rsEmail_Invitation_Inform_User("Email_Header") reqEmail_Message = rsEmail_Invitation_Inform_User("Email_Message") reqGuest_Message = rsEmail_Invitation_Inform_User("Guest_Message") reqWebProtalFlag = rsEmail_Invitation_Inform_User("WebProtalFlag") reqEvent_Title = rsEmail_Invitation_Inform_User("Event_Name") if reqEvent_Title = "" then reqEvent_Title = rsEmail_Invitation_Inform_User("Event_title") end if reqEvent_UniqueURL = rsEmail_Invitation_Inform_User("Event_UniqueURL") reqEvDate = rsEmail_Invitation_Inform_User("Event_Date") reqTime_Hr = rsEmail_Invitation_Inform_User("Event_Time") reqTime = rsEmail_Invitation_Inform_User("Event_Time_AM_PM") reqThemeIDinvt = rsEmail_Invitation_Inform_User("Theme") rsEmail_Invitation_Inform_User.movenext() loop rsEmail_Invitation_Inform_User.close() set rsEmail_Invitation_Inform_User = nothing ThemeType = fnGetValue("tbl_Theme","type","Theme_ID = " & reqThemeIDinvt) reqvideo_flag = fnGetvalue("tbl_Theme","video_flag","Theme_ID="&reqThemeIDinvt) reqgif_flag = fngetvalue("tbl_Theme","gif_flag","Theme_ID = " & reqThemeIDinvt) if reqgif_flag = 1 then reqvideo_flag = 1 end if VerifyPurcahsedRecordFound = fnGetCount("tbl_user_payment_transaction","user_name = '" & tmpEmail_add & "' and ThemeID = " & reqThemeIDinvt) reqEvent_Link = Gen_Website_Address&"detail/" & req_Invite_ID & "/?SecCode=" & recSecCode & "&UserName=" & tmpEmail_add SNCnt = SNCnt + 1 UniqueID = UniqueIDKeyword & SNCnt ValidationKeyURL = "key=" & Encode("UserName=" & tmpEmail_add & "~UserID=" & reqUserID & "~uid=" & UniqueID) reqInvitationURL = Gen_Website_Address & "detail/" & req_Invite_ID & "/?" & ValidationKeyURL reqtmpMSG = "" if ThemeType <> "Premium" or VerifyPurcahsedRecordFound > 0 then ImagePDFFileName = md5(tmpEmail_add & "_Invitation_" & req_Invite_ID & "_Desktop") else ImagePDFFileName = md5(tmpEmail_add & "_Invitation_" & req_Invite_ID & "_Desktop_Premium") End if if reqWebProtalFlag = 1 then ' --- Email Subject - Start reqSubject = "Website created successfully for Event : " & reqEvent_Title ' --- Email Subject - End ' --- Email Message - Start reqtmpMSG = reqtmpMSG & "

Connecting Communities
 
" reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & "
Hello
" reqtmpMSG = reqtmpMSG & reqHosted_By & "
Your Website is created successfully.
Your Website for " reqtmpMSG = reqtmpMSG & reqEvent_Title reqtmpMSG = reqtmpMSG & " is created.
" reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & "
Event " & reqEvent_Title & "
Date & Time " & FormatDateTime(reqEvDate,1) & " " & reqTime_Hr & " " & reqTime & "
Website URL https://www.desievite.com/"&reqEvent_UniqueURL& "

 

" reqtmpMSG = reqtmpMSG & "

View Website

" reqtmpMSG = reqtmpMSG & "

 

" reqtmpMSG = reqtmpMSG & "
Note :- If you get problem to open link, please copy and paste the URL link located towards the bottom of the email into a new browser.

" reqtmpMSG = reqtmpMSG & "https://www.desievite.com/"&reqEvent_UniqueURL reqtmpMSG = reqtmpMSG & "

DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy
" ' --- Email Message - End else GuestCnt = fnGetCount("tbl_Invited_Users","Evite_ID = '" & req_Invite_ID &"'") if GuestCnt > 0 then ' --- Email Subject - Start reqSubject = reqEvent_Title & " sent successfully" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "

Connecting Communities
 
" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "
 
Dear " & reqHosted_By & "
" reqtmpMSG = reqtmpMSG & "
 
" reqtmpMSG = reqtmpMSG & "We've e-mailed your " & reqEvent_Title & " invitations to everyone on your guest list.
Now you can relax and look forward to gathering everyone together at DesiEvite.com.
To View User Response and Make changes to this event plz click on view Invitation
" reqtmpMSG = reqtmpMSG & "
 

" reqtmpMSG = reqtmpMSG & "

" reqtmpMSG = reqtmpMSG & "View Invitation Dashboard
" reqtmpMSG = reqtmpMSG & "

" reqtmpMSG = reqtmpMSG & "

" reqtmpMSG = reqtmpMSG & "Download Invitation Image
" reqtmpMSG = reqtmpMSG & "

 
Guest List
What to do Next ?
" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" GuestCntloop = 1 sql = "select * from tbl_Invited_Users where Evite_ID = '" & req_Invite_ID &"'" Set rstMailGuestCnt = Server.CreateObject("ADODB.Recordset") rstMailGuestCnt.Open sql, cn,1,1 do while not rstMailGuestCnt.eof reqToName = rstMailGuestCnt("Full_Name") reqToEmail = rstMailGuestCnt("UserName") reqtmpMSG = reqtmpMSG & "" GuestCntloop = GuestCntloop + 1 rstMailGuestCnt.movenext() loop set rstMailGuestCnt = nothing reqtmpMSG = reqtmpMSG & "
Total Guests : " & GuestCnt & "
" & GuestCntloop & ") " & reqToName & " " & reqToEmail & "
" reqtmpMSG = reqtmpMSG & "		" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "" reqtmpMSG = reqtmpMSG & "
Download Invitation
Social Share

Download your Event Invitation as Image or PDF.

You can share your Invitation on Social Networking Sites like Facebook, google plus and twitter.

 
Send Invitation Card to Friends/Guests

You can send invites to your friends and guests. Your friends and guests can RSVP your invite and you will have list of people who will be attending or not attending party.

 
" reqtmpMSG = reqtmpMSG & "
Note :- If this link does not open then please copy and paste the URL link located towards the bottom of the email into a new browser.

" reqtmpMSG = reqtmpMSG & "https://www.desievite.com/InvitationDashBoard.asp?MaxInvite_ID=" & req_Invite_ID & "&" & ValidationKeyURL & "'" reqtmpMSG = reqtmpMSG & "

DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy
" else ' --- Email Subject - Start if reqvideo_flag = 1 then reqSubject = reqEvent_Title & " Video Created successfully" ' --- Email Subject - End reqtmpMSG = reqtmpMSG & "" &_ "" &_ "

Connecting Communities
 
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
 
Dear " & reqHosted_By & "
 
" &_ "
Your Invitation Video is created successfully.
 
" &_ "
 
What to do Next ?
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
Download Invitation
Social Share

Download your Event Invitation Video and Send on Whatsapp to your Contacts.

You can share your Invitation on Social Networking Sites like Facebook, google plus and twitter.

 
Send Invitation Card to Friends/Guests

You can send invites to your friends and guests. Your friends and guests can RSVP your invite and you will have list of people who will be attending or not attending party.

 
Note :- If this link does not open then please copy and paste the URL link located towards the bottom of the email into a new browser. " &_ "

https://www.desievite.com/InvitationDashBoard.asp?MaxInvite_ID=" & req_Invite_ID & "&" & ValidationKeyURL & "'" &_ "

DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy
" else reqSubject = reqEvent_Title & " Invitaiton Card Created successfully " ' --- Email Subject - End reqtmpMSG = reqtmpMSG & "" &_ "" &_ "

Connecting Communities
 
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
 
Dear " & reqHosted_By & "
 
" &_ "
Your Invitation with Image is created successfully.
 
" &_ "
 
What to do Next ?
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
Download Invitation
Social Share

Download your Event Invitation as Image or PDF.

You can share your Invitation on Social Networking Sites like Facebook, google plus and twitter.

 
Send Invitation Card to Friends/Guests

You can send invites to your friends and guests. Your friends and guests can RSVP your invite and you will have list of people who will be attending or not attending party.

 
Note :- If this link does not open then please copy and paste the URL link located towards the bottom of the email into a new browser. " &_ "

https://www.desievite.com/InvitationDashBoard.asp?MaxInvite_ID=" & req_Invite_ID & "&" & ValidationKeyURL & "'" &_ "

DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy
" end if End if End if reqFrom_Address = "DesiEvite" if Session("User_Name") <> "" and Session("User_Name") <> "desieviteadmin@desievite.com" then reqTo_Address = Session("User_Name") else reqTo_Address = tmpEmail_add end if reqMSG = reqtmpMSG 'function to Send Email fnSent_Email_New reqFrom_Address,reqFrom_Address,reqTo_Address,reqSubject,reqtmpMSG '-------- end to Send email----------------------------------------- end function function fnEmail_Invitation_Inform_User_Premium(reqHosted_By,tmpEmail_add,reqEvent_Title,reqtmpMSG,Gen_Website_Address,req_Invite_ID,recSecCode,reqUserID) Set rsEmail_Invitation_Inform_User = Server.CreateObject("ADODB.Recordset") sql = "select Email_Header,Email_Message,Guest_Message,WebProtalFlag,Event_Name,Event_UniqueURL,Event_Date,Event_Time,Event_Time_AM_PM,Theme,Event_title from tbl_desievite_event where Invite_ID = " & req_Invite_ID rsEmail_Invitation_Inform_User.Open sql, cn,1,1 do while not rsEmail_Invitation_Inform_User.eof req_Email_Head = rsEmail_Invitation_Inform_User("Email_Header") reqEmail_Message = rsEmail_Invitation_Inform_User("Email_Message") reqGuest_Message = rsEmail_Invitation_Inform_User("Guest_Message") reqWebProtalFlag = rsEmail_Invitation_Inform_User("WebProtalFlag") reqEvent_Title = rsEmail_Invitation_Inform_User("Event_Name") if reqEvent_Title = "" then reqEvent_Title = rsEmail_Invitation_Inform_User("Event_title") end if reqEvent_UniqueURL = rsEmail_Invitation_Inform_User("Event_UniqueURL") reqEvDate = rsEmail_Invitation_Inform_User("Event_Date") reqTime_Hr = rsEmail_Invitation_Inform_User("Event_Time") reqTime = rsEmail_Invitation_Inform_User("Event_Time_AM_PM") reqThemeIDinvt = rsEmail_Invitation_Inform_User("Theme") rsEmail_Invitation_Inform_User.movenext() loop rsEmail_Invitation_Inform_User.close() set rsEmail_Invitation_Inform_User = nothing ThemeType = fnGetValue("tbl_Theme","type","Theme_ID = " & reqThemeIDinvt) VerifyPurcahsedRecordFound = fnGetCount("tbl_user_payment_transaction","user_name = '" & tmpEmail_add & "' and ThemeID = " & reqThemeIDinvt) reqvideo_flag_premium = fnGetvalue("tbl_Theme","video_flag","Theme_ID="&reqThemeIDinvt) reqgif_flag_premium = fngetvalue("tbl_Theme","gif_flag","Theme_ID = " & reqThemeIDinvt) if reqgif_flag_premium = 1 then reqvideo_flag_premium = 1 end if reqEvent_Link = Gen_Website_Address&"detail/" & req_Invite_ID & "/?SecCode=" & recSecCode & "&UserName=" & tmpEmail_add SNCnt = SNCnt + 1 UniqueID = UniqueIDKeyword & SNCnt ValidationKeyURL = "key=" & Encode("UserName=" & tmpEmail_add & "~UserID=" & reqUserID & "~uid=" & UniqueID) reqInvitationURL = Gen_Website_Address & "detail/" & req_Invite_ID & "/?" & ValidationKeyURL reqtmpMSG = "" if ThemeType <> "Premium" or VerifyPurcahsedRecordFound > 0 then ImagePDFFileName = md5(tmpEmail_add & "_Invitation_" & req_Invite_ID & "_Desktop") else ImagePDFFileName = md5(tmpEmail_add & "_Invitation_" & req_Invite_ID & "_Desktop_Premium") End if AttamentFile = "" if reqWebProtalFlag = 1 then ' --- Email Subject - Start reqSubject = "Website created successfully for Event : " & reqEvent_Title ' --- Email Subject - End ' --- Email Message - Start reqtmpMSG = reqtmpMSG & "

Connecting Communities
 
" reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & "
Hello
" reqtmpMSG = reqtmpMSG & reqHosted_By & "
Your Website is created successfully.
Your Website for " reqtmpMSG = reqtmpMSG & reqEvent_Title reqtmpMSG = reqtmpMSG & " is created.
" reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & " " reqtmpMSG = reqtmpMSG & "
Event " & reqEvent_Title & "
Date & Time " & FormatDateTime(reqEvDate,1) & " " & reqTime_Hr & " " & reqTime & "
Website URL https://www.desievite.com/"&reqEvent_UniqueURL& "

 

" reqtmpMSG = reqtmpMSG & "

View Website

" reqtmpMSG = reqtmpMSG & "

 

" reqtmpMSG = reqtmpMSG & "
Note :- If you get problem to open link, please copy and paste the URL link located towards the bottom of the email into a new browser.

" reqtmpMSG = reqtmpMSG & "https://www.desievite.com/"&reqEvent_UniqueURL reqtmpMSG = reqtmpMSG & "

DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy
" ' --- Email Message - End else GuestCnt = fnGetCount("tbl_Invited_Users","Evite_ID = '" & req_Invite_ID &"'") if GuestCnt > 0 then ' --- Email Subject - Start reqSubject = reqEvent_Title & " Created successfully" ' --- Email Subject - End ' --- Email Message - Start 'reqtmpMSG = reqtmpMSG & "DesiEvite.com
Connecting Communities

" ' reqtmpMSG = reqtmpMSG & req_Email_Head & "
" & reqFirst_Name & "

" ' reqtmpMSG = reqtmpMSG & "We've e-mailed your " & reqEvent_Title & " invitations to everyone on your guest list.
Now you can relax and look forward to gathering everyone together at DesiEvite.com." ' reqtmpMSG = reqtmpMSG & "
To View User Response and Make changes to this event plz click on view Invitation " ' reqtmpMSG = reqtmpMSG & "" ' ' reqtmpMSG = reqtmpMSG & "

View Invitation    Save Invitation as Image

" ' ' reqtmpMSG = reqtmpMSG & "
Event details for your record
You said : " ' if trim(reqEmail_Message) <> "" then ' reqtmpMSG = reqtmpMSG & replace(reqEmail_Message,vbCrLf,"
") ' else ' reqtmpMSG = reqtmpMSG & replace(reqGuest_Message,vbCrLf,"
") ' End if ' reqtmpMSG = reqtmpMSG & "

If you get problem to open link, please copy and paste the URL link located towards the bottom of the email into a new browser.
" & reqInvitationURL ' ' --- Email Message - End ' reqtmpMSG = reqtmpMSG & "

Regards
www.DesiEvite.com

DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy " reqtmpMSG = reqtmpMSG & "" &_ "

Connecting Communities
 
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
 
Dear " & reqHosted_By & "
" &_ "
 
Thank you for using Desievite.
" &_ " Your Invitation is ready to send. Please make payment to complete process.
" &_ "
 
" &_ "
 
Guest List
What to do Next ?
" &_ "" GuestCntloop = 1 sql = "select * from tbl_Invited_Users where Evite_ID = '" & req_Invite_ID &"'" Set rstMailGuestCnt = Server.CreateObject("ADODB.Recordset") rstMailGuestCnt.Open sql, cn,1,1 do while not rstMailGuestCnt.eof reqToName = rstMailGuestCnt("Full_Name") reqToEmail = rstMailGuestCnt("UserName") reqtmpMSG = reqtmpMSG & "" GuestCntloop = GuestCntloop + 1 rstMailGuestCnt.movenext() loop set rstMailGuestCnt = nothing reqtmpMSG = reqtmpMSG & "
Total Guests : " & GuestCnt & "
" & GuestCntloop & ") " & reqToName & " " & reqToEmail & "
" &_ "" &_ "" &_ "" &_ "
Download Invitation
Social Share

Download your Event Invitation as Image or PDF.

You can share your Invitation on Social Networking Sites like Facebook, google plus and twitter.

 
Send Invitation Card to Friends/Guests

You can send invites to your friends and guests. Your friends and guests can RSVP your invite and you will have list of people who will be attending or not attending party.

 
" &_ "
Note :- If this link does not open then please copy and paste the URL link located towards the bottom of the email into a new browser.

" &_ "https://www.desievite.com/InvitationDashBoard.asp?MaxInvite_ID=" & req_Invite_ID & "&" & ValidationKeyURL & "'" &_ "

DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy
" else ' --- Email Subject - Start if reqvideo_flag_premium = 1 then reqSubject = reqEvent_Title & " Invitation Video Created successfully" strVideoCard = "video" strVideoCardExt = ".mp4" strInv_Images_Video = "Inv_Video" AttamentFile = "D:/inetpub/wwwroot/Documents/Inv_Video/" & ImagePDFFileName & ".mp4" else reqSubject = reqEvent_Title & " e-card Created successfully " strVideoCard = "eCard" strVideoCardExt = ".jpg" strInv_Images_Video = "Inv_Images" AttamentFile = "D:/inetpub/wwwroot/Documents/Inv_Images/" & ImagePDFFileName & ".jpg" end if 'if Session("User_Name") = "niteen241@gmail.com" then 'end if ' --- Email Subject - End reqtmpMSG = reqtmpMSG & "" &_ "" &_ "

Connecting Communities
 
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
 
Dear " & reqHosted_By & "
 
" &_ "
Your Invitation "& strVideoCard &" has been created successfully.
Go to dashboard to update/edit your ecard, you can make payment to remove watermark and logo.
 
 
 
 
What you can do ?
" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
Download Invitation eCard
Remove Watermark/logo

Download your invitation ecard or video. : Click here to download preview copy
You can share your Invitation card on Social Networking Sites like whatsapp, facebook, google plus and twitter.

To remove logo and download final copy(You can edit card after payment also) Click here to Complete Payment

 
Update/Edit your eCard

Go to dashboard to update/edit your ecard. You can send invites to your friends and guests. Your friends and guests can RSVP your invite and you will have list of people who will be attending or not attending party. Click here to open Invitation Dashboard

 
Note :- If this link does not open then please copy and paste the URL link located towards the bottom of the email into a new browser. " &_ "

https://www.desievite.com/InvitationDashBoard.asp?MaxInvite_ID=" & req_Invite_ID & "&" & ValidationKeyURL & "'" &_ "

DesiEvite.com respects your privacy. To see how we treat your information, please review our Privacy Policy
" End if End if reqFrom_Address = "DesiEvite" if Session("User_Name") <> "" and Session("User_Name") <> "desieviteadmin@desievite.com" then reqTo_Address = Session("User_Name") else reqTo_Address = tmpEmail_add end if reqMSG = reqtmpMSG 'function to Send Email 'if AttamentFile <> "" then ' fnSent_Email_NewAttachemtn reqFrom_Address,reqFrom_Address,reqTo_Address,reqSubject,reqtmpMSG,AttamentFile 'else fnSent_Email_New reqFrom_Address,reqFrom_Address,reqTo_Address,reqSubject,reqtmpMSG 'end if '-------- end to Send email----------------------------------------- end function marathi नवीन दुकान उद्घाटन निमंत्रण पत्रिका मराठी (udghatan samarambh nimantran patrika)
  1. Home
  2. Invitations
  3. rituals
  4. office-inauguration-opening

marathi नवीन दुकान उद्घाटन निमंत्रण पत्रिका मराठी (udghatan samarambh nimantran patrika)

Ecard ID
19816
Name
marathi नवीन दुकान उद्घाटन निमंत्रण पत्रिका मराठी (udghatan samarambh nimantran patrika)
ecard Price
RS 99.00
About ecard
marathi Format : PNG, Digital Invitation eCard for whatsapp, instagram, etc.
How to create
Just fill out the form below and click [Update & Preview eCard] to see your design come to life.
Delivery time?
Instant Online Download. You can see/download preview ecard before payment.
marathi udghatan samarambh nimantran patrika template 86
Your e-card will be sent to the email address provided.
Sample Photo
Sample Photo
Select text from our invitation wording samples Use Translate for typing
For proper regional font please choose language..
Upload Photo
Upload Photo-4
Sample Photo
Sample Photo
Update & Preview e-card..

Verify all details before clicking Update & Preview (limited attempts) to generate your shareable digital e-card. Ensure your email is correct to receive a preview copy. Making your invitation is quick and easy! This is a 100% online template no need to download any apps. You can edit it directly on your phone or computer.

shop opening function invitation card (ID-13686 Static Card )
shop opening function invitation card
new shop opening function invitation ecard (ID-13687 Static Card )
new shop opening function invitation ecard


Related Tags :
healthcare Opening-video

See all ecard category

Copyright © DesiEvite.com, 2015-2026, Contactus Email : DesiEviteAdmin@DesiEvite.com, Help/FAQ