home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / Admin / AdsAdminUpdateZoneImage.asp < prev    next >
Text File  |  2004-11-26  |  1KB  |  48 lines
  1. <%@ Language=VBScript %>
  2. <%
  3. Response.Buffer =true %>
  4.  
  5. <%
  6.     'if session("AdminLogin")="" then Response.Redirect "default.asp" 
  7.     'end if
  8. %>
  9. <!-- #include file="AdsAdminConstants.asp" -->
  10. <!-- #include file="../AdsOpenConn.asp" -->
  11. <!-- #include file="clsUpload.asp" -->
  12. <html>
  13. <HR>
  14. <%
  15. Dim objUpload, lngLoop
  16. If Request.TotalBytes > 0 Then
  17. Set objUpload = New clsUpload
  18. %>
  19. File(s) Uploaded: <%= objUpload.Files.Count %>
  20. <BR><BR>
  21. <%
  22.   For lngLoop = 0 to objUpload.Files.Count - 1
  23.     objUpload.Files.Item(lngLoop).Save server.MapPath("..")& "\mapimages\"
  24.     'Response.Write "Your Area Images Is Uploaded"
  25. %>
  26.  
  27. <%
  28.         filename= objUpload.Files.Item(lngLoop).FileName 
  29.         zoneid= objUpload.Form.Item(0)
  30.         sql = "update ZoneMaster set ZoneImage='"+filename+"' where ZoneId=" + zoneid
  31.         'con.execute sql
  32.         'set rs = server.CreateObject("adodb.recordset")
  33.         'rs.Open "select max(HoardingId) from HoardingMaster", con, 3, 3
  34.         'hoardingid = rs(0)
  35.         'rs.close
  36.         'set rs = nothingsql = "insert into ZoneMaster(ZoneName, ZoneDescription, Zoneimage,ZoneStatus) values('" + zonename + "', '" + zonedes + "','" + filename + "'," + zonestatus + ")"
  37. Response.Write sql
  38. con.execute sql
  39. Response.Redirect "AdsAdminUpdateZone.asp?zoneid="+zoneid
  40. %>
  41. <BR><BR>
  42. <%
  43.  Next
  44. End If
  45. %>
  46. </body>
  47. </html>
  48.