<% id=request("id") if id="" then %>
 Please fill the following fields:-
 Nane  
 Email  
 Address  
 Phone  
 City  
 Place of Marriage  
 Number of Expected Guest  
 Category  
 Cattering   Yes  No
 Shamiyana Decoration   Yes  No
 Light Decoration   Yes  No
 Flower Decoration   Yes  No
 
<% else name=request("name") email=request("email") address=request("address") phone=request("phone") city=request("city") place=request("place") noofguest=request("noofguest") category=request("category") cattering=request("cattering") shamiyana=request("shamiyana") light=request("light") flower=request("flower") condition1=""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" if cattering="Y" then condition2=""&_ "" else condition2=""&_ "" end if if shamiyana="Y" then condition3=""&_ "" else condition3=""&_ "" end if if light="Y" then condition4=""&_ "" else condition4=""&_ "" end if if flower="Y" then condition5=""&_ "" else condition5=""&_ "" end if condition6="
 Details of Marriage Event are given below:-
 Nane "&name &"
 Email "& email&"
 Address "&address&"
 Phone "&phone &"
 City  "& city &"
 Place of Marriage "& place &"
 Number of Expected Guest "& noofguest &"
 Category "& category &"
 Cattering  Yes  No
 Cattering  Yes  No
 Shamiyana Decoration  Yes  No
 Shamiyana Decoration  Yes  No
 Light Decoration  Yes  No
 Light Decoration  Yes  No
 Flower Decoration  Yes  No
 Flower Decoration  Yes  No
 
" Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' ** U COULD USE ANY REMOTE SMTP SERVER INSTEAD OF THE CURRENT SMTP SERVER** .Update End With With iMsg Set .Configuration = iConf .TO = "events@uttranchalishadi.com" .From = email .Subject = "Details of Marriage Event" .HTMLBody=condition1&condition2&condition3&condition4&condition5&condition6 '.TextBody=strTextMailBody ' ** COMMENT THE ABOVE LINE AND UNCOMMENT THIS LINE TO SEND PLAIN TEXT EMAILS ** .Send End With Set Flds = Nothing Set iMsg = Nothing Set iConf = Nothing %>

Information has been added successfully,
We will get back to you very soon

<% end if %>