Mitt problem är att jag vill att den ska börja vid min <body> tagg men det gör den inte vad gör jag för fel.... Jag löste det så här så att alla som inte visste det kan titta på det :-)Problem med att streamingen ska börja vid en viss tagg
If Request.Querystring("type")="file" then
Dim sTxt, fs, f
sFile = Server.MapPath(Request.Querystring("path"))
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(sFile, 1)
sTxt = ""
'do while not f.AtEndOfStream
'sTxt = sTxt & f.ReadLine
'loop
sTxt = f.ReadAll
start_pos = InStr(sTxt, "<body>")
end_pos = InStr(sTxt, "</body>")
Session("start") = Left(sTxt, start_pos)
Session("message") = Mid(sTxt, start_pos + 7, end_pos - start_pos - 6)
Session("end") = Mid(sTxt, end_pos)
f.Close
Set f=Nothing
Set fs=Nothing
session("action")="../admin.asp?alt=save_data&type=file&path=" & Session("path")
End If 'typeSv: Problem med att streamingen ska börja vid en viss tagg
If Request.Querystring("type")="file" then
Dim sTxt, fs, f
sFile = Server.MapPath(Request.Querystring("path"))
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(sFile, 1)
sTxt = ""
'do while not f.AtEndOfStream
' sTxt = sTxt & f.ReadLine
'loop
sTxt = f.ReadAll
start_pos = InStr(sTxt, "<body")
end_pos = InStr(sTxt, "</body>")
Session("start") = Left(sTxt, start_pos + 5)
Session("message") = Mid(sTxt, start_pos + 6, end_pos - start_pos)
Session("end") = Mid(sTxt, end_pos)
'sTmp = Session("message")
'for i=1 to len(sTmp)
' response.write Mid(sTxt, i, 1) & " " & Asc(Mid(sTxt, i, 1)) & "<br>"
'next
'response.end
'response.write "Start_pos: " & start_pos & "<br>"
'response.write "End_pos: " & end_pos & "<br>"
'response.write "Start: " & Session("start") & "<br><br>"
'response.write "Body: " & Session("message") & "<br><br>"
'response.write "End: " & Session("end") & "<br><br>"
'response.end
f.Close
Set f=Nothing
Set fs=Nothing
Session("action")="../admin.asp?alt=save_data&type=file&path=" & Session("path")
End If 'type