| PRE INSPECTION FORM |
<%if request.form("action")="" then%>
<%else%>
<%
function escapeString(str)
str=replace(str,"<br>","
")
str=replace(str,"'","''")
escapeString = str
end function
function escapeStringWithCR(str)
str = Replace(escapeString(str),chr(13) & chr(10),"
")
escapeStringWithCR=str
end function
function userDate(dt)
if not dt="" then
min=Minute(dt)
if len(min)=1 then min="0"&min
userDate=day(dt) & " " & monthname(month(dt)) & " " & year(dt)
end if
end function
name=request.form("name")
contact=request.form("contact")
fromadd=request.form("email")
req=request.form("req")
locality=request.form("locality")
budget1=request.Form("budget1")
budget2=request.Form("budget2")
area1=request.Form("area1")
area2=request.Form("area2")
spec=request.form("spec")
facing=request.form("facing")
msg="" &_
"" &_
"| PRE INSPECTION FORM Dated " & userDate(Date()) & " | " &_
" " &_
"" &_
"| Name | "&_
"" & name & " | "&_
" " &_
"" &_
"| Contact No. | "&_
"" & contact & " | "&_
" " &_
"" &_
"| E-mail | "&_
"" & fromadd & " | "&_
" " &_
"" &_
"| Requirement | "&_
"" & req & " | "&_
" " &_
"" &_
"| Locality | "&_
"" & locality & " | "&_
" " &_
"" &_
"| Budget | "&_
"" & budget1 & "Min" & budget2 & "Max | "&_
" " &_
"" &_
"| Area Required(In Sqft.) | "&_
"" & area1 & "Min" & area2 & "Max | "&_
" " &_
"" & _
"| Specification | " & _
"" & escapeStringWithCR(spec) & " | " & _
" " & _
"" &_
"| Facing | "&_
"" & facing & " | "&_
" " &_
" "
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "jainestates.com"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = fromadd
.To = "giribe.dharan@gmail.com"
.Subject = "PRE INSPECTION FORM"
.HTMLBody = msg
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
| "Thank
you for your Submission "
We
will get back to you soon. |
|
<%end if%> |
|
|
