If Instr(filename_new,".jpg")<>0 Or Instr(filename_new,".gif")<>0 Or Instr(filename_new,".jpeg")<>0 Then
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set uploadfile=fs.CreateTextFile(Server.Mappath("picture"&"/"&filename_new))
uploadfile.Write uploaddata.Item("file").Item("value")
Response.write(" Uploads ไฟล์สำเร็จ ")
Response.write("<br> ไฟล์ชื่อ " &filename_new)
uploadfile.Close
set fs=Nothing
end if
%>