ASP-Page couldnt save data from a form to a local

Mr.Rabbit · Apr 28, 2012

hi 2gether, i have created a .htm which includes a form. by clicking the submit-button at this .htm, the form is sent to an .asp (by method=post). then the .asp has to save the data (from the form) to a local file (called form_results.txt). but this doesnt work...i dont know why? is anybody able to help me? i would be more then glad... thx a lot. the .asp-code: <%@ Language=VBScript%> <HTML> <HEAD> <TITLE>OKTOBERFEST</TITLE> </HEAD> <BODY text="#FFFFFF" bgcolor="#000000"> <% Dim fs, a Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("c:inetpubwwwrootform_results.txt", True) a.WriteLine("MiddleName: " & Request.Form("middleName") & " ") a.WriteLine("LastName: " & Request.Form("lastName") & " ") a.WriteLine("Profession: " & Request.Form("profession") & " ") a.WriteLine("Date of Birth: " & Request.Form("birth") & " ") a.WriteLine("Sex: " & Request.Form("sex") & " ") a.WriteLine("Email-Address: " & Request.Form("email") & " ") a.WriteLine("I am ") & Request.Form("iam") & " ") a.WriteLine("Number of Visits: " & Request.Form("visited") & " ") a.WriteLine("__________________________________________________ _____") a.WriteLine("Street: " & Request.Form("address1") & " ") a.WriteLine("Apartment: " & Request.Form("address2") & " ") a.WriteLine("City: " & Request.Form("city") & " ") a.WriteLine("State: " & Request.Form("State") & " ") a.WriteLine("Other State: " & Request.Form("OtherState") & " ") a.WriteLine("ZipCode: " & Request.Form("zipcode") & " ") a.WriteLine("Country: " & Request.Form("Country") & " ") a.WriteLine("Phone Number: " & Request.Form("phoneno") & " ") a.WriteLine("Description: " & Request.Form("description") & " ") a.WriteLine("Interestes: " & Request.Form("interests") & " ") a.WriteLine("__________________________________________________ _____") IF(Request.Form("iam_Smoker").value=http://aspmessageboard.com/archive/index.php/="Yes") THEN a.WriteLine("Smoker" & " ") END IF IF(Request.Form("iam_Non_Smoker").value=="Yes") THEN a.WriteLine("Non_Smoker" & " ") END IF IF(Request.Form("iam_Under_Graduate").value=="Yes") THEN a.WriteLine("Under_Graduate" & " ") END IF IF(Request.Form("iam_Graduate").value=="Yes") THEN a.WriteLine("Graduate" & " ") END IF IF(Request.Form("iam_Tidy").value=="Yes") THEN a.WriteLine("Tidy" & " ") END IF IF(Request.Form("iam_Studious_Quiet").value=="Yes") THEN a.WriteLine("Studious_Quiet" & " ") END IF IF(Request.Form("iam_Early_Riser").value=="Yes") THEN a.WriteLine("Early_Riser" & " ") END IF IF(Request.Form("iam_Very_Active").value=="Yes") THEN a.WriteLine("Very_Active" & " ") END IF IF(Request.Form("iam_Party_Person").value=="Yes") THEN a.WriteLine("Party_Person" & " ") END IF a.WriteLine("__________________________________________________ _____") a.WriteLine("MoveInDate: " & Request.Form("moveindate" & " ") a.WriteLine("MoveOutDate: " & Request.Form("moveoutdate" & " ") a.WriteLine("Co-Inhabitants: " & Request.Form("firstchoice" & " ") a.WriteLine("Status: " & Request.Form("secondchoice" & " ") a.WriteLine("__________________________________________________ _____") a.WriteLine("Roommate-FullName: " & Request.Form("Roomate_FullName" & " ") a.WriteLine("Roommate-Age: " & Request.Form("Roomate_Age" & " ") IF(Request.Form("Roomate_Sex").value=="Male") THEN a.WriteLine("Male" & " ") ELSE a.WriteLine("Female" & " ") END IF a.WriteLine("RMProfession" & Request.Form("rmschool" & " ") a.WriteLine("__________________________________________________ _____") a.WriteLine("Emergency-Contact: " & Request.Form("emergencycontact" & " ") a.WriteLine("Emergency-PhoneNumber: " & Request.Form("ecphoneno" & " ") a.WriteLine("__________________________________________________ _____") a.WriteLine("PayMethod: " & Request.Form("paymethod" & " ") a.WriteLine("CardType: " & Request.Form("Ordering_CardType" & " ") a.WriteLine("CardHolderName: " & Request.Form("Ordering_CardHolderName" & " ") a.WriteLine("CardNumber: " & Request.Form("Ordering_CardNumber" & " ") a.WriteLine("CardExpiration: " & Request.Form("Ordering_CardExpiration" & " ") a.WriteLine("__________________________________________________ _____") a.Close %> TRANSMISSION SUCCESSFULL </BODY> </HTML> --> thx a lot for your help....marc.

ASP-Page couldnt save data from a form to a local

Mr.Rabbit

New Member