<%
If Request.QueryString("action") = "8" Then
%>
<%
Dim clan

If request.form("fornamn") = "" then
response.Write("<font face='Verdana' size='1' color='#ff0000'>Please write your forname!</font>")
elseIf request.form("efternamn") = "" then
response.Write("<font face='Verdana' size='1' color='#ff0000'>Please write your lastname!</font>")
elseIf request.form("nick")= "" then
response.Write("<font face='Verdana' size='1' color='#ff0000'>Please write your nick!</font>")
elseif request.form("clan") = "" and request.form("checkbox") = "" then
response.Write("<font face='Verdana' size='1' color='#ff0000'>Du måste välja att antingen kryssa i checkboxen eller skriva ett namn i clan inputen!</font>")
elseif request.form("clan") = "" and if request.form("Checkbox") <> "" then
clan = "-"
elseif request.form("clan") <> "" and if request.form("Checkbox") = "" then
clan = request.form("clan")
elseif request.form("clan") <> "" and if request.form("Checkbox") <> "" then
response.Write("<font face='Verdana' size='1' color='#ff0000'>Du kan inte kryssa i rutan och fylla i clan inputen!</font>")

else

Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("db\gamestorm.mdb")
SQL = "SELECT * From players WHERE nick = '" & request.form("nick") & "'"
rs.Open SQL, MinCon, 1, 2

if rs.EOF then
rs.addnew
rs("fornamn") = request.form("fornamn")
rs("efternamn") = request.form("efternamn")
rs("nick") = request.form("nick")
rs("clan") = clan

rs.Update
rs.Close

Response.Write "<script language=""Javascript"">alert('You are now signed!');window.location='default.asp';</script>"
Else
Response.Write "<script language=""Javascript"">alert('Player with that nick is already signed!')</script>"
End IF
End IF
End IF
End IF
%>

.::.::.::.::.::.::.::.::.::.::.::.::.::.::.::.::.::.::.::.::..::.::.::.::.::.::.::.

den lägger inte till ngt i databasen..sidan bara reloadar

Prova använda
<code>
MinCon.open "Driver={Microsoft access driver (*.mdb)};Dbq=" & Server.MapPath("mdb/databsen.mdb") & ";"
sen kan du skriva en sql fråga så här.
SQL ="Insert Into Tabellnamnet"
SQL = SQL & "(fält1,fält2,fält3,fält4)"
SQL = SQL & "Values('" & replace("värde1"),"'","''" & "','" & replace("värde2"),"'","''" & "','" & replace("värde3"),"'","''" & "','" & replace("värde4"),"'","''" & "')"
</code>
ha lika många fält som du har värden.

Sen för köra koden skriv så här då!
<code>
Set Rst = MinCon.execute(SQL)
MinCon.close
Set MinCon = Nothing
</code>
sql satsen körs och set rst raden kör sql satsen i databasen och öppnar och skriver till informationen i databasen sen stänger den rst.
Och sen stänger vi MinCon sen tömmer vi MinCon.

För hämta information skriver du lättast så här.
<code>
SQL ="Select * from tabellnamn Where Fällt1 ='" & Replace(Request.form("Värde1"),"'","''") & "' and Fält2 ='" & Replace(Request.form("Värde2"),"'","''") & "'"
Set Rst = MinCon.execute(SQL)
IF Not Rst.Eof Then
Response.write "Värdet hittades då värdet blir True(Sant)
Else
Response.write"Värdet hittades inte värdet blir False(Falskt)
</code>

Hoppas det här hjälper dig lite!
Med SQL frågan kan du även kolla om det finns dubbletter genom den så de inte blir dubellt om.