Hvordan tjekken man om en instastet email allerede eksisterer?

du laver et gennemløb af tabellen med dine medlemmers emails og tjekker at den indtastede mail ikke er i tabellen...

hvis du har lidt kode - kan vi nok godt klare det...

/hiks

Det skal egentligt laves som en:
If [email allerede eksisterer] Then
Response.write "Emailadresse findes allerede i databasen."
Else
[her kører funktionen så videre]
end if

har du slet ikke kodet noget af det endnu?

her er lidt hjælp på vej:

<%

dim sql, email

email = Trim(request.querystring("ditemailfelt"))

if Len(email) > 5 then

  SQL = "SELECT * FROM dinCommunityTabel WHERE dinEmailAttribut = '" & email & "';"
  rs.open sql, dinConnectionString 'dette bare et eks. du kan jo åbne på flere måder
 
  If rs.eof = True then 'hvis recordsæt er tomt ingen dubletter
    'udfør din opret kode her
  Else
    'Email findes - procedurer eller redirect her
  End if

 
Else

  Response.write "Ingen mail indtastet!"

End if

%>

håber dette hjælper lidt

/hiks

Har lidt problemer:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

Ved linie 75; jeg har sat tre XXX der...


'Tjekker for unik emailadr

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

dim sql, tjekemail

tjekemail = Trim(request.form("email"))

if Len(tjekemail) > 2 then

XXX [linie 75]  SQL = "SELECT * FROM community WHERE k_email = '" & tjekemail & "';"
 
  If rs.eof = True then
m_email = request.form("email")
  Else
m_email = ""
error01 = "01"
  End if
End if

Conn.Close
Set Conn = Nothing

Hvad kan fejlen være?

Kom også gerne med et svar så jeg kan give nogle point

skal man ikke også ha BOF med ?

If rs.BOF Or rs.EOF Then
  Response.write(findes allerede")
else
  ' execute og send
end if

tja... jeg får stadig samme fejl!

tænker lidt på om det kan være min connection der er noget galt med ???

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

dim sql, tjekemail

tjekemail = Trim(request.form("email"))

if Len(tjekemail) > 2 then

  SQL = "SELECT * FROM community WHERE k_email = '" & tjekemail & "';"

set rs = Conn.execute(SQL)

If rs.BOF Or rs.EOF Then
  Response.write(findes allerede")
else
  m_email = request.form("email")
  response.write m_email
end if
end if


hvad hvis du gør sådan ?

Det virker...

for jeg ik et svar fra jer begge

så smider jeg et

du får lige et her fra mig også...

go weekend

/hiks

lukketid?

Sorry den lange svartid...

Tak for hjælpen