Hvis den samme er i database

eller lidt lettere sagt:

hvordan gør man så der ikke kan laves to ens

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN

Set objRecordset=Conn.Execute("SELECT * FROM mail WHERE email='" & Request.Form("email") & "'")
If Not objRecordset.EOF Then
    Conn.Execute(Insert into mail("email") values('" & Request.Form("email") & "')
    Response.write"<h3>Din email er nu tilføjet til min database TAK..!</H3> "
Else
    Response.write"<h3>Din email kunne ikke tilføjes til min database TAK..!</H3> "
End If
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

får denne fejl

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/default.asp, line 61

Conn.Execute(Insert into mail("email") values('" & Request.Form("email") & "')

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN

Set objRecordset=Conn.Execute("SELECT * FROM mail WHERE email='" & Request.Form("email") & "'")
If Not objRecordset.EOF Then
    Conn.Execute(Insert into mail("email") values('" & Request.Form("email") & "'))
    Response.write"<h3>Din email er nu tilføjet til min database TAK..!</H3> "
Else
    Response.write"<h3>Din email kunne ikke tilføjes til min database TAK..!</H3> "
End If
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

det samme, jeg tror du har skrevet noget forkert med " '

Så er den der...

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN

Set objRecordset=Conn.Execute("SELECT * FROM mail WHERE email='" & Request.Form("email") & "'")
If Not objRecordset.EOF Then
    Conn.Execute("Insert into mail(email) values('" & Request.Form("email") & "')")
    Response.write"<h3>Din email er nu tilføjet til min database TAK..!</H3> "
Else
    Response.write"<h3>Din email kunne ikke tilføjes til min database TAK..!</H3> "
End If
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

ok den virker men jeg prøvede at tilføje en der allerede var der og så sagde den at man var tilføjet

hvis man skriver en som ikke er der kommer fejlen

jeg bytter om på EoF og det

Der var et "NOT" for meget

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN

Set objRecordset=Conn.Execute("SELECT * FROM mail WHERE email='" & Request.Form("email") & "'")
If objRecordset.EOF Then
    Conn.Execute("Insert into mail(email) values('" & Request.Form("email") & "')")
    Response.write"<h3>Din email er nu tilføjet til min database TAK..!</H3> "
Else
    Response.write"<h3>Din email kunne ikke tilføjes til min database TAK..!</H3> "
End If
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

ok det virker!