%
name=request("name")
add=request("add")
cell=request("cell")
phone=request("phone")
city=request("city")
state=request("state")
country=request("country")
web=request("web")
email=request("email")
comments=request("comments")
body=name
body=body & "
" & add
body=body & "
" & cell
body=body & "
" & phone
body=body & "
" & city
body=body & "
" & state
body=body & "
" & country
body=body & "
" & web
body=body & "
" & email
body=body & "
" & comments
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enquiry mail from my website-- shudhpet.com"
myMail.From="info@shudhpet.com"
myMail.To="info@shudhpet.com,ajay_shudh@yahoo.co.in,alwaysfirstind@yahoo.co.in"
myMail.HTMLBody = body
myMail.Send
set myMail=nothing
%>