Welcome To Tantra Connection

<% Dim Photos Set Photos = Server.CreateObject("ADODB.Recordset") Photos.PageSize = 4 Photos.CursorLocation = adUseClient If Request("curfolder") = "" Then query = "Select * From MemberPhotos Where UserID=" & CInt(Session("UserID")) & " AND Folder=''" Else query = "Select * From MemberPhotos Where UserID=" & CInt(Session("UserID")) & " AND Folder='" & Request("curfolder") & "'" End If Photos.Open query, objConn, adOpenStatic, adLockReadOnly If Photos.PageCount > 1 Then %> <% End If If Not Photos.Eof Then Photos.AbsolutePage = CInt( page ) Dim records records = 0 %> <% End If %>

You are using <% Response.Write " " & percent & "% " %> of your 1 MB limit.

Upload Image

<% Dim backcolor backcolor = "" If percent <= 40 Then backcolor = "#ffffff" End If If percent > 40 And percent <= 80 Then backcolor="#E8E800" End If If percent > 80 Then backcolor="#FF3300" End If %>

<% percent = Round(percent/4) For i = 1 To 25 If i <= percent Then %> <% Else %> <% End If Next %>

<%if request("curfolder")="" then%>

To create a new folder type the name of the folder in the box below and click create.

<%end if%>

Your Folders (You can add up to five personal folders to arrange your photos in groups.)

<% If Request("curfolder") <> "" Then %> <% Else folderpath = Server.MapPath("\img\members") & "\" & Username Dim RootFolder, num Set RootFolder = fso.GetFolder( folderpath ) set rf=RootFolder.files set sf=RootFolder.SubFolders num = 0 file_count=0 file_count=rf.count for each f1 in sf file_count=file_count+f1.files.count next response.write("Total number of files already existing are:- " & file_count &"
") For Each fn In RootFolder.SubFolders num = num + 1 %> <% Next If num <= 0 Then %> <% End If End If %>

Go to Root Folder
<%= fn.name %>	<%= Round(fn.size/1024) %>Kb	Remove Folder
You currently do not have any personal folders setup for you.

Move To Page <% For i = 1 to Photos.PageCount If i <> CInt(page) Then %> "><%= i %> <% Else Response.write "" & i & "" End If Next %>

<% While Not Photos.eof And records < Photos.PageSize If Request("curfolder") = "" Then folderpath = "../img/members/" & Username & "/" Else folderpath = "../img/members/" & Username & "/" & Request("curfolder") & "/" End If %> <% If Not Photos.Eof Then %> <% If Not Photos.Eof Then %> <% If Not Photos.Eof Then %> <% If Not Photos.Eof Then records = records + 1 Photos.MoveNext End If Wend %>

<% Response.Write ( "" ) Response.Write "

" Response.Write "" Response.Write "
" Response.Write "Delete Image" If Not Photos.Eof Then Photos.MoveNext records = records + 1 End if %>

<% Response.Write ( "" ) Response.Write "

" Response.Write "" Response.Write "
" Response.Write "Delete Image" End If If Not Photos.Eof Then Photos.MoveNext records = records + 1 End if %>

<% Response.Write ( "" ) Response.Write "

" Response.Write "" Response.Write "
" Response.Write "Delete Image" End If If Not Photos.Eof Then Photos.MoveNext records = records + 1 End if %>

<% Response.Write ( "" ) Response.Write "

" Response.Write "" Response.Write "
" Response.Write "Delete Image" End If %>