<%@ Language=VBScript %> <% Response.Buffer =true %> <% 'if session("AdminLogin")="" then Response.Redirect "default.asp" 'end if %>

---

<% Dim objUpload, lngLoop If Request.TotalBytes > 0 Then Set objUpload = New clsUpload %> File(s) Uploaded: <%= objUpload.Files.Count %>

<% For lngLoop = 0 to objUpload.Files.Count - 1 objUpload.Files.Item(lngLoop).Save server.MapPath("..")& "\mapimages\" 'Response.Write "Your Area Images Is Uploaded" %> <% filename= objUpload.Files.Item(lngLoop).FileName zoneid= objUpload.Form.Item(0) sql = "update ZoneMaster set ZoneImage='"+filename+"' where ZoneId=" + zoneid 'con.execute sql 'set rs = server.CreateObject("adodb.recordset") 'rs.Open "select max(HoardingId) from HoardingMaster", con, 3, 3 'hoardingid = rs(0) 'rs.close 'set rs = nothingsql = "insert into ZoneMaster(ZoneName, ZoneDescription, Zoneimage,ZoneStatus) values('" + zonename + "', '" + zonedes + "','" + filename + "'," + zonestatus + ")" Response.Write sql con.execute sql Response.Redirect "AdsAdminUpdateZone.asp?zoneid="+zoneid %>

<% Next End If %>