<% Response.Expires = -1000 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl="no-cache" If isnotfree and not CBool(Sess_Array(1)) then UpdateSessions False Response.Redirect "post_new1.asp" End If If Sess_Array(29) = 0 then UpdateSessions False Response.Redirect "register.asp" End If If Sess_Array(40) = Empty Or Sess_Array(41) = Empty then UpdateSessions False 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) msgPaymode = strText_ImageNote & "" msgPaymode1 = "" & strText_ImageNote1 msgPaymode1 = msgPaymode1 & strText_ImageNote2 msgFreemode = strText_ImageNote3 & strText_ImageNote4 & "" & imagelimit & "" & strText_ImageNote5 msgNote = "
" & strText_Note & " " & strText_ImageNote6 & " .jpg , .jpeg , .png or .gif" & strText_ImageNote7 msgNote = msgNote & "" & iwidth & "x" & iheight & " px
" 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" Sess_Array(2) = Sess_Array(2) + 1 Sess_Array(36) = Sess_Array(36) & imgUpload & "|" & imgWidth & "x" & imgHeight & sf UpdateSessions True Response.Redirect "post_new.asp" Case "0" objFile.DeleteFile(uploadPATH & imgUpload) objFile.DeleteFile(uploadPATH & gettf(imgUpload)) UpdateSessions True Response.Redirect "post_new.asp" End Select End If On Error Goto 0 If isnotfree then If Sess_Array(14) = 0 then UpdateSessions True Response.Redirect "post_new2.asp" End If icm = CInt(Sess_Array(14)) If icm > 4 And Not ispack then icm = imagelimit Sess_Array(14) = imagelimit End If imsg = msgPaymode & icm & msgPaymode1 Else icm = imagelimit imsg = msgFreemode End If If Not Sess_Array(2) = Empty then If Sess_Array(2) = icm then UpdateSessions True Response.Redirect "post_new2.asp" Else: ic = Sess_Array(2) End If Else ic = 0 Sess_Array(2) = 0 End If %>
<%= msg %>
<% Call Build_List_Top("center", "99%", "xl_content") %>
<%= imsg %> <% Response.Write "
" & strText_Youhaveuploaded & "" & ic & "" & strText_image & "
" show_upload_form = True %>

<%= msgNote %>
<% Call Build_List_Bottom() %>