åbne textfil

Ved hjælp af FileSystemObject. Eksempel:

  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  ReadAllTextFile =  f.ReadAll

henttekst.inc
<%
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(server.mappath(".") & "\velkomst.txt")

streng=""

while not mytextfile.atendofstream
  streng=streng & mytextfile.readline & vbcrlf
wend
%>

i din asp fil;

<!--#include file="henttekst.inc"-->
<html>
<body>
.
.

<textarea>"&streng&"</textarea>

lård! skulle naturligvis have været;

<textarea><% =streng %></textarea>

ok cool, men meningen er at den skal gøre det når jeg trykker på en knap, jeg har prøvet følgende:

<input type="button" value="Insæt Top" size="30" id="button2" name="button2" onclick="java script:void(form1.textarea1.value + <% open_top("top.txt") %>);" /><br />

hvor funcionen open_top ser således ud:

<%
function open_top(filen)
dim myfileobject, mytextfile, streng
'set filen = fil
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(server.mappath(".") & "\files\" &filen )
streng=""
while not mytextfile.atendofstream
  streng=streng & mytextfile.readline & vbcrlf
wend
response.write streng
end function
%>


dette virker også fint hvis open_top åbnes i mellem <textarea> tagsene, men altså ikke på knappen som jo styeres af javascript.

Hvordan kan man insætte en aspkommando inde i et sådnt javascript?

Man kan ikke blande ASP og JavaScript da ASP udføres på serveren og JavaScript udføres på klienten.
ASP bruges jo netop til at producere HTML/JavaScript som så sendes til klienten.
Du er derfor nødt til at reloade siden og vise indholdet af tekstfilen i tekstboksen når der trykkes på knappen.