<%
if (Request.ServerVariables("REQUEST_METHOD") = "POST") then
Dim item, val, sTo
'sTo = "jkilian@alliance1.org"
sTo = "wwwordercm@feinet.com"
Init 1
Readtemplate "registration.inc"
For Each item in Request.Form
val = Cstr(Request.Form(item))
Parameter item, val
Next
SendMessage _
"FormProcessor@feinet.com", _
"", _
sTo, _
"FEI Behavioral Health", _
"FEI-Responder Training Registration"
Response.redirect "confirm.asp"
end if
Function FilePath(strPathAndFile)
For intLCV = 1 to Len(strPathAndFile)
If Left(Right(strPathAndFile,intLCV),1) = "/" Then
intCutPlace = Len(strPathAndFile) - intLCV + 1
Exit For
End If
Next
FilePath = Left(strPathAndFile,intCutPlace)
End Function
%>
AnswerNet Drill Evaluation Form
