Finns redan i databasen

Om du har en kolumn i databasen som heter anvnamn så kan du köra enligt följande princip:

strSQL = "SELECT anvnamn FROM tabell WHERE anvnamn = '" & Replace(Request.Form("login_anvnamn"),"'","''") & "'"

'.. skapa nödvändiga objekt, connection och recordset

Set Rs = Cn.Execute(strSQL)

If Len(Rs("anvnamn"))>0 Then
Response.Write "Finns redan"
Else
'allt ok, fortsätt
End If

'stäng öppna objekt

Mina ASP-kunskaper börjar bli lite mossiga nu och om jag skrivit fel i exempelkoden - rätta gärna. Dock tror jag att allt är ok i koden.

Men ifall jag har denna kod:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb ")

SQL = "Insert Into Users(username,losen) Values('" & Request.Form("anvn") & "', '" & Request.Form("losen") & "')"

Connect.Execute SQL,,128
%>

hur lägger ja in den då?

Typ så här:

<%
Dim Connect, Rs
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb ")

Set Rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT anvnamn FROM tabell WHERE anvnamn = '" & Replace(Request.Form("anvn"),"'","''") & "'"

Rs.Open strSQL, Connect

If Not Rs.EOF Then
Response.Write "Finns redan.."
Else

SQL = "Insert Into Users(username,losen) Values('" & Request.Form("anvn") & "', '" & Request.Form("losen") & "')"

Connect.Execute SQL,,128

End If

Rs.Close : Set Rs = Nothing
Connect.Close : Set Connect = Nothing
%>

/r ändrade lite kod, kör med EOF i stället för att kolla hur stort ett fält är

Så här kanske? :)

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb ")

'// Försök att få fram en post med samma username
Set objRS = Connect.Execute("SELECT username FROM Users WHERE username = '" & Request.Form("anvn") & "'")

'// Kolla om vi fick fram något
If objRS.EOF Then
  'Vi fick inte fram något. Fritt fram att lägga till
  SQL = "Insert Into Users(username,losen) Values('" & Request.Form("anvn") & "', '" & Request.Form("losen") & "')"
  Connect.Execute SQL,,128
Else
  'Vi fick inte fram något
End If
%>

r\ Oops. Var visst lite sen. :r Sorry, ska inte lägga mig i. :bire

Tack så mycket!