<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim WADAPhotoBios__ParamSessionID WADAPhotoBios__ParamSessionID = "-1" If (Session("WADA_Insert_PhotoBios") <> "") Then WADAPhotoBios__ParamSessionID = Session("WADA_Insert_PhotoBios") End If %> <% Dim WADAPhotoBios__ParamID2 WADAPhotoBios__ParamID2 = "-1" If (Request.QueryString("ID") <> "") Then WADAPhotoBios__ParamID2 = Request.QueryString("ID") End If %> <% Dim WADAPhotoBios__ParamID WADAPhotoBios__ParamID = "-1" If (Request.QueryString("ID") <> "") Then WADAPhotoBios__ParamID = Request.QueryString("ID") End If %> <% Dim WADAPhotoBios Dim WADAPhotoBios_cmd Dim WADAPhotoBios_numRows Set WADAPhotoBios_cmd = Server.CreateObject ("ADODB.Command") WADAPhotoBios_cmd.ActiveConnection = MM_portal_STRING WADAPhotoBios_cmd.CommandText = "SELECT ID, LName, FName, MInitial, Suffix, PhotoSm, Bio, [2], [6], PhotoLg, Email FROM PhotoBios WHERE ID = ? OR ( -1=? AND ID=?)" WADAPhotoBios_cmd.Prepared = true WADAPhotoBios_cmd.Parameters.Append WADAPhotoBios_cmd.CreateParameter("param1", 5, 1, -1, WADAPhotoBios__ParamID) ' adDouble WADAPhotoBios_cmd.Parameters.Append WADAPhotoBios_cmd.CreateParameter("param2", 5, 1, -1, WADAPhotoBios__ParamID2) ' adDouble WADAPhotoBios_cmd.Parameters.Append WADAPhotoBios_cmd.CreateParameter("param3", 5, 1, -1, WADAPhotoBios__ParamSessionID) ' adDouble Set WADAPhotoBios = WADAPhotoBios_cmd.Execute WADAPhotoBios_numRows = 0 %> Welcome Moose Members
         


 
 
 
New Search            
Results
<% If Not WADAPhotoBios.EOF Or Not WADAPhotoBios.BOF Then %>
" onclick="MM_openBrWindow('http://www.mooseintl.org/portal/publications/<%=(WADAPhotoBios.Fields.Item("PhotoLg").Value)%>','','width=400,height=400')" />  
To Download Large Format Photo. Click on the photo above, a new page will open. Right Click on the photo and select 'Save As"  
<%=(WADAPhotoBios.Fields.Item("FName").Value)%> <%=(WADAPhotoBios.Fields.Item("MInitial").Value)%> <%=(WADAPhotoBios.Fields.Item("LName").Value)%> <%=(WADAPhotoBios.Fields.Item("Suffix").Value)%>
   
<%=(WADAPhotoBios.Fields.Item("6").Value)%>  
Home Unit: <%=(WADAPhotoBios.Fields.Item("2").Value)%>  
E-Mail: " class="BoldBlu12"> <%=(WADAPhotoBios.Fields.Item("Email").Value)%>  
   
To Download or Print the Biographical Sheet, " target="_blank">Click Here  
 
<% End If ' end Not WADAPhotoBios.EOF Or NOT WADAPhotoBios.BOF %> <% If WADAPhotoBios.EOF And WADAPhotoBios.BOF Then %>
No record found.
<% End If ' end WADAPhotoBios.EOF And WADAPhotoBios.BOF %>
 
 
 
<% WADAPhotoBios.Close() Set WADAPhotoBios = Nothing %>