<% Option Explicit %> Saved by Grace | Ladda hem och lyssna på bibelstudier

<% Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") IF FSO.FileExists("frontbilder/" & Request.QueryString("show")) Then Response.Write("") Else Response.Write("") End IF %>
<% IF FSO.FileExists("titlar/" & Request.QueryString("show") & ".gif") then Response.Write("") Else Response.Write("") End IF %>
<% IF FSO.FileExists("texter/" & Request.QueryString("show") & ".html") then Server.Execute("texter/" & Request.QueryString("show") & ".html") Else Response.Redirect "lyssna.asp?show=lyssna.jpg" End IF IF Request.QueryString("a") <> "" and Request.QueryString("fil") <> "" then Set File = FSO.OpenTextFile("bibelstudier/"&Request.QueryString("fil")&".txt",1) Response.Write Replace("Antal klick: "&File.ReadAll,vbCrLf, "
") End IF Dim File, antal IF Request.QueryString("add") = "ett" and Request.QueryString("fil") <> "" then IF FSO.FileExists("bibelstudier/" & Request.QueryString("fil") & ".mp3") then Set File = FSO.OpenTextFile("bibelstudier/"&Request.QueryString("fil")&".txt",1) antal = File.ReadLine antal = antal + 1 Set File = FSO.OpenTextFile("bibelstudier/"&Request.QueryString("fil")&".txt",2) File.Write antal Response.Redirect "bibelstudier/"&Request.QueryString("fil")&".mp3" Else Response.Redirect "lyssna.asp?show=lyssna.jpg" End IF File.Close Set File = Nothing Set FSO = Nothing End IF %>