<%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application ("text_ConnectionString") Set RS = Conn.Execute ("SELECT * From form_results.txt") Dim iCnt Do Until RS.EOF iCnt = iCnt + 1 Comments= RS("Comments") Name= RS("Name") Title= RS("Title") Company= RS("Company") Address= RS("Address") Telephone= RS("Telephone") FAX= RS("FAX") E-mail= RS("Email") RS.MoveNext Loop RSs.Close Conn.Close%>
Feedback 1
<% =Comments %>
[
Home
]
[
Up
]
[
Feedback 3
]
Send mail to
The Webmaster
with questions or comments about this web site.
Copyright © 2007 Hopewell Builders Supply
Last modified: 07/25/07
