Please provide the following Personal information.

<% If Request.Form="" Then %> Title : Name : Company Name : Address : Phone : Fax : Mobile : Website : Email : Feedback :

<% Else 'receive the form values Dim sTitle, sName, sCompany, sAddr, sPhone, sFax, sMobile, sWeb, sEmail, sFeed sTitle=Request.Form("title") sName=Request.Form("name") sCompany=Request.Form("comp") sAddr=Request.Form("addr") sPhone=Request.Form("phone") sFax=Request.Form("fax") sMobile=Request.Form("mobile") sWeb=Request.Form("web") sEmail=Request.Form("email") sFeed=Request.Form("feed") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Title : " & sTitle & "
" sEmailText = sEmailText & "Name : " & sName & "
" sEmailText = sEmailText & "Company : " & sCompany & "
" sEmailText = sEmailText & "Address : " & sAddr & "
" sEmailText = sEmailText & "Phone Number : " & sPhone & "
" sEmailText = sEmailText & "Fax : " & sFax & "
" sEmailText = sEmailText & "Mobile : " & sMobile & "
" sEmailText = sEmailText & "Website : " & sWeb & "
" sEmailText = sEmailText & "Email ID : " & sEmail & "
" sEmailText = sEmailText & "Feedback :" & sfeed & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail NewMailObj.To = "ramesh@g-netsolutions.com" NewMailObj.Subject = "Enquiry From Website" NewMailObj.Body = sEmailText NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing response.redirect "index.html" End If %>