<% on error resume next
dim rs,sql
mip = Request.ServerVariables("REMOTE_ADDR")
mua = UCASE(Request.ServerVariables("HTTP_USER_AGENT"))
murl = trim(replace(Request.ServerVariables("url"),"Default.asp",""))
%>
<%
set rsct = server.createobject("ADODB.Recordset")
if instr(1,ucase(mua),ucase("GOOGLE")) = 0 and instr(1,ucase(mua),ucase("MSNBOT")) =0 and instr(1,ucase(mua),"YAHOO") =0 and instr(1,ucase(mua),"BING") =0 THEN 'OR instr(1,ucase(mua),"BOT") <>0 THEN
'sql = "exec usp_ipcheck '" & mip & "','" & ltrim(rtrim(replace(mid(UCASE(mua+space(500)),1,500),"'","-"))) & "'"
sql = "exec usp_checkSessionIP '" & Session.SessionID & "', '" & Request.ServerVariables("REMOTE_ADDR") & "', '" & left(Request.ServerVariables("HTTP_REFERER"),200) & "'"
rsct.Open sql,conn,1,2
if rsct(0) = 1 then
%>
<%
if rsct.state=1 then
rsct.Close
end if
if conn.state=1 then
conn.Close
end if
set rsct = nothing
Set conn=Nothing
Response.Redirect ("/message")
Response.end
end if
if rsct.state=1 then
rsct.Close
set rsct = nothing
end if
END IF
%>
It’s been a long period of 19 years has passed we have started serving not just as a Construction company, but a company that believes in creation. With a passion towards best infrastructure development, we have emerged as a reputed Commercial & Residential Infrastructure Development Company.
We are Engineers, Contractors and Builders for all types of construction business like Construction of Commercial Buildings, Residential Buildings, and Industrial Projects in all over the Pune. We provide services beyond your expectations, because we value your dreams and the money you invest in our construction.
Services Offered by Anup Constructions :
Industrial Projects Development
Commercial Buildings Development
Private Residential Buildings Development
Infrastructure Development
Contract based Construction
Contact Us :
Address :
9 & 10, Kumar Place,
2408, East Street,
Camp,
Pune – 411001
Maharashtra, India.