<% if request.querystring("send")="success" then Dim strBody 'Holds the body of the e-mail Dim objCDOMail Dim strMyEmailAddress Dim strCCEmailAddress Dim email strMyEmailAddress = "vkurup@vikurup.com" strCCEmailAddress = "ruhameen@gmail.com" name1 = request.form("name") email = Request.Form("email") phone = request.form("phone") address = request.form("address") message = request.form("message") strBody = "

Mail from vikurup.com

" strBody = strBody & "
Name: " & name1 strBody = strBody & "
E-mail: " & email strBody = strBody & "

Telephone: " & phone strBody = strBody & "

Address: -" If address <> "" Then strBody = strBody & "
" & address End If strBody = strBody & "

Message:" & message If Len(email) < 5 OR NOT Instr(1, email, " ") = 0 OR InStr(1, email, "@", 1) < 2 OR InStrRev(email, ".") < InStr(1, email, "@", 1) Then email = strMyEmailAddress End If Set objCDOMail=CreateObject("CDO.Message") objCDOMail.From = name & " <" & email & ">" objCDOMail.To = strMyEmailAddress objCDOMail.Cc = strCCEmailAddress objCDOMail.Subject = "Feedback form from vikurup" objCDOMail.HTMLBody = strBody objCDOMail.Send Set objCDOMail = Nothing Response.write "" Response.write "Thank you for filling in the feedback form." Response.write "
" Response.write "We will get back to you shortly" response.write "" End if %>



FEEDBACK    
Name :
E-mail ID :
Phone No :
Address :
Message :
 

Site developed and maintained by Ganitham Computer Services LLC