Avatar billede cygnet Praktikant
16. januar 2002 - 15:48 Der er 8 kommentarer og
1 løsning

Ingen dublikanter..

Jeg bruger denne sætning til at tilføje ny email adresser til min emailing liste...

Hvordan kan jeg gører så hvis mailen findes i forvejen skriver den noget ala : mail findes allerede...

if mode=\"opret\" then
SQL = \"INSERT INTO [maillingliste] (email,navn,firma) VALUES (\'\" & request(\"email\") & \"\', \'\" & request(\"navn\") & \"\', \'\" & request(\"firma\") & \"\')\"
conntemp.execute(sql)
end if

tak på forhånd..
Avatar billede cool_casper Nybegynder
16. januar 2002 - 15:52 #1
Du kan lave en SELCET først:

if mode=\"opret\" then
SQL1 = \"SELECT * FROM maillingliste WHERE email = \'\" & request(\"email\") & \"\'\"
conntemp.execute(sql1)
If rs.Eof then
SQL = \"INSERT INTO [maillingliste] (email,navn,firma) VALUES (\'\" & request(\"email\") & \"\', \'\" & request(\"navn\") & \"\', \'\" & request(\"firma\") & \"\')\"
conntemp.execute(sql)
ELse
Response.Write \"EMail findes allerede!\"
End If
end if
Avatar billede hirayz Nybegynder
16. januar 2002 - 15:53 #2
if not rs(\"email\") = response.form(\"email\")
  SQL = \"INSERT INTO [maillingliste] (email,navn,firma) VALUES (\'\" & request(\"email\") & \"\', \'\" & request(\"navn\") & \"\', \'\" & request(\"firma\") & \"\')\"
  conntemp.execute(sql)
else
response.write(\"email findes allerede\")
end if
Avatar billede medions Nybegynder
16. januar 2002 - 15:56 #3
hirayz> Tror du ik\' der skulle ha\' stået Request.Form(\"email\") i første linje! ;-)

//>Rune
Avatar billede hirayz Nybegynder
16. januar 2002 - 15:58 #4
ups jo, response.form den kender jeg heller ikke selv
Avatar billede cygnet Praktikant
16. januar 2002 - 16:25 #5
er der næsten prøvedet det her:

end if
if mode=\"opret\" then
SQL1 = \"SELECT * FROM maillingliste WHERE email = \'\" & request(\"email\") & \"\'\"
conntemp.execute(sql1)
  Set rs = Conntemp.Execute(SQL1)
If rs.Eof then
SQL = \"INSERT INTO [maillingliste] (email,navn,firma) VALUES (\'\" & request(\"email\") & \"\', \'\" & request(\"navn\") & \"\', \'\" & request(\"firma\") & \"\')\"
conntemp.execute(sql)
ELse
fejl=findes
End If
end if

Har så prøvet at skrive fejl=findes så jeg senere nede på siden kan skrive

% if mode=\"opret\" then %>
<% if fejl=\"findes\" then %>
emailen findes
<% else %>
email er tilføjet
<% end if %>

men det ser ikke ud til at virke...

hvad skal man skrive ?
Avatar billede cool_casper Nybegynder
16. januar 2002 - 16:28 #6
if mode=\"opret\" then
SQL1 = \"SELECT * FROM maillingliste WHERE email = \'\" & request(\"email\") & \"\'\"
conntemp.execute(sql1)
  Set rs = Conntemp.Execute(SQL1)
If rs.Eof then
SQL = \"INSERT INTO [maillingliste] (email,navn,firma) VALUES (\'\" & request(\"email\") & \"\', \'\" & request(\"navn\") & \"\', \'\" & request(\"firma\") & \"\')\"
conntemp.execute(sql)
ELse
fejl = True
End If
end if

..........

<% if mode=\"opret\" then %>
<% if fejl then %>
emailen findes
<% else %>
email er tilføjet
<% end if %>



Avatar billede cygnet Praktikant
16. januar 2002 - 16:32 #7
stort casper - skylder dig vist et svar på din mail - skriver til dig om et sek...
Avatar billede cool_casper Nybegynder
16. januar 2002 - 16:33 #8
OK! Funker det?!?
Avatar billede cygnet Praktikant
16. januar 2002 - 16:46 #9
Jeps det gør det.... har stadig nogle underlige problemer - men håber jeg kan gennemskue lortet ..

Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester