|
|
|
|
<% if Trim(Request.QueryString("function")) = "send" then %>
<%
company = Trim(Request.form("company"))
url = Trim(Request.form("url"))
name = Trim(Request.form("name"))
phone = Trim(Request.form("phone"))
email = Trim(Request.form("email"))
fax = Trim(Request.form("fax"))
address = Trim(Request.form("address"))
city = Trim(Request.form("city"))
%>
<% elseif Trim(Request.QueryString("function")) = "submit" then %>
<%
company = Trim(Request.form("company"))
url = Trim(Request.form("url"))
name = Trim(Request.form("name"))
phone = Trim(Request.form("phone"))
email = Trim(Request.form("email"))
fax = Trim(Request.form("fax"))
address = Trim(Request.form("address"))
city = Trim(Request.form("city"))
Set clientFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set clientFile = clientFileObject.OpenTextFile("c:\inetpub\wwwroot\xmlfw\data\register.txt",8,TRUE)
'Set clientFile = clientFileObject.OpenTextFile("d:\websites\xmlframeworks.com\data\register.txt",8,TRUE)
clientFile.WriteLine("Date:" & now())
clientFile.WriteLine("Company:" & company)
clientFile.WriteLine("URL:" & url)
clientFile.WriteLine("Name:" & name)
clientFile.WriteLine("Phone:" & phone)
clientFile.WriteLine("Fax:" & fax)
clientFile.WriteLine("Email:" & email)
clientFile.WriteLine("Address:" & address)
clientFile.WriteLine("City:" & city)
clientFile.WriteLine(";")
clientFile.Close
%>
Thank you for your interest in our organization. We look forward to doing business with you.
Our Business Development Manager will get in touch with you.
|
|
<% else %>
<% end if %>
|
|
|
|