<html>
<body bgcolor="#FFFFFF">
<%
bytecount=Request.TotalBytes
If bytecount<80000 Then ' กำหนดขนาดไฟล์ไม่เกิน 80 K
%>
<!--#Include File="uploads.asp"-->
<%
filename=uploaddata.Item("file").Item("filename")
pos_filebegin=InStrRev(filename,"\")
pos_fileend=Len(filename)
filename_new=Mid(filename,pos_filebegin+1,pos_fileend-pos_filebegin)
' กำหนด ประเภทของไฟล์ที่จะ สามารถ uploads ได้
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)) <---------Error
uploadfile.Write uploaddata.Item("file").Item("value")