<%langusge=vbscript%> <% response.buffer=true%> <% ref1=Request.ServerVariables("HTTP_REFERER") if ref1="" then ref1="http://www.rakhigiftstore.com/feedback-form.asp" end if ref2="http://www.rakhigiftstore.com/" 'response.write(ref) if InStr (1,ref1,ref2,0)>0 then dim mymail dim title,name,email,layout,loadtime,sectionheads,friendliness,comments title=trim(request.form("title")) name=trim(request.form("name")) email=trim(request.form("email")) layout=trim(request.form("layout")) loadtime=trim(request.form("loadtime")) sectionheads=trim(request.form("sectionheads")) friendliness=trim(request.form("friendliness")) comments=trim(request.form("comments")) 'IF request("verificationCode") <> "" AND request("verificationCode") = session("verificationCode") THEN 'if request("submit")<>" " then 'response.write("hello1") 'end if main="
We have received following message from "&title&" "&name&"
("&email&")
Referer URL:http://www.rakhigiftstore.com/feedback-form.asp
Name:"&title&""&name&"
E-mail:"&email&"
Layout:"&layout&"
Load Time:"&loadtime&"
Section Head:"§ionheads&"
Friendliness:"&friendliness&"
Comments:"&comments&"
" set mymail=server.CreateObject ("CDONTS.Newmail") mymail.MailFormat=0 mymail.BodyFormat=0 mymail.From=email mymail.To="sales@rakhigiftstore.com" mymail.cc="priya@infobase.co.in" 'mymail.To="kapil@infobase.co.in" mymail.Subject="Feedback from RakhiGiftStore.com" mymail.Body= main mymail.Bcc="simar@infobase.co.in;kapil@infobase.co.in" mymail.Send set mymail=NOTHING 'ELSE %> Raksha Bandhan,Raksha Bandhan 2004,Rakshabandhan,Raksha Bandhan India,Online Raksha Bandhan Gifts,Send Raksha Bandhan Gifts,India
Information on Raksha Bandhan, Gift Store for Raksha Bandhan 2004, Raksha Bandhan Gifts in India, 2004 Rakshabandhan Gifts in India, Raksha Bandhan Gift Store, Rakshabandhan Festival, Raksha Bandhan Online Shopping, Raksha Bandhan Gifts to India, Raksha Bandhan Celebrations, Rakasha Bandhan Festival, Raksha Bandhan Gift Hampers, Online Rakha Bandhan Shopping Store for Raksha Bandhan Gift Packs and Designer Rakhis in India.


<% dim state state=trim(request.form("action")) if state="" then state="form" end if if state="form" Then %>
Feedback

Please fill the feedback form given below:

( * Denotes a required field. )
Title
Name*
" SIZE="20" MAXLENGTH="50">
Email*

Please rate the site on following factors
Site Layout*
Load Time*
Section Heads*
User Friendliness*
Other Comments
Verify  Verify Code  


<% 'IF request("verificationCode") <> "" AND request("verificationCode") = session("verificationCode") THEN elseif state="show" then 'response.write("hi") 'title=trim(request.form("title")) 'name=trim(request.form("name")) 'email=trim(request.form("email")) 'layout=trim(request.form("layout")) 'loadtime=trim(request.form("loadtime")) 'sectionheads=trim(request.form("sectionheads")) 'friendliness=trim(request.form("friendliness")) 'comments=trim(request.form("comments")) title=trim(request("title")) name=trim(request("name")) email=trim(request("email")) layout=trim(request("layout")) loadtime=trim(request("loadtime")) sectionheads=trim(request("sectionheads")) friendliness=trim(request("friendliness")) comments=trim(request("comments")) msg="Please enter correct Image Value" url="http://www.rakhigiftstore.com/feedback-form.asp" 'response.write(name) IF request("verificationCode") <> session("verificationCode") Then 'message = "Please type correct image value." state="form" Response.Write("<" & "script>alert('" & msg & "');") Response.Write("window.location='" & url &"'") Response.Write("<" & "/script>") 'state="form" 't=request("title") 'n=request("name") 'mail=request("email") 'response.redirect("http://www.rakhigiftstore.com/feedback-form.asp") End if %>
You submitted
Name: <%=title%><%=(name)%>
E-mail: <%=(email)%>
Site Layout: <%=(layout)%>
Load Time: <%=(loadtime)%>
Section head: <%=(sectionheads)%>
Frienliness: <%=(friendliness)%>
Comments: <%=(comments)%>
<%end if%> <%'end if%>

 

 

<%else response.write("Invalid Path!") end if %>