X M L Frameworks.com Gateway to future Technologies
   
About us Services Careers Contact Sitemap
    <% 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 %>
© 2021 XMLFrameworks.com. All rights reserved.