<%
CurPageInfoChk = "1"
function CurPageInfo ()
	PageName = "Wire Transfer"
	PageAction = "Viewing<br>" 
	CurPageInfo = PageAction & PageName
end function
%>
<!--#INCLUDE FILE="config.asp" --> 
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<% if not strDBNTUserName = "" then%>
<%
mwpThemeTitle= "Wire Transfer"
mwpThemeBlock_open()%>

        <tr>
          <td valign="top" align="center" width="75%" bgcolor="<%=strForumCellColor%>">
                  <%
	strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " 
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_GOLD, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_REP, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_RTOTAL, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_PAGE_VIEWS, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL "	
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & getMemberNumber(STRdbntUserName)
	set rs = my_Conn.Execute (strSql)
                  %>
            <table border="1" cellpadding="0" cellspacing="0" width="95%" style="border-collapse: collapse" bordercolor="<% =strHeadCellColor %>">
              <tr>
                <td width="33%"><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strDefaultFontColor %>"><b>Your
                  current Gold: </b><% =rs("M_GOLD")%></font></td>
              </tr>
            </table>
            <br>
            <form name="bank" action="bank1.asp" method="POST">
              <p align="center">Transfer : <input type="value" name="gold" size="20"> 
              gold(s)  to   <input name="member" size="14">   <input type="Submit" value="Transfer" </form>               </p>
            </form>
            <script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function pmmembers() { var MainWindow = window.open ("pop_memberlist.asp?pageMode=pm", "","toolbar=no,location=no,menubar=no,scrollbars=yes,width=300,height=500,top=100,left=100,status=no");
}
// done hiding -->
</script><a href="JavaScript:pmmembers();">Memberlist</a>
      
   
<%mwpThemeBlock_close()%>
 <% else%> 
    <%response.write "You need to sign in to view/use this page. Else register for free."%>
    <%end if %>
<!--#INCLUDE FILE="inc_footer.asp" -->

sub DoRepAdd(sUser_Name)

	'## Forum_SQL - Update Total Reputation for user ADD
	strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " SET " & strMemberTablePrefix & "MEMBERS.M_REP = " & strMemberTablePrefix & "MEMBERS.M_REP + 1 "
	strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & sUser_Name & "'"
'
	my_Conn.Execute (strSql)

end sub

	DoRepAdd Request.Form("UserName") '++++++++

DoULastPost Request.Form("UserName")

reward = "2"
reward = cint(reward)
		if not strDBNTUserName = "" then
			strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
			strSql = strSql & " SET M_GOLD = M_GOLD + " & reward
			strSql = strSql & " WHERE MEMBER_ID=" & getMemberID(strDBNTUserName)
			my_Conn.Execute (strSql)
		end if