<% Dim landing_page, host_url Dim fso, outfile, filename, dirname, myFolder Dim req_method, key, value Dim bErr, errStr, bEmpty On Error resume next bErr = false bEmpty = true errStr = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") host_url = Request.ServerVariables("HTTP_HOST") req_method = Request.ServerVariables("REQUEST_METHOD") dtNow = Now() filename = Server.MapPath("\ssfm") dirname = filename filename = filename & "\gdform_" & DatePart("M", dtNow) & DatePart("D", dtNow) & DatePart("YYYY", dtNow) & DatePart("N", dtNow) & DatePart("S", dtNow) Function FormatVariableLine(byval var_name, byVal var_value) Dim tmpStr tmpStr = tmpStr & "" & vbCRLF tmpStr = tmpStr & var_value & vbCRLF tmpStr = tmpStr & "" FormatVariableLine = tmpStr end function Sub OutputLine(byVal line) outfile.WriteLine(line) end sub if err.number = 0 then Set outfile = fso.CreateTextFile(filename, true, false) if err.number <> 0 then bErr = true errStr = "Error creating file! Directory may not be writable or may not exist.
Unable to process request." else if(req_method = "GET") then for each Item in request.QueryString if item <> "" then bEmpty = false key = item value = Request.QueryString(item) if(lcase(key) = "redirect") then landing_page = value else line = FormatVariableLine(key, value) Call OutputLine(line) end if end if next elseif (req_method = "POST") then for each Item in request.form if item <> "" then bEmpty = false key = item value = Request.form(item) if(lcase(key) = "redirect") then landing_page = value else line = FormatVariableLine(key, value) Call OutputLine(line) end if end if next end if outfile.close end if if(bEmpty = true) AND errStr = "" then bErr = true errStr = errStr & "
No variables sent to form! Unable to process request." end if if(bErr = false) then if (landing_page <> "") then response.Redirect "http://" & host_url & "/" & landing_page else response.Redirect "http://" & host_url end if else Response.Write errStr end if set fso = nothing else Response.Write " An Error Occurred creating mail message. Unable to process form request at this time." end if %>Frog Level Volunteer Fire Depart

Frog Level Volunteer Fire Department
 Tuesday, 26 August 2008

   

       30240 Richmond Turnpike  P.O. Box 201, Hanover  VA  23069        Phone:  804.994.2700

    

History

Coming Events

Apparatus

Links

Pictures

Directions

Auxiliary

Recruiting New Members Now !!
Meet The Froggies
Click On the appropriate name to see there bio page
Any Link will be Underlined
William "Billy" Andrews
Instructor/Chauffeur
Arthur Ayres
Instructor
Dennis Barton
Support
Logan "Sammy" Bunger
Fire Fighter
Michael Burnat
Probation
Heather Calhoun
E.M.S. Cap
Carter
Trevor Chenault
Fire Fighter
Daniel Childress
Fire Fighter
David Childress
Fire Fighter
Heather Cranfield
Fire Fighter
John Cullinane
Fire Fighter/Cheaufer
Jason Dabney
Fire Fighter
Joseph Davenport
Asst. Chief
April Dickens
Probation
George Dilworth
Apparatus Captain 54
Shawn Divelbliss
Training
John "Stevie" Dubose
Fire Fighter
 Captain 52
Tony Ford
Fire Fighter/EMT
Dona Gage
Fire Fighter
Gary Gilbert
Fire Fighter
Gerold Gilbert "Wayne"
Ann Griffin
Fire Fighter/EMT
Charles Griffin
Fire Fighter/Cheaufer
Michael Griffin
Hose Lieutenant
Richard Harris
Life Member
Robert Harry
Probation
Geoffrey Honan
Life Member
Heather Kay
Supply
Travis Long
Fire Fighter/Chauffer
Alfred Loving
Fire Fighter
Robert Mitchel
Chief 5
David Rozell "Maxie"
Life Member
Blake Rozell
Fire Fighter
Jennifer Scott
Probation
Joshua Smith
Fire Fighter
William Squires
Fire Fighter
Ronald Southworth
Life Member
 Sergeant 58
 56
Cynthia Griffin
Support

Fire Fighter
Conrad
Fire Fighter
tain 53
Kevin Barlow
Life Member
Keith Barlow
Life Member
Francis Barlow "Dad"
Life Member

1994-2007 Copyright 24DOT7 Marketing      All Rights Reserved in cooperation with Frog Level Volunteer Fire Department.