<% Response.Buffer = TRUE %>
<%
if len(request.form("anv")) > 3 and len(request.form("anv")) < 13 then
	if len(request.form("los")) > 3 and len(request.form("los")) < 13 then

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From anv"
RecSet.Open Addera, Connect, 3, 3

Do Until RecSet.EOF

	If RecSet("anv") = Request.Form("anv") Then

		Session("meddelande") = " Detta användarnamn va upptaget. Testa ett nytt"
		RecSet.Close
		Response.Redirect "blimedlem.asp"

	End If
RecSet.MoveNext
Loop
RecSet.Close

Addera = "Select * From anv "
RecSet.Open Addera, Connect, 3, 3

	RecSet.AddNew
	RecSet("anv")=request.form("anv")
	RecSet("los")=request.form("los")
	RecSet("rekryt")=request.form("rek")
	RecSet("reggad")=now
	RecSet("alder") = "00:00:00"
	RecSet("hemsida") ="Okänt"
	RecSet("bor") ="Okänt"
	RecSet("kon") ="Okänt"
	RecSet("civil") ="Okänt"
	RecSet("msn") ="Okänt"
	RecSet("namn") ="Okänt"
	RecSet("bild") ="bilder/1.jpg"
	RecSet.Update
	RecSet.Close
	
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("databas/databas.mdb")
sql = "Update anv Set antalrek = antalrek + 1 Where anv= '"& request.form("rek") &"'"
Connect.Execute(sql),,128
Connect.Close
Set Connect = Nothing

	Set RecSet = nothing
	Set Connect = nothing

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where anv='"&request.form("anv")&"' and los='"&request.form("los")&"'"
rs.Open Addera, Connect, 3, 3

Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM mess"
rs2.Open Addera, Connect, 3, 3
rs2.addnew
rs2("fran") ="Thomsson"
rs2("franid")="{33BD0255-46BC-4E2C-82EC-20E8DE9DDFF6}"
rs2("vems")=rs("id")
rs2("titel") ="Välkommen till Da Star Community! "
rs2("text")=" Hej! Och mycket varmt välkommen som medlem i Da Star Community! Hoppas du kommer att trivas! Har du frågor? Snacka då med Webmaster! Lycka till!"
rs2("datum") = now
rs2.update

session("grattis")="Grattis, du är nu medlem. Nu är det bara att logga in !!!"
Response.Redirect "default.asp"


else
session("felmess")="Något blev fel! Testa igen, tänk på att användarnamnet och lösenordet måste vara minst 4 och max 12 tecken."
Response.Redirect "blimedlem.asp"
end if
else
session("felmess")="Något blev fel! Testa igen, tänk på att användarnamnet och lösenordet måste vara minst 4 och max 12 tecken."
Response.Redirect "blimedlem.asp"
end if
%>