how to upload files

this is my code it is not working on web but it works on my pws so what i should do ? please help!
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then dim conn, recset , sDsn, sSql , objCon , command , objFileSystem , foltemp strFname = request("txtname") strLname = request("txtfile") Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") if objFileSystem.FolderExists(Server.MapPath("Temp")) then objFileSystem.CopyFile strLname,"Temp/" else Response.Redirect "default.asp" end if 'Response.Redirect "thanks.asp" end if %>