Ok... this is a working example of a form that posts information and automatically appends it to a .csv (text) file.
<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim fs, f, thefile, linevalue, LeadColumns
Dim fieldName, fieldValue
Dim i, NewFile
NewFile = False
If Request.Form.Count = 4 Then
Call ProcessForm()
Call DisplayThankYou()
Else
Call DisplayForm()
End If
Sub ProcessForm()
thefile = Server.MapPath("vet.csv")
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(thefile, 1, True)
If f.AtEndOfStream Then NewFile = True
f.Close
If NewFile = True Then
Set f = fs.OpenTextFile(thefile, 2)
For i = 1 to Request.Form.Count
fieldName = Request.Form.Key(i)
fieldValue = Request.Form.Item(i)
LeadColumns = LeadColumns & """" & Replace(fieldName,"""","") & ""","
Next
LeadColumns = Left(LeadColumns,Len(LeadColumns)-1)
f.WriteLine(LeadColumns)
f.Close
End If
Set f = fs.OpenTextFile(thefile, 8)
For i = 1 to Request.Form.Count
fieldName = Request.Form.Key(i)
fieldValue = Request.Form.Item(i)
linevalue = linevalue & """" & Replace(fieldValue,"""","") & ""","
Next
linevalue = Left(linevalue,Len(linevalue)-1)
f.WriteLine(linevalue)
f.Close
Set f = Nothing
Set fs = Nothing
End Sub
%>
<% Sub DisplayForm() %><html>
<head>
<title>.: Tell us what you think! :.</title>
<style type="text/css">
<!--
body
{
background-color:#99cc99;
}
table
{
margin-left:auto;
margin-right:auto
}
td
{
font-family:arial,helvetica;
font-size:10pt
}
.cf
{
font-family:courier new;
font-size:10pt;
width:200px;
background-color:#ccffcc
}
-->
</style>
<script type="text/javascript">
<!--
if (!document.all && !document.getElementById)
{
alert("Your browser is obsolete. Please install a modern browser.");
location = "http://channels.netscape.com/ns/browsers/download.jsp";
}
function trim(str)
{
return str.replace(/^\s+/,"").replace(/\s{2,}/g," ").replace(/\s+$/,"");
}
function validateForm(f)
{
/* Declare variables */
var errorMessage = "";
var focusField;
var emailRegex = /^\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$/;
/*
* Trim leading and trailing spaces from entries -
* add more element types as needed
*/
for (var i = 0; i < f.elements.length; i ++)
{
var x = f.elements[i];
if (x.type == "text" || x.type == "textarea")
{
x.value = trim(x.value);
}
}
/* Validate required fields */
if (f.Name.value == "" ||
f.Name.value == f.Name.defaultValue)
{
errorMessage += "- Name is required\n";
f.Name.value = f.Name.defaultValue;
if (!focusField) focusField = "Name";
}
if (!emailRegex.test(f.Email.value) ||
f.Email.value == f.Email.defaultValue)
{
errorMessage += "- Invalid email address\n";
f.Email.value = f.Email.defaultValue;
if (!focusField) focusField = "Email";
}
if (f.Subject.value == "" ||
f.Subject.value == f.Subject.defaultValue)
{
errorMessage += "- Subject is required\n";
f.Subject.value = f.Subject.defaultValue;
if (!focusField) focusField = "Subject";
}
if (f.Message.value == "" ||
f.Message.value == f.Message.defaultValue)
{
errorMessage += "- Message is required\n";
f.Message.value = f.Message.defaultValue;
if (!focusField) focusField = "Message";
}
/* Perform final validation */
if (errorMessage != "")
{
alert("Please correct the following errors:\n\n" + errorMessage);
eval("f." + focusField + ".focus()");
eval("f." + focusField + ".select()");
return false;
}
else
{
return true;
}
}
// -->
</script>
</head>
<body>
<div>
<form id="form1" style="text-align:center" action="csv.asp" method="post" onsubmit="return validateForm(this)">
<table>
<tr>
<td valign="top">
<input type="text" name="Name" value="YOUR NAME" class="cf" onfocus="this.select()" onblur="this.value=trim(this.value)" />
</td>
</tr>
<tr>
<td valign="top">
<input type="text" name="Email" value="YOUR EMAIL ADDRESS" class="cf" onfocus="this.select()" onblur="this.value=trim(this.value)" />
</td>
</tr>
<tr>
<td valign="top">
<input type="text" name="Subject" value="YOUR SUBJECT" class="cf" onfocus="this.select()" onblur="this.value=trim(this.value)" />
</td>
</tr>
<tr>
<td valign="top">
<textarea rows="7" cols="45" name="Message" class="cf" style="overflow:auto" onfocus="this.select()" onblur="this.value=trim(this.value)">YOUR MESSAGE</textarea>
</td>
</tr>
<tr>
<td align="center">
<input type="submit" value="Send Message" />
</td>
</tr>
</table>
</form>
</div>
</body>
</html><% End Sub %>
<% Sub DisplayThankYou %><html>
<head>
<title>.: Tell us what you think! :.</title>
<style type="text/css">
<!--
body
{
background-color:#99cc99;
}
table
{
margin-left:auto;
margin-right:auto
}
td
{
font-family:arial,helvetica;
font-size:10pt
}
.cf
{
font-family:courier new;
font-size:10pt;
width:200px;
background-color:#ccffcc
}
-->
</style>
</head>
<body>
<div>
<span style="font-weight:bold">Thank You!</span>
</div>
<script type="text/javascript">
<!--
setTimeout("location='csv.asp'",3000);
// -->
</script>
</body>
</html><% End Sub %>
You should be able to modify that to work after/with writing to a database, or to only write to the .csv file in a subroutine, once you see how it works. Hope it helps. :D