<!--#include file="header.asp"-->


<%


     Set MyDBA = Server.CreateObject("ADODB.Connection")
     MyDBA.Open Application("Letsmatchit") 
     SET RS=MyDBA.Execute("SELECT Slumpen,Pic1,Pic2,Pic3,Pic4,Pic5,Username FROM ProfileDB WHERE Username='"&Session("Username")&"'")
   
    fildir = "pictures/"+ RS("Slumpen") + "/"

	Dim UPLOAD_PATH
		UPLOAD_PATH	= Server.MapPath(fildir)

	Dim g_oFso, g_oFolder, g_oFile
		Set g_oFso	= Server.CreateObject("Scripting.FileSystemObject")
		Set g_oFolder	= g_oFso.getFolder(UPLOAD_PATH)

	If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
		Dim g_oUpload
			Set g_oUpload	= get_upload_files()

		Dim fpos, fcontent
			fcontent	= g_oUpload("upload").Item("content")
		Set g_oFile	= g_oFso.CreateTextFile(UPLOAD_PATH & "\-" & RS("Username")& "-" & extract_filename(g_oUpload("upload").Item("filename")))
		apa = "-" & RS("Username") & "-" & extract_filename(g_oUpload("upload").Item("filename"))
		For fpos = 1 to LenB(fcontent)
			g_oFile.Write chr(AscB(MidB(fcontent, fpos, 1)))
		Next
		g_oFile.Close: Set g_oFile	= Nothing
		
		
apa2 = Request.QueryString("Pic")
     Response.Write(apa2)
     Response.Write(apa)

tom = "-" & RS("Username") & "-"

     
IF APA = tom THEN
 apa = ""
END IF

IF Request.QueryString("pic")= "1" THEN
         
         SET RS2=MyDBA.Execute("update ProfileDB SET Pic1 = '"&apa&"' WHERE Username = '"&Session("Username")&"'")
END IF     

IF Request.QueryString("pic")= "2" THEN
         
         SET RS2=MyDBA.Execute("update ProfileDB SET Pic2 = '"&apa&"' WHERE Username = '"&Session("Username")&"'")
END IF     

IF Request.QueryString("pic")= "3" THEN
         
         SET RS2=MyDBA.Execute("update ProfileDB SET Pic3 = '"&apa&"' WHERE Username = '"&Session("Username")&"'")
END IF     

IF Request.QueryString("pic")= "4" THEN
         
         SET RS2=MyDBA.Execute("update ProfileDB SET Pic4 = '"&apa&"' WHERE Username = '"&Session("Username")&"'")
END IF     

IF Request.QueryString("pic")= "5" THEN
         
         SET RS2=MyDBA.Execute("update ProfileDB SET Pic5 = '"&apa&"' WHERE Username = '"&Session("Username")&"'")
END IF     
      
		Response.Redirect Request.ServerVariables("SCRIPT_NAME")
	End If


Function get_upload_files()
		Dim	upload_object, request_binaries
		Dim position_start, position_end
		Dim boundary, boundary_pos

		Set upload_object	= Server.CreateObject("Scripting.Dictionary")
		request_binaries	= Request.BinaryRead(Request.TotalBytes)
		position_start		= 1
		position_end		= InstrB(position_start, request_binaries, get_byte_string(chr(13)))
		boundary			= MidB(request_binaries, position_start, (position_end - position_start))
		boundary_pos		= InstrB(1, request_binaries, boundary)

		Do Until (boundary_pos = InstrB(request_binaries, boundary & get_byte_string("--")))
			If Not(Response.IsClientConnected) Then Response.End

			Dim name, pos_file

			position_start	= (InstrB(InstrB(boundary_pos, request_binaries, get_byte_string("Content-Disposition")), request_binaries, get_byte_string("name=")) + 6)
			position_end	= InstrB(position_start, request_binaries, get_byte_string(chr(34)))

			name			= get_string(MidB(request_binaries, position_start, (position_end - position_start)))
			pos_file		= InstrB(boundary_pos, request_binaries, get_byte_string("filename="))

			If  ((pos_file <> 0) AND (pos_file < InstrB(position_end, request_binaries, boundary))) Then
				upload_object.Add name, Server.CreateObject("Scripting.Dictionary")

				position_start	= (pos_file + 10)
				position_end	= InstrB(position_start, request_binaries, get_byte_string(chr(34)))
				upload_object.item(name).Add "filename", get_string(MidB(request_binaries, position_start, (position_end - position_start)))

				position_start	= (InstrB(position_end, request_binaries, get_byte_string("Content-Type:")) + 14)
				position_end	= InstrB(position_start, request_binaries, get_byte_string(chr(13)))
				upload_object.item(name).Add "content-type", get_string(MidB(request_binaries, position_start, (position_end - position_start)))

				position_start	= (position_end + 4)
				position_end	= InstrB(position_start, request_binaries, boundary) - 2
				upload_object.item(name).Add "size", ((position_end - position_start))
				upload_object.item(name).Add "content", MidB(request_binaries, position_start, (position_end - position_start))
			End If
			boundary_pos	= InstrB(boundary_pos + LenB(boundary), request_binaries, boundary)
		Loop

		Set get_upload_files = upload_object
	End Function

	Function get_byte_string(str)
		Dim cnt
		For cnt = 1 to Len(str)
			get_byte_string	= get_byte_string & chrB(AscB(Mid(str, cnt, 1)))
		Next
	End Function

	Function get_string(str)
		Dim cnt
		For cnt = 1 to LenB(str)
			get_string	= get_string & chr(AscB(MidB(str, cnt, 1))) 
		Next
	End Function

	Function extract_filename(filename)
		extract_filename	= Right(filename, Len(filename) - InStrRev(filename, "\", -1, 1))
	End Function
%>


<table cellspacing="0" cellpadding="0" width="640" ID="Table1"><tr><td>
<table bgcolor="#f3f2ff"  border="1" width="620" bordercolor="#e0dfff" cellspacing="0" cellpadding="2"><tr>
<td>


<center>
<table border="0">

<tr valign="middle"><td width="50" height="50" align="center">
<b>Picture 1</b><br>
<%IF Rs("Pic1") <> "" THEN %><img src="pictures/<%=RS("Slumpen")%>/<%=RS("Pic1")%>" height=80 width="80" border=1>  <% ELSE %>  <img src="/images/1x1.gif" width="80" height="80" border="1"> <% END IF %><br>
</td><td width="10"> </td><td><br>
<form name="frmUpload" method="post" enctype="multipart/form-data" action="updatemedia.asp?pic=1"> 
<input type="file" name="upload" style="Border: 1px solid; font-family: verdana; font-size: 10px"> <br>
<input type="submit" value="Upload / Delete" style="border: #000000 1px solid; font-family: verdana; font-size: 10px">
</form>
</td></tr>

<tr valign="middle"><td width="50" height="50" align="center">
<b>Picture 2</b><br>
<%IF Rs("Pic2") <> "" THEN %><img src="pictures/<%=RS("Slumpen")%>/<%=RS("Pic2")%>" height=80 width="80" border=1>  <% ELSE %> <img src="/images/1x1.gif" width="80" height="80" border="1"> <% END IF %><br>
</td><td width="10"> </td><td><br>
<form name="frmUpload" method="post" enctype="multipart/form-data" action="updatemedia.asp?pic=2"> 
<input type="file" name="upload" style="Border: 1px solid; font-family: verdana; font-size: 10px"> <br>
<input type="submit" value="Upload / Delete" style="border: #000000 1px solid; font-family: verdana; font-size: 10px">
</form>
</td></tr>
<tr valign="middle"><td width="50" height="50" align="center">
<b>Picture 3</b><br>
<%IF Rs("Pic3") <> "" THEN %><img src="pictures/<%=RS("Slumpen")%>/<%=RS("Pic3")%>" height=80 width="80" border=1>  <% ELSE %>  <img src="/images/1x1.gif" width="80" height="80" border="1"> <% END IF %><br>
</td><td width="10"> </td><td><br>
<form name="frmUpload" method="post" enctype="multipart/form-data" action="updatemedia.asp?pic=3"> 
<input type="file" name="upload" style="Border: 1px solid; font-family: verdana; font-size: 10px"> <br>
<input type="submit" value="Upload / Delete" style="border: #000000 1px solid; font-family: verdana; font-size: 10px">
</form>
</td></tr>
<tr valign="middle"><td width="50" height="50" align="center">
<b>Picture 4</b><br>
<%IF Rs("Pic4") <> "" THEN %><img src="pictures/<%=RS("Slumpen")%>/<%=RS("Pic4")%>" height=80 width="80" border=1>  <% ELSE %>  <img src="/images/1x1.gif" width="80" height="80" border="1"> <% END IF %><br>
</td><td width="10"> </td><td><br>
<form name="frmUpload" method="post" enctype="multipart/form-data" action="updatemedia.asp?pic=4"> 
<input type="file" name="upload" style="Border: 1px solid; font-family: verdana; font-size: 10px"> <br>
<input type="submit" value="Upload / Delete" style="border: #000000 1px solid; font-family: verdana; font-size: 10px">
</form>
</td></tr>
<tr valign="middle"><td width="50" height="50" align="center">
<b>Picture 5</b><br>
<%IF Rs("Pic5") <> "" THEN %><img src="pictures/<%=RS("Slumpen")%>/<%=RS("Pic5")%>" height=80 width="80" border=1>  <% ELSE %>  <img src="/images/1x1.gif" width="80" height="80" border="1"> <% END IF %><br>
</td><td width="10"> </td><td><br>
<form name="frmUpload" method="post" enctype="multipart/form-data" action="updatemedia.asp?pic=5"> 
<input type="file" name="upload" style="Border: 1px solid; font-family: verdana; font-size: 10px"> <br>
<input type="submit" value="Upload / Delete" style="border: #000000 1px solid; font-family: verdana; font-size: 10px">
</form>
</td></tr>
</table>

</td></tr></table>

</td></tr></table>

</td></tr></table>


<center>
<hr width="760" noshade>
<font size="1" face="verdana, geneva, helvetica, sans-seri">Copyright &copy; 2001 LetsMatchIT.Com All rights reserved.<br>


</BODY>
<% MyDBA.Close %>