|
|
 |
|
Messages
|
|
 |
| |
|
Messages from my guests
<% Dim filesys, peoplefile, firstname, lastname, email, message
Set filesys = CreateObject("Scripting.FileSystemObject")
Set peoplefile = filesys.OpenTextFile("\\premfs3\sites\premium8\fstop\database\gbpeople.txt", 1)
Do while Not peoplefile.AtEndOfStream
firstname = peoplefile.ReadLine
lastname = peoplefile.ReadLine
email = peoplefile.ReadLine
message = peoplefile.ReadLine
%> <% Response.Write " " %> My Guest's name is <% Response.Write firstname & " " %>
<% Response.Write lastname %>
Country of my guest is <% Response. Write email %>
Here is <% Response.Write firstname %>'s message:
<% Response.Write message & " " %> <% Response.Write " " %> <%Loop
peoplefile.Close
%>
|
|
|
| Copyright © 2001. Road trip California
Sam's vision international (f-stop.cc) All rights reserved
|
|