<% if Trim(Request.QueryString("function")) = "send" then %> <% Dim errorFlag errorFlag = false comments = Trim(Request.form("comments")) name = Trim(Request.form("name")) company = Trim(Request.form("company")) address = Trim(Request.form("address")) city = Trim(Request.form("city")) phone = Trim(Request.form("phone")) fax = Trim(Request.form("fax")) email = Trim(Request.form("email")) Set clientFileObject = Server.CreateObject("Scripting.FileSystemObject") Set clientFile = clientFileObject.OpenTextFile("c:\inetpub\wwwroot\xmlfw\data\feedback.txt",8,TRUE) 'Set clientFile = clientFileObject.OpenTextFile("d:\websites\xmlframeworks.com\data\feedback.txt",8,TRUE) clientFile.WriteLine("Date:" & now()) clientFile.WriteLine("Name:" & name) clientFile.WriteLine("Company:" & company) clientFile.WriteLine("Address:" & address) clientFile.WriteLine("City:" & city) clientFile.WriteLine("Phone:" & phone) clientFile.WriteLine("Fax:" & fax) clientFile.WriteLine("Email:" & email) clientFile.WriteLine("Comments:" & comments) clientFile.WriteLine(";") clientFile.Close %> <% if errorFlag = true then %> Error in sending your Feedback. Please go back and try once again. Error has been submitted to the Web Administrator. <% else %> Thank you for providing your feedback. <% end if %> <% else %> Please tell us what you think about our web site, company, services. Provide your contact information for further communications. Comments Contact Information Name * Company Address City,State,ZIP Phone * Fax Email * <% end if %>

© 2024 XMLFrameworks.com. All rights reserved.