I have written some script which should address your request.
It's a bit untidy but gives you the basis of what you require:
Create a HTML page called Inputs.htm and paste in the following code:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Input data into the text boxes....</TITLE>
</HEAD>
<SCRIPT Language="JScript">
<!--
var inprogress;
function DoSubmit(sessionid)
{
if (inprogress == "True")
{
alert("Submission is being processed, please wait");
return (false);
}
inprogress = "True";
window.location.href="Process.asp?T1="
+ oForm.oText1.value
+ "&T2=" + oForm.oText2.value
+ "&T3=" + oForm.oText3.value
+ "&T4=" + oForm.oText4.value
+ "&T5=" + oForm.oText5.value;
}
-->
</SCRIPT>
<BODY>
<FORM name="oForm">
<P>
<TABLE cellSpacing=2 cellPadding=2 border=0>
<TR>
<TD>Input No 1 </TD>
<TD><INPUT id=text1 name=oText1></TD>
</TR>
<TR>
<TD>Input No 2 </TD>
<TD><INPUT id=text2 name=oText2></TD>
</TR>
<TR>
<TD>Input No 3 </TD>
<TD><INPUT id=text3 name=oText3></TD>
</TR>
<TR>
<TD>Input No 4 </TD>
<TD><INPUT id=text4 name=oText4></TD>
</TR>
<TR>
<TD>Input No 5 </TD>
<TD><INPUT id=text5 name=oText5></TD>
</TR>
</TABLE></P>
<INPUT type="button" style="width:75px" value="Submit" onclick="DoSubmit()"></INPUT>
<FORM>
</BODY>
</HTML>
Create an ASP page called Process.ASP and paste in the following code:
<html>
<title>Processing data from Inputs.htm</title>
<BODY>
<%@ Language=VBScript%>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim sData
Dim iFile '== Input File
Dim oFile '== Output File
Dim TextStream
Dim sLine '== File line
Dim updateFlag
Dim sSplit
updateFlag = 0
sData = Request.QueryString("T1") & "," & _
Request.QueryString("T2") & "," & _
Request.QueryString("T3") & "," & _
Request.QueryString("T4") & "," & _
Request.QueryString("T5")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\myData.html") Then
Set iFile = fso.GetFile("C:\myData.html")
Else
Set iFile = fso.CreateTextFile("C:\myData.html", True)
iFile.WriteLine("'=== Input Data file ==='")
iFile.Close
Set iFile = fso.GetFile("C:\myData.html")
End If
Set TextStream = iFile.OpenAsTextStream(ForReading)
'=== Create a temporary file to put data into
Set oFile = fso.CreateTextFile("C:\myTemp.html", True)
Do While Not TextStream.AtEndOfStream
'=== Get the next line from the file
sLine = TextStream.ReadLine
Select Case sLine
Case "'=== Input Data file ==='"
Response.Write "<font color='Blue'>" & sLine & "</font><br>"
oFile.WriteLine sLine
Case ""
'=== Enter whatever lines you want to ignore in separate expressionlists
Case Else
sSplit = Split(sLine, ",")
'=== Check the first item for a duplicate
If Trim(sSplit(0)) = Trim(Request.QueryString("T1")) Then
Response.Write "<font color='Red'>" & sData & "</font><br>"
oFile.WriteLine sData
updateFlag = 1
Else
Response.Write sLine & "<br>"
oFile.WriteLine sLine
End If
End Select
Loop
TextStream.Close
'=== If the record was not found in the file then add it now
If updateFlag = 0 Then
Response.Write "<font color='Red'>" & sData & "</font><br>"
oFile.WriteLine sData
End If
Response.Write "<font color='Blue'>The item in red represents a new entry or updated existing item.</font><br>"
oFile.Close
fso.CopyFile "C:\myTemp.html", "C:\myData.html", True
fso.DeleteFile "C:\myTemp.html", True
Set fso = Nothing
%>
</BODY>
</HTML>
Put both files into a IIS folder, then call the Inputs.htm.
You can improve this if you use Server.MapPath("myData.htm") so you can get to the file from a remote server
Is this all understandable? Let me know how you get on!
:cool: