<% @ LANGUAGE=VBScript %>
<%
If isnotfree and not session("allow_post" & strSUnique) then Response.Redirect "post_start.asp"
If CStr(session("user_logged_ID" & strSUnique)) = Empty and not session("admin_loggedin" & strSUnique) = True then Response.Redirect "register.asp"
iwidth = Application("Classify_Main_Config" & strUnique)(23)
iheight = Application("Classify_Main_Config" & strUnique)(24)
isize = Application("Classify_Main_Config" & strUnique)(25)
msgAdmin = "Welcome Administrator!
If you would like to post an ad please create and logon with regular user account.
"
msgPaymode = "You have selected to add "
msgPaymode1 = " image(s). Please select images by clicking "Browse...". Click "Preview/Attach" to preview and attach an image to the ad. "
msgPaymode1 = msgPaymode1 & "When finished, click ""Next >>"" to make a category selection."
msgFreemode = "If you would like to add a picture to your ad, please select it by clicking "Browse...". Click "Preview/Attach""
msgFreemode = msgFreemode & " to preview and attach an image to the ad. You may add up to 5 images."
msgAdlimit = "
You have reached the maximum number of active ads.
Only " & ap
msgAdlimit = msgAdlimit & " ads allowed to be posted and active!
"
msgNote = "Note: You may only attach .jpg or .gif images with your add.
The maximum Image size: "
msgNote = msgNote & "" & iwidth & "x" & iheight & " px and " & isize & "kb"
If session("admin_loggedin" & strSUnique) = True and CStr(session("user_logged_ID" & strSUnique)) = Empty Then
msg = msgAdmin
End If
If isnotfree then
If Session("image_limit" & strSUnique) = 0 then Response.Redirect "post_new1.asp"
icm = Session("image_limit" & strSUnique) - 1
imsg = msgPaymode & icm+1 & msgPaymode1
Else:
icm = 4
imsg = msgFreemode
End If
If Not session("Count_Image" & strSUnique) = Empty then
If session("Count_Image" & strSUnique) > icm then
Response.Redirect "post_new1.asp"
Else: ic = session("Count_Image" & strSUnique)
End If
Else
Dim imgArray(4,1)
ic = 0
session("Count_Image" & strSUnique) = 0
session("Attach_Image" & strSUnique) = imgArray
End If
If CInt(session("user_logged_ads" & strSUnique)) => ap then nopost = True: msg = msgAdlimit
%>
| Home::Add a Picture |
|
|
<%= msg %>
|
<% If not nopost then %>
|
<%= imsg %>
<%
Response.Write "You have uploaded: " & ic & " image(s) "
%>
|
<% End If %>
|
|