<% Response.Buffer = True

If Request.Form("pw1") <> Request.Form("pw2") Then
	Session("meddelande") = "Båda lösenorden måste vara samma!! Försök igen."
	Response.Redirect "default.asp"
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/members.mdb")&";pwd=losen"

Set RecSet = Connect.Execute( "SELECT username FROM members WHERE username = '" & Request.Form( "username" ) & "'" )

If Not RecSet.EOF Then
	RecSet.Close
	Connect.Close
	set RecSet = Nothing
	set Connect = Nothing
	
	Session( "meddelande" ) = "Det användarnamnet var redan taget! Försök med något annat."
	Response.Redirect "default.asp"
End If

RecSet.Close
set RecSet = Nothing

Function Entities( ByVal str )
	str = Replace( str, """", "&quot;" )
	str = Replace( str, "'", "&#39;" )
	str = Replace( str, "(", "&#40;" )
	str = Replace( str, ")", "&#41;" )
	
	Entities = str
End Function

Connect.Execute( "INSERT INTO members (fnamn, enamn, username, losen, epost, icq, adress, pnr, stad, kunskap, syfte, personligURL, favoURL, bild, citat, datum, status) VALUES('" & Entities( Request.Form( "fnamn" ) ) & "', '" & Entities( Request.Form( "enamn" ) ) & "', '" & Entities( Request.Form( "username" ) ) & "', '" & Entities( Request.Form( "pw1" ) ) & "', '" & Entities( Request.Form( "epost" ) ) & "', '" & Entities( Request.Form( "icq" ) ) & "', '" & Entities( Request.Form( "adress" ) ) & "', '" & Entities( Request.Form( "pnr" ) ) & "', '" & Entities( Request.Form( "stad" ) ) & "', '" & Entities( Request.Form( "kunskap" ) ) & "', '" & Entities( Request.Form( "syfte" ) ) & "', '" & Entities( Request.Form( "personligURL" ) ) & "', '" & Entities( Request.Form( "favoURL" ) ) & "', '" & Entities( Request.Form( "bild" ) ) & "', '" & Entities( Request.Form( "citat" ) ) & "', #" & Entities( Request.Form( "datum" ) ) & "#, 'offline')" )

Connect.Close
set Connect = Nothing

Session( "meddelande" ) = "Du har nu blivit inlagd i registret! Testa att logga in."
Response.Redirect "default.asp"
%>