อยากทราบว่าเราจะเปลี่ยนชื่อรูปตอนเซฟลง Db และ folder ให้เป็นชื่อรูปตาม user id ได้อย่างไรคะ

filename_new = Session("UserID") & "_" &Mid(filename)

<%
name = uploaddata.Item("name").Item("value")
filename = uploaddata.Item("picture").Item("filename")
pos_filebegin = InstrRev(filename,"\")
pos_fileend = Len(filename)
filename_new = Mid(filename)

If Instr(filename_new,".jpg")<>0 then
Set conn = Server.CreateObject("ADODB.Connection") 
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("sticker.mdb")
sql = "Select Snumber,Stopic,Sdescription,Sname,Sdate,Sfilename from sticker order by Snumber Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
rs.AddNew
rs("Snumber")=number
rs("Stopic")=topic
rs("Sdescription")=description
rs("Sname")=name
rs("Sdate")=date
rs("Sfilename")=filename_new
rs.Update
rs.Close

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set newfolder = fs.CreateFolder(Server.Mappath(number)) 
Set uploadfile = fs.CreateTextFile(Server.mappath(number&"/"&filename_new))
uploadfile.Write uploaddata.Item("picture").Item("value") 
uploadfile.Close
%>