% 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 %>
|
FEI Responder Network - Registration Form (updated 11/21/2008) |