Go Daddy (GDForm.ASP) Form is no longer including email in the From: field

Up until a week ago any form submitted from my website would use the Email address provided by the user in the Email field to populate the From: field but now suddenly it has stopped. Every email I receive from my website no shows "From: formmailer@secureserver.net [mailto:formmailer@secureserver.net]" rather than the email address of the person who filled out the form. The email field is still populated on the form the same way it has been for 2 years. This is causing a problem because I have rules setup to automatically reply to these sales leads.
Also, the subject of the email has always been "Demo Request submission" but has now changed to "totalitysoftware.com-Demo Request Submission".

I called GoDaddy and have spent countless hours going back and forth with them about what has changed but they insist that they can see no evidence of a change to formmailer or the way they handle their own GDForm.asp (which happens to be what I'm using). I haven't changed a thing on our end for months so I know it's not us but just to be sure I compared a current output file from GDForm.asp to one from months ago and they are identical. Obviously whatever processes the file after GDForm.asp creates it is to blame for this change.

GoDaddy insists that there is nothing they can do and has said that the only alternative is to modify the GDForm.asp to do what I require which is ridiculous since it already did do what I required before they "Didn't" update anything.

Anyhow, this is where you come in, can anyone take a look at the code attached and see any reason why it would not perform as I have expected? Also, is anyone else seeing this problem with their GoDaddy (Windows) hosted website since 10/15/08?

If my description is not detailed enough please let me know what I've left out or what information you need.

<%
 
Dim landing_page, host_url
Dim fso, outfile, filename, dirname, myFolder
Dim req_method, key, value
Dim bErr, errStr, bEmpty
On Error resume next
bErr = false
bEmpty = true
errStr = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
host_url = Request.ServerVariables("HTTP_HOST")
req_method = Request.ServerVariables("REQUEST_METHOD")
dtNow = Now()
filename = Server.MapPath("\ssfm")
dirname = filename
filename = filename & "\gdform_" & DatePart("M", dtNow) & DatePart("D", dtNow) & DatePart("YYYY", dtNow) & DatePart("N", dtNow) & DatePart("S", dtNow)
 
Function FormatVariableLine(byval var_name, byVal var_value)
	Dim tmpStr
	tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " START>" & vbCRLF
	tmpStr = tmpStr & var_value & vbCRLF
	tmpStr = tmpStr & "<GDFORM_VARIABLE NAME=" & var_name & " END>"
	FormatVariableLine = tmpStr
end function
 
Sub OutputLine(byVal line)
   outfile.WriteLine(line)
end sub
 
if err.number = 0 then
	Set outfile = fso.CreateTextFile(filename, true, false)
	if err.number <> 0 then
			bErr = true
			errStr = "Error creating file! Directory may not be writable or may not exist.<br>Unable to process request."
	else
		if(req_method = "GET") then
			for each Item in request.QueryString
				if item <> "" then
					bEmpty = false
					key = item
					value = Request.QueryString(item)
					if(lcase(key) = "redirect") then
						landing_page = value
					else
						line = FormatVariableLine(key, value)
						Call OutputLine(line)
					end if
				end if	
			next
		elseif (req_method = "POST") then
			for each Item in request.form
				if item <> "" then
					bEmpty = false
					key = item
					value = Request.form(item)
					if(lcase(key) = "redirect") then
						landing_page = value
					else
						line = FormatVariableLine(key, value)
						Call OutputLine(line)
					end if
				end if	
			next
		end if
		outfile.close
	end if	
	if(bEmpty = true) AND errStr = "" then
		bErr = true
		errStr = errStr & "<br>No variables sent to form! Unable to process request."
	end if
	if(bErr = false) then	
		if (landing_page <> "") then
			response.Redirect "http://" & host_url & "/" & landing_page
		else
			response.Redirect "http://" & host_url	
		end if
	else
		Response.Write errStr
	end if	
	set fso = nothing
else
  Response.Write " An Error Occurred creating mail message. Unable to process form request at this time."
end if
%>

Select allOpen in new window