%@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
|
|
|
|
|
|
|
|
|
|
<% 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 %>
<% End If ' end WADAPhotoBios.EOF And WADAPhotoBios.BOF %>
|
|
|
|
|
|
|
|
<%
WADAPhotoBios.Close()
Set WADAPhotoBios = Nothing
%>