<% 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="Contact Us" 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
Assistant General Manager
(Public Relations)
Rourkela Steel Plant
Rourkela - 769011, Orissa, India
 
Mob : 09338004904
Email :
             
 
Post Your Comments
 
<% =myerr %>
Name:*
 Email:*
Comments:* (Max Chars. 500)