GpsWarnEnter your name and address into the GPSby Otto MilvangPlease report comments, success or failure!<% if (Request("GPS") <> "") then Response.Write "" & vbcrlf Response.Write "Save report..." & vbcrlf 'Getting (Requesting) the Session variables from Form on previous page Session("FromName") = Request("FromName") Session("FromAddress") = Request("FromAddress") Session("Gps") = Request("GPS") Session("Version") = Request("Version") Session("Result") = Request("Result") Session("BodyText") = Request("BodyText") if (Session("FromAddress") = "") then from = "nobody@milvang.no" else from = Session("FromAddress") end if Response.Write SendMail(Session("FromName"), from, "Otto Milvang", "otto@milvang.no", "GpsWarn report", _ "Gps: " & Session("Gps") & vbcrlf & "Ver: " & Session("Version") & vbcrlf & "Res: " & Session("Result") & vbcrlf & Session("BodyText")) if (Session("Result") = "Success") then Set fs = CreateObject("Scripting.FileSystemObject") Path = server.mappath("counter.txt") Set a = fs.OpenTextFile(path) counter1 = CInt(a.ReadLine) counter2 = CInt(a.ReadLine) counter3 = CInt(a.ReadLine) counter4 = CInt(a.ReadLine) counter5 = CInt(a.ReadLine) counter6 = CInt(a.ReadLine) counter7 = CInt(a.ReadLine) counter8 = CInt(a.ReadLine) a.close update = 0 if (session("GPS") = "Gps 76") then counter1 = counter1 + 1 update = 1 end if if (session("GPS") = "GpsMap 76") then counter2 = counter2 + 1 update = 1 end if if (session("GPS") = "GpsMap 76S") then counter3 = counter3 + 1 update = 1 end if if (session("GPS") = "eTrex Vista") then counter4 = counter4 + 1 update = 1 end if if (session("GPS") = "eTrex Mariner") then counter5 = counter5 + 1 update = 1 end if if (session("GPS") = "eTrex Venture") then counter6 = counter6 + 1 update = 1 end if if (session("GPS") = "eTrex Legend") then counter7 = counter7 + 1 update = 1 end if if (session("GPS") = "Gps 72") then counter8 = counter8 + 1 update = 1 end if Set a = fs.OpenTextFile(path, 2, TRUE, 0) a.WriteLine(counter1) a.WriteLine(counter2) a.WriteLine(counter3) a.WriteLine(counter4) a.WriteLine(counter5) a.WriteLine(counter6) a.WriteLine(counter7) a.WriteLine(counter8) a.Close if (update > 0) then Response.Write " " & session("GPS") & " success counter updated Thanks for your report!" else Response.Write " Error: " & session("GPS") & ", success counter was not updated!" end if else Response.Write " Thanks, maybe you will find the answer in FAQ " end if if (Len(Session("BodyText")) > 50) then Response.Write " I read all GpsWarn reports, but I answer only a few" End if Response.Write "" & vbcrlf 'Abandoning session variables Session.Abandon end if %> |