<% dim fname,email,comments,i,j,k,rs,sql,admin_mail,myerr admin_mail="25ramendra@gmail.com;ramendra_k@yahoo.com" fname = "" email = "" comments = "" if request.form("regme")<>"" Then fname=UCase(ReplaceChars(request.form("fname"), 1)) email=ReplaceChars(request.form("email"), 1) comments=left(ReplaceChars(request.form("comments"), 1), 500) myerr="" if fname="" then myerr="Name is Not specified" elseif email="" then myerr="Email is not specified" elseif comments="" then myerr="Comments is not specified" end if if myerr<>"" then response.write myerr session.Contents("errmsg1")=myerr end if if myerr="" then set objCDOMail=Server.CreateObject("CDONTS.NewMail") objCDOMail.From=Email objCDOMail.To=admin_mail objCDOMail.MailFormat = 0 objCDOMail.BodyFormat = 0 objCDOMail.Subject="Comments/Feedback" DBody=DBody& Descrip &vbCrlf &vbCrlf DBody=DBody & "" & "Name: " & "" & fname & "
" if email <> "" then DBody=DBody & "" & "Email: "& "" & email & "
" end if if comments <> "" then DBody=DBody& "" & "Comments: " & "" & comments & "
" end if objCDOMail.Body=DBody objCDOMail.Send set objCDOMail=Nothing session.Contents("cmsg1")="Mail Sent Successfully" response.redirect "message.asp" end if end if %> . : : Ramendra Kumar : : .
Home About Me Reinventing Going Global Books Children’s Stories Other Writings Awards Media Updates Contact
 
ADDRESS
 
Ramendra Kumar
Deputy General Manager
&
Chief of Communications
Rourkela Steel Plant
Rourkela - 769011, Odisha, India
Mob : 08895501628
Email :
             
LINKS
   
Wikipedia
Sulekha
Bolokids
POST YOUR COMMENTS
 
<% =myerr %>
Name:*
Email:*
Comments:*
(Max Chars. 500)