Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
write to text file on server
- Thread starter abhayrao
- Start date
Try this:
<%@ Language=VBScript %>
<%
Dim LogFile, LogMsg
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim FSO
LogFile = "\\server123456\LogFiles\SQL_LogFile.txt"
LogMsg = Request.Form("text1"
& " | " & Request.Form("text2" & " | " & Request.Form("text3"
Sub Log_Report(strFile, strMsg)
' This sub add the lines to the file named above
Set FSO = CreateObject("Scripting.FileSystemObject"
If NOT FSO.FileExists(strFile) then
Set objRpt = FSO.OpenTextFile(strFile, ForWriting, TRUE)
Else
Set objRpt = FSO.OpenTextFile(strFile, ForAppending, TRUE)
End If
objRpt.write StrMsg
objRpt.writeblanklines(1)
objRpt.close
Set objRpt = Nothing
End Sub
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%If Request.QueryString("action"="senddata" Then
Call Log_Report(logFile, logMsg)%>
<h2>Data sent!</h2>
<%Else%>
<form name="senddata" action="logfile.asp?action=senddata" method="post">
<table border="1" width="50">
<tr><th>Name</th><th>Address</th><th>Phone Number</th></tr>
<tr><td><input name="text1"></td>
<td><input name="text2"></td>
<td><input name="text3"></td></tr>
</table>
<p><input type="submit" value="Submit" name="submit"></p>
</form>
<%End If%>
</BODY>
</HTML>
Also, if you open and make a search for CreateObject("Scripting.FileSystemObject", you will probably get a lot of sites with explanations how this object works. You can also use DYNU object to work with the files from ASP pages.
<%@ Language=VBScript %>
<%
Dim LogFile, LogMsg
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim FSO
LogFile = "\\server123456\LogFiles\SQL_LogFile.txt"
LogMsg = Request.Form("text1"
& " | " & Request.Form("text2" & " | " & Request.Form("text3" Sub Log_Report(strFile, strMsg)
' This sub add the lines to the file named above
Set FSO = CreateObject("Scripting.FileSystemObject"
If NOT FSO.FileExists(strFile) then
Set objRpt = FSO.OpenTextFile(strFile, ForWriting, TRUE)
Else
Set objRpt = FSO.OpenTextFile(strFile, ForAppending, TRUE)
End If
objRpt.write StrMsg
objRpt.writeblanklines(1)
objRpt.close
Set objRpt = Nothing
End Sub
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%If Request.QueryString("action"
="senddata" ThenCall Log_Report(logFile, logMsg)%>
<h2>Data sent!</h2>
<%Else%>
<form name="senddata" action="logfile.asp?action=senddata" method="post">
<table border="1" width="50">
<tr><th>Name</th><th>Address</th><th>Phone Number</th></tr>
<tr><td><input name="text1"></td>
<td><input name="text2"></td>
<td><input name="text3"></td></tr>
</table>
<p><input type="submit" value="Submit" name="submit"></p>
</form>
<%End If%>
</BODY>
</HTML>
Also, if you open and make a search for CreateObject("Scripting.FileSystemObject"
, you will probably get a lot of sites with explanations how this object works. You can also use DYNU object to work with the files from ASP pages.- Status
Similar threads
