Ákvað að svara áskoruninni og senda inn þessa grein sem fjallar um það hvernig maður býr til textaskrá á netþjóninum og les svo uppúr henni aftur.


skrifa.asp
<%
' Skilgreinum breyturnar sem við ætlum að nota
Dim objFSO, objTextaSkra

' Búum til eintak af &quot;File System Object&quot; og úthlutum því til objFSO
Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)

' Gefum okkur að skráin sé í sömu möppu og .asp skráin
' Við gætum líka skrifað fulla slóð.
' Set objTextaSkra = objFSO.CreateTextFile(Server.MapPath(&quot;C:\InetPub\wwwroot\lesaskrifa\textaskra.txt&quot;))
Set objTextaSkra = objFSO.CreateTextFile(Server.MapPath(&quot;textaskra.txt&quot;))
' Skrifum í skránna
objTextaSkra.WriteLine &quot;Þetta verður lína númer 1. í textaskránni&quot;
objTextaSkra.WriteLine &quot;Og þetta verður lína númer 2. í textaskránni&quot;

'Lokum skránni
objTextaSkra.Close
' Tæmum breytur
Set objTextaSkra = Nothing
Set objFSO = Nothing
%>


lesa.asp
<%
' Skilgreinum breyturnar sem við ætlum að nota
Dim objFSO, objTextaSkra

' Búum til eintak af &quot;File System Object&quot; og úthlutum því til objFSO
Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
' Opnum textaskránna
Set objTextaSkra = objFSO.OpenTextFile(Server.MapPath(&quot;textaskra.txt&quot;))

' Lykkjum okkur í gegnum textaskránna, línu fyrir línu, þangað til við erum við komum að enda hennar.
Do While Not objTextaSkra.AtEndOfStream
&nbsp;&nbsp;&nbsp;&nbsp;Response.Write objTextaSkra.ReadLine & &quot;<BR>&quot; & vbCrLf
Loop

'Lokum skránni
objTextaSkra.Close
' Tæmum breytur
Set objTextaSkra = Nothing
Set objFSO = Nothing
%