<% ' taking values from hidden text box of the users r_name = Request.Form("r_name") r_email = Request.Form("r_email") y_name = Request.Form("y_name") y_email = Request.Form("y_email") send_param_Value1 = Request.Form("send_param_value1") send_param_Value2 = Request.Form("send_param_value2") greet_color = Request.Form("greet_color") greet_size = Request.Form("greet_size") greet_font = Request.Form("greet_font") f_name = Request.Form("f_name") 'response.write "Param 1 = " & send_param_Value1 & "
" 'response.write "Param 2 = " & send_param_Value2 & "
" 'response.write "Your Name = " & y_name & "
" 'response.write "Your Mail = " & y_email & "
" 'response.write "Recp NAME = " & r_name & "
" 'response.write "Recp MAIL = " & r_email & "
" 'response.write "File Name = " & f_name & "
" 'response.end dim conn,rs,a,b,sql,rs_sql,gl_srno,gl_filename Set Conn=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.Recordset") Set rs_sql=Server.CreateObject("ADODB.Recordset") Conn.Open "sambhav" rs.open "select * from E_Greetings",conn,1,3 rs.AddNew rs("y_name")=y_name rs("y_email")=y_email rs("r_name")=r_name rs("r_email")=r_email rs("greet_title")=send_param_Value1 rs("message")=send_param_Value2 rs("greet_color")=greet_color rs("greet_size")=greet_size rs("greet_font")=greet_font rs.Update sql = "SELECT * FROM E_Greetings where " &_ "y_name='" & y_name & "' and y_email='" & y_email & "' and r_name='" & r_name & "' and r_email='" & r_email & "' " rs_sql.open sql,conn,1,3 set gl_srno = rs_sql("srno") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = y_name 'From Name Mailer.FromAddress = y_email 'From E-Mail Mailer.RemoteHost = "gemini.1stchoice-nt.net" ' Old Sentence Mailer.AddRecipient Request.Form("recipient"), Request.Form("recipient") ' Old Sentence New Mailer.AddRecipient "Kailash Didi","kailash_10@yahoo.com" Mailer.AddRecipient r_name,r_email Mailer.Subject = "A Sambhaav E-Card from " & y_name strMsgHeader = "Greetings! we wanted to let you know that " & y_name & " has created a Sambhaav.com " & vbCrLf strMsgHeader = strMsgHeader & "e-card for you. Click this link to see it, or copy and paste this link " & vbCrLf strMsgHeader = strMsgHeader & "into your Web browser's address line : " & vbCrLf If (send_param_Value1 = "The Only thing I can Say") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "Just get to the heart") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "I miss the smile") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "Magical brush for U") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "When night seems dark") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "Laugh till your tummy ashes") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "A warm Hug for u my Angel") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "It's gonna be fine Real Soon !") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "Warm Christmas Greeting") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "Christmas Angels Greetings") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "Vande Mataram") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf '/***************************** NEw changes ****************/ Elseif (send_param_Value1 = "You are Special") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "Each day with You") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "Happy Valentine Day Sweetheart") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "I wanna be yours") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf Elseif (send_param_Value1 = "To the one I Love") then strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf '/***************************** Till Here****************/ Else strMsgHeader = strMsgHeader & "Click Here to Preview Your E-Card" & vbCrLf End If strMsgHeader = strMsgHeader & "You can also go to our home page to see it. Here's a link:" & cbCrLf strMsgHeader = strMsgHeader & "" & vbCrLf strMsgHeader = strMsgHeader & vbCrLf strMsgHeader = strMsgHeader & "This e-card will be available for 60 days. If you'd like to send one " & vbCrLf strMsgHeader = strMsgHeader & "back, use the Send This Greeting button beside e-card. Enjoy!" & cbCrLf strMsgHeader = strMsgHeader & vbCrLf 'strMsgHeader = strMsgHeader & "Dharmendra " strMsgHeader = strMsgHeader & "Sambhaav.com" & vbCrLf 'for each qryItem in Request.Form ' strMsgInfo = strMsgInfo & qryItem & " - " & request.Form(mess) & vbCrLf 'next strMsgInfo = "Mail Message for Sambhaav " & vbCrlf & mess strMsgFooter = vbCrLf & "End of form information" Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter If Mailer.SendMail Then %>
 

 

 

Card Created Successfully !!    [ Card No. - FSP090302<%=gl_srno%>7AW40 ]
 Free Newsletter
 Add your email address:


Liked our Site?
Recommend us to
your friend

size=13>





 

Thank You for creating a card at Sambhaav.com. Card Details have been emailed to <%=r_name%> at <%=r_email%> and You. Help us improve our service with your Suggestions & Comments.


<%=r_name%> at <%=r_email%> has been notified that there is a Sambhaav greeting card waiting to be picked up.

<%=y_name%> at <%=y_email%> has been notified that there is a Sambhaav greeting card waiting to be picked up.



Receive free Sambhaav Fun-News and Special Offers.
Get the best new greetings e-mailed to you each week.


Send a Free Sambhaav Greeting!
Let someone know how much you care!




© 200
2 Sambhaav.com
All Rights Reserved!

<% Else Response.Write "Mail send failure. Error was " & Mailer.Response End If rs.close rs_sql.close conn.close %>