<!-- #INCLUDE FILE="msado15.dll" --> 
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
dim con,rs
set con=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/Databasezz.mdb") & ";Persist Security Info=False"
con.open
minfo=Request.QueryString("Members")
with rs
	.ActiveConnection=con
	.CursorType=adOpenDynamic
	.lockType=adLockOptimistic
	.cursorlocation=adUseClient
	.open "select * FROM MemberInfo where Username='" & minfo & "'"
end with
Response.Clear()
%>
<form name="form1" method="post" action="UpdateProfile.asp">
    <tr> 
      <td width="238"><b>Nickname</b></td>
      <td width="206"><b><%=rs("Username")%></b>&nbsp;</td>
    </tr>
    <tr>
      <td>
          <% if rs("ReceiveMail")=="Yes"  then  %>
	     <input type="radio" name="newsletter" value="Yes" checked>Yes
	     <input type="radio" name="newsletter" value="No">No
          <% else %>
	     <input type="radio" name="newsletter" value="Yes">Yes
	     <input type="radio" name="newsletter" value="No" checked>No
          <% end if %>
      </td>
    </tr>
</table>
<input type="submit" value="submit">
</form>

<%if rs.Fields("ReceiveMail").Value = "Yes" then%>
    <input type="radio" name="Newzletter" value="Yes" echo checked>Yes
    <input type="radio" name="Newzletter" value="No">No
<%else%>
    <input type="radio" name="Newzletter" value="Yes">Yes
    <input type="radio" name="Newzletter" value="No" echo checked>No
<%end if%>