<% @LANGUAGE="VBSCRIPT"%> <% Option Explicit %> <% CONST EmpData = "/employees.dat" CONST AppPath = "/test" Dim objFile, objStream Dim strName, strDept, strHomePhone, strExt If Request.Form("Name") <> "" Then strDept = Request.Form("Dept") strName = Request.Form("Name") strHomePhone = Request.Form("Home_Phone") strExt = Request.Form("Extension") Set objFile = Server.CreateObject("Scripting.FileSystemObject") Set objStream = objFile.OpenTextFile(Server.MapPath(AppPath) _ & EmpData, ForAppending, TRUE, TriStateUseDefault) objStream.WriteLine(strName & vbTab & strDept & vbTab _ & strHomePhone & vbTab & strExt) objStream.Close Set objStream = Nothing Set objFile = Nothing %> Employee Input Results

Confirm Results

You input the following data:

Department <%=strDept %>
Name <%=strName %>
Home Phone <%=strHomePhone %>
Extension <%=strExt%>
<% Else %> Add an Employee

Add an Employee

Department:
Name:
Home Phone:
Extension:

<% end if %>