<% Response.Expires = -1000 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl="no-cache" session("constrain" & strSUnique) = Empty If isnotfree and not session("allow_post" & strSUnique) then Response.Redirect "post_new1.asp" If CStr(session("user_logged_ID" & strSUnique)) = Empty then Response.Redirect "register.asp" If session("Select_Category" & strSUnique) = Empty Or session("Select_SubCategory" & strSUnique) = Empty then Response.Redirect "post_new1.asp" End If iwidth = Application("Classify_Main_Config" & strUnique)(23) iheight = Application("Classify_Main_Config" & strUnique)(24) isize = Application("Classify_Main_Config" & strUnique)(25) Dim imgArray(10,1) msgPaymode = strText_ImageNote & "" msgPaymode1 = "" & strText_ImageNote1 msgPaymode1 = msgPaymode1 & strText_ImageNote2 msgFreemode = strText_ImageNote3 & strText_ImageNote4 & "" & imagelimit & "" & strText_ImageNote5 msgNote = "" & strText_Note & " " & strText_ImageNote6 & " .jpg or .gif" & strText_ImageNote7 msgNote = msgNote & "" & iwidth & "x" & iheight & " px " & strText_ImageNote8 & "" & isize & "kb

" On Error Resume Next If Len(CStr(Request.Form("flag"))) > 0 then iFlag = CStr(Request.Form("flag")) imgWidth = Request.Form("iwidth") imgHeight = Request.Form("iheight") imgUpload = Request.Form("filename") Select Case iFlag Case "1" For L = 1 to 10 imgArray(L,0) = session("Attach_Image" & strSUnique)(L,0) imgArray(L,1) = session("Attach_Image" & strSUnique)(L,1) Next session("Count_Image" & strSUnique) = session("Count_Image" & strSUnique) + 1 imgArray(session("Count_Image" & strSUnique), 0) = imgUpload imgArray(session("Count_Image" & strSUnique), 1) = imgWidth & "x" & imgHeight session("Attach_Image" & strSUnique) = imgArray Response.Redirect "post_new.asp" Case "0" objFile.DeleteFile(uploadPATH & imgUpload) Response.Redirect "post_new.asp" End Select End If On Error Goto 0 If isnotfree then If Session("image_limit" & strSUnique) = 0 then Response.Redirect "post_new2.asp" icm = CInt(Session("image_limit" & strSUnique)) If icm > 4 And Not ispack then icm = imagelimit Session("image_limit" & strSUnique) = imagelimit End If imsg = msgPaymode & icm & msgPaymode1 Else icm = imagelimit imsg = msgFreemode End If If Not session("Count_Image" & strSUnique) = Empty then If session("Count_Image" & strSUnique) = icm then Response.Redirect "post_new2.asp" Else: ic = session("Count_Image" & strSUnique) End If Else ic = 0 session("Count_Image" & strSUnique) = 0 session("Attach_Image" & strSUnique) = imgArray End If %>

<%= strText_Home %>::<%= strText_AddImages %>

<%= msg %>

<%= imsg %>

<% Response.Write "

" & strText_Youhaveuploaded & "" & ic & "" & strText_image & "

" %>

<%= msgNote %>