If Request.QueryString("b") = "2" Then

   Texter = "SELECT * FROM Ev"
   Re.Open Texter, Con, 3, 3 %>
<Div class='text'>
<%
	If Re("Nr") = Session("ED") Then 
	Do Until Re.EOF	
 	if Re.EOF Then
	Exit Do
	End If

	Response.Write "<A Href='badmin.asp?b=2tun&ID"
	Response.Write Re ("Nr")
	Response.Write "'>Anmäl dig till tuneringen den"
	Response.Write Re ("Dat")
	Response.Write "</A><BR>"

	Re.MoveNext
	Loop
	Else
		
	Response.Write "Du är reggad"
		
	End If
%>
</Div>
<%
 	End If

	If Request.QueryString("b") = "2tun" Then

   Addera = "SELECT * FROM medlem WHERE ID = " & Session("ID") & " "
   Re.Open Addera, Con, 3, 3

	Re("Nr") = ED
	Re("Namn") = Namn
	Re("Email") = Email
	Re.close

   Addera = "SELECT * FROM Ev WHERE ID = " & Request.QueryString("ID") & " " 
   Re.Open Addera, Con, 3, 3

	Re("Nr") = ED
	Re("Namn") = Namn
	Re("Email") = Email

	Re.Update
	Re.Close
	Con.Close
	

	Response.write "<DIV class='text'><B>Bokad</B><A><BR>Kom ihåg att anmälan är bindande. Om du ej deltar tar vi ut en avgift på 50kr.<BR>Mvh Styrelsen.</A></DIV>" 
	
	End If