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

   Texter = "SELECT * FROM em_regg order by ID DESC"
   Re.Open Texter, Con, 3, 3 

	Set Ree = Server.CreateObject("ADODB.Recordset") 
   Texte = "SELECT * FROM em order by ID = " & Request.QueryString("eID") & " "
   Ree.Open Texte, Con, 3, 3 

	Dim Tot
	Do Until Re.EOF	
 	If Re.EOF Then
	Exit Do
	End If 

	If Clng(Re("eID")) = Clng(Request.QueryString("eID")) then
	Tot = Tot + 1
	End If

	Re.MoveNext
	Loop
	
	Dim Dat
	Dat = DateDiff("d", Date, Ree("Datum"))%>

<Table class="main" cellpadding="0" cellspacing="0">	
  <Tr>
   <Td width="60%" valign="top">
	<B class="Gul"><% =Ree ("Namn") %></B><BR>
	<A><% =Dat %> dagar kvar.</A><BR>
	<B>Lokal: </B><A><% =Ree ("Lokal") %>.</A><BR>
	<B>Datum: </B><A><% =Ree ("Datum") %>.</A><BR>
	<B>Max antal: </B><A><% =Ree ("Max") %>.</A><BR>
	<B>Information:</B><BR>
	<A><% =Ree ("Info") %></A><BR><BR>
<%	Do Until Re.EOF	
 	If Re.EOF Then
	Exit Do
	End If 

	Response.Write Tot & " Tot, " & Ree("Max") & " Max, " & Re("eID") & " eID, " & Re("mID") & " mID, "  & Session("Ed") & " ED"

	Re.MoveNext
	Loop %>
   </td>
   <td width="40%" valign="top"><img src="../bilder/bord.jpg" width="180px" border="1px"></td>
  </tr>
</table>
<%	Re.Close
	Ree.Close
	Con.Close
	End If