<% Option Explicit response.buffer = True dim ValidField, sFieldvalue, sFieldtype Function ValidateField(sFieldvalue, sFieldtype) ValidField = True Select Case LCase(sFieldtype) Case "name", "title", "org", "street1", "city", "state", "zip", "country", "telephone", "email" If Len(sFieldvalue) = 0 Then ValidField = False Case "laji" If sFieldvalue <> "maic" Then ValidField = False End Select ValidateField = ValidField End Function Sub ShowForm %> Landmine Casualty Data: Best Practices Guidebook
Updated
MAIC > Landmine Casualty Data: Best Practices Guidebook
Landmine Casualty Data: Best Practices Guidebook

The Mine Action Information Center at James Madison University has released the Landmine Casualty Data: Best Practices Guidebook, which is designed as a reference tool to assist people trying either to create a mine/ERW victim information system or enhance an existing system.  Published through a grant from the Office of Weapons Removal and Abatement in the U.S. Department of State's Bureau of Political-Military Affairs, the Guidebook reports on advances being made in casualty data collection and management and offers lessons learned that countries can reflect upon as they undertake the challenging task of building mine/ERW victim information systems.

This 75-page Guidebook integrates a large volume of information emanating from a number of different sources and presents detailed case studies, recommended best practices, lessons learned, and contacts and resources for victim assistance information management and program planning. 

The Guidebook is available at no cost in Adobe PDF format. A low resolution version can be downloaded below or a high resolution version on CD is available upon request.

Landmine Casualty Data: Best Practices Guidebook (3.85 MB)

If Adobe Reader is not installed on your computer, you can download the reader and installation instructions by clicking on the icon to the right.

Yes, I want to obtain a copy of the Landmine Casualty Data: Best Practices Guidebook on CD..

Name " size="50"> <% If dictFields(LCase("name")) Then Response.Write "*
" ValidField = True End If %>
Title " size="50"> <% If dictFields(LCase("title")) Then Response.Write "*
" ValidField = True End If %>
Organization " size="50"> <% If dictFields(LCase("org")) Then Response.Write "*
" ValidField = True End If %>
Street Address " size="50"> <% If dictFields(LCase("street1")) Then Response.Write "*
" ValidField = True End If %>
Street Address " size="50"> <% If dictFields(LCase("street2")) Then Response.Write "*
" ValidField = True End If %>
City " size="50"> <% If dictFields(LCase("city")) Then Response.Write "*
" ValidField = True End If %>
State or Province " size="50"> <% If dictFields(LCase("state")) Then Response.Write "*
" ValidField = True End If %>
Zip " size="8"> <% If dictFields(LCase("zip")) Then Response.Write "*
" ValidField = True End If %>
Country " size="50"> <% If dictFields(LCase("country")) Then Response.Write "*
" ValidField = True End If %>
Telephone Number " size="50"> <% If dictFields(LCase("telephone")) Then Response.Write "*
" ValidField = True End If %>
Email Address " size="50"> <% If dictFields(LCase("email")) Then Response.Write "*
" ValidField = True End If %>
Validation Code

">
Please enter maic in the textbox above. This is used to prevent spams! Thank you!<% If dictFields(LCase("laji")) Then Response.Write "
Please enter the validation code maic.
" Else Response.Write " " End If %>

All bolded information is required to register.
<% If ValidField = True THEN Response.Write "Please provide all requested information - missing data is marked with an asterisk." End If %>
<% End Sub dim dictFields, Field Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add LCase(Field), True End If Next If Request.Form.Count <> 0 and dictFields.Count = 0 Then call Register Else Showform End If Sub Register '-------- Email --------- dim myMail Set myMail = CreateObject("CDO.Message") myMail.Subject = "Email Request for a CD of Landmine Casualty Data: Best Practices Guidebook" myMail.From = request.form("email") myMail.To = "fiedersl@jmu.edu, maic@jmu.edu" myMail.TextBody = "It's the email for request a CD of Landmine Casualty Data: Best Practices Guidebook for:" & vbcrlf & request.form("name") & vbcrlf & request.form("title") & vbcrlf & request.form("org") & vbcrlf & request.form("Street1") & vbcrlf & request.form("Street2") & vbcrlf & request.form("city") & vbcrlf & request.form("state") & vbcrlf & request.form("zip") & vbcrlf & request.form("country") & vbcrlf & request.form("telephone") & vbcrlf & request.form("email") & vbcrlf & request.form("format") myMail.Send set myMail = nothing '-------- response.redirect "download.htm" End Sub %>