Slette email adresse fra database

Du åbner ikke databasen og sender derfor aldrig noget til den... Med mindre altså at du gør det uden for det du har skrevet her...

jo det gør jeg øverst i filen .. samme fil bruger jeg denne komando til tilmelding..

<%
nameadd = trim(request.form("tilmeldnavn"))
email = trim(request.form("tilmeldemail"))
if len(nameadd) > 1 then
if len(email) > 1 then

if InStr(email,"@") = 0 Then
response.write "<b><font color='FF0000'>Der mangler et @ i din e-mail adresse</font></b>"
else

my_conn.execute "INSERT into nyhedsbrev (navn, email) Values('"&nameadd&"', '"&email&"')"
...
...
...

og tilmelding går ok igennem!! ?

Du mangler noget i denne stil:

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cgi-bin/nyhedsbrev.mdb")

DIT SCRIPT HER

myConn.Close
Set myConn = Nothing

<%
Dim SQLserveradr, SQLdatabase, SQLlogin, SQLpassword, my_conn, jn, jn2, objjn, tale, tale2
Dim SQLstmt, SQLstmt2, SQLstmt3, SQLstmt4, SQLstmt5, SQLstmt6, rs, rs2, rs3, rs4, rs5, rs6
Dim id, firma, billede, url, overskrift, tekst, dato, user, access, navn, Sql, record, Ialt, RandNum, i
Dim username, checkStr, checkuser, objRS, nameadd, efternavnadd, alderadd, landsdeladd, emailadd, websiteadd
Dim firstpass, secondpass, email, website, vel, objmail, nyhedsbrev, frameldemail, BodyFormat

    SQLserveradr="x"
    SQLdatabase="x"   
    SQLlogin="x"
    SQLpassword="x"
 
    Set my_conn = Server.CreateObject("ADODB.Connection")

    my_conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword 
  %>

Du skal vidst have rykket et "end if" lidt op... Ligenu udfører du kun din "delete" hvis der ikke er noget @ i email adressen!!!

hvor meget op er det.. ?? :-)

Undskyld... jeg havde overset dit "else"...

Dette virker ved mig prøv at sætte det ind og så venter med at flette alle dine checks for @ osv. videre på for at udelukke at det er der det går galt... Husk at udskifte med dit password!!!

Set my_conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("cgi-bin/nyhedsbrev.mdb")& "; password=HEMMELIGHED"
my_conn.Open DSN

strSQL = "delete from nyhedsbrev where email = '" & frameldemail & "'"
my_conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing

jeg havde glemt at sætte følgende ind i bunden...

<%

my_conn.Close
Set my_conn = nothing
Set SQLstmt = nothing
Set SQLstmt5 = nothing
Set SQLstmt6 = nothing
%>

tak for hjælpen sune ,hvor mange points vil du have ?

dvs, det var dette her jeg manglede..
<%

my_conn.Close
Set my_conn = nothing

%>

Det styrer du selv... Jeg er her ikke for pointene, men for at hjælpe (Det skulle man lave en film om en dag, lidt i stil med spiderman!!!)

:-) Oki vi deler så gør vi :-)

så

super tak for hjælpen, det var mens jeg ventede på dit svar lyset gik op for mig :-) forsat god dag.. :-)

sune >> Kan du ev.t hjælpe her?

http://www.eksperten.dk/spm/238263

der får du alle point, plus lidt til .. :-)