<% Dim g_str_OnlyNumeric,g_str_OnlyNumericWithComma,g_str_OnlyNumericWithDecimal g_str_OnlyNumeric = "onKeyDown='if(event.keyCode == 37){return true};if(event.keyCode == 39){return true};if(event.keyCode == 46){return true};if(event.keyCode == 9){return true};if(event.keyCode == 8){return true};if(event.keyCode > 95 && event.keyCode < 106)return true;if(event.keyCode < 48 || event.keyCode > 57)return false;'" g_str_OnlyNumericWithComma = "onKeyDown='if(event.keyCode == 37){return true};if(event.keyCode == 39){return true};if(event.keyCode == 46){return true};if(event.keyCode == 188){return true};if(event.keyCode == 9){return true};if(event.keyCode == 8){return true};if(event.keyCode > 95 && event.keyCode < 106)return true;if(event.keyCode < 48 || event.keyCode > 57)return false;'" g_str_OnlyNumericWithDecimal = "onKeyDown='if(event.keyCode == 37){return true};if(event.keyCode == 39){return true};if(event.keyCode == 46){return true};if(event.keyCode == 190){return true};if(event.keyCode == 110){return true};if(event.keyCode == 9){return true};if(event.keyCode == 8){return true};if(event.keyCode == 110){return true};if(event.keyCode > 95 && event.keyCode < 106)return true;if(event.keyCode < 48 || event.keyCode > 57)return false;'" %> <% dim rs set rs=Server.CreateObject("adodb.recordset") rs.open "select Question from MastPolling where Active=true",cn,1,2 %> <% if Request.QueryString("command")="delete" then cn.execute "delete from MastSuggestion where ID=" & int(Request.QueryString("id")) & "" end if %> <% if Request.QueryString("command")="add" then dim rsadd,sucuss,duplicate duplicate=false sucuss=false 'str2=request.form("City") 'txtcity = replace(replace(str2,"""","""),"'"," ") set rsadd=Server.CreateObject("adodb.recordset") 'sql="select *from MastSuggestion where Suggestion='" & replace(replace(Request.Form("suggestion"),"""","""),"'"," ") & "'" sql="select *from MastSuggestion" rsadd.open sql,cn,1,2 'if rsadd.eof then rsadd.addnew if Request.Form("name")="" then rsadd("SuggestionName")="" else rsadd("SuggestionName")=replace(replace(Request.Form("name"),"""","""),"'"," ") end if if Request.Form("address")="" then rsadd("Address")="" else rsadd("Address")= replace(replace(Request.Form("address"),"""","""),"'"," ") end if if Request.Form("email")="" then rsadd("EmailID")="" else rsadd("EmailID")=replace(replace(Request.Form("email"),"""","""),"'"," ") end if if Request.Form("suggestion")="" then rsadd("Suggestion")="" else rsadd("Suggestion")=replace(replace(Request.Form("suggestion"),"""","""),"'"," ") end if rsadd.update myHTML = "" myhtml = myhtml & "" myhtml = myhtml & "" myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " if Request.Form("name")=""then else myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " end if if Request.Form("address")=""then else myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " end if if Request.Form("email")=""then else myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " end if if request.Form("suggestion")="" then else myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " end if myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & " " myhtml = myhtml & "
Dear "&request.Form("name")&",
You have submitted the following details
Name
:
"&request.Form("name")&"
Address
:
"&request.Form("address")&"
Email ID
:
"&request.Form("email")&"
Suggestion
:
"&request.Form("suggestion")&"
Team,
sambhaav
" dim cdoConfig, cdoMessage sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.sambhaav.com" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "act@sambhaav.com" if Request.Form("email")<>"" then cdoMessage.To = Request.Form("email") end if cdoMessage.CC = "webadmin@urlsoftware.com" cdoMessage.BCC = "feedback@urlsoftware.com" cdoMessage.Subject = "Suggestion on Sambhaav" cdoMessage.HTMLBody = myhtml 'response.Write(myhtml) 'response.End() cdoMessage.Send set cdoConfig = nothing set cdoMessage = nothing response.Redirect("Abhiyan_English.asp?command=addnew&action=thanks") 'else 'duplicate=true 'end if end if %>

 

17-01-09

<% end if%>
<% if Request.QueryString("action")="thanks" then %>
Thank You for Submitting
Your Suggestion.
<% else %>
  * Required Fields
Name :
Address :
Email :
* Suggestion :
   
 
Sambhaav House,
Opp. Chief Justice Bungalow, Bodakdev, Ahmedabad - 380 015
Fax: 079-40009328, 079-26873922 email: act@sambhaav.com

Give your suggestions
to fight terror

Pledge to fight terror

 

| About us | Feedback & Comments | E-mail Metro | Press Release | Advertise Here | Disclaimer 

Copyright 2005 SAMBHAAV MEDIA LIMITED. Ahmedabad, India. All Rights Reserved.
Creative commons Licence
The site is best viewed in Internet Explorer 4.0 or higher version
Resolution: 800 x 600 pixels