' กำหนด ประเภทของไฟล์ที่จะ สามารถ 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))
uploadfile.Write uploaddata.Item("file").Item("value")
uploadfile.Close
set fs=Nothing
End If
set rs = server.CreateObject("ADODB.RECORDSET")
rs.open "Product",conn,1,3