Avatar billede fastpoint Nybegynder
13. november 2001 - 17:28 Der er 3 kommentarer og
1 løsning

Send Mail

Kan en eller anden tilføje den nødvendige stykke ekstra kode der skal til for jeg dette script automatisk sender en mail til tilføjerens e-mail adresse?

<%option explicit%>

   
<%
    dim connection,id,SQLstringK

    Set Connection = Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"../database.mdb\")
   
    id    =        Trim(Request.QueryString(\"id\"))
           
    SQLstringK=\"DELETE FROM lektie WHERE id=\"&id
    Connection.Execute(SQLstringK)
   
    connection.close
    set connection= nothing

    response.buffer=true
    response.clear
    response.redirect \"oversigt.asp\"
    response.end
%>
   



dsv... den skal bare sende en standard besked til e-mail adressen som den henter i databasen under downloads hvor cellen hedder email.

Den skal bare sende denne besked..

Dine lektier blev ikke accepteret.


Avatar billede zeth Nybegynder
13. november 2001 - 20:48 #1
Det er ikke testet, men det skal være noget lignende af det her..

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

id    = Trim(Request.QueryString(\"id\"))
   

Set Modtager    = Conn.Execute(\"SELECT id, email FROM lektie WHERE id=\"& id)


Set JMail        = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ContentType    = \"text/html\"
JMail.ServerAddress    = \"smtp.mail.dk\"
JMail.Priority        = 3
JMail.Sender        = \"din@email.dk\"
JMail.Subject        = \"Lektie blev ikke accepteret..\"
JMail.Body        = \"Dine lektier blev ikke accepteret\"
JMail.AddRecipient    Modtager(\"email\")

JMail.Execute
Set JMail = nothing
         
Connection.Execute(\"DELETE FROM lektie WHERE id=\"&id)
   
connection.close
set connection= nothing

response.buffer=true
response.clear
response.redirect \"oversigt.asp\"
response.end
%>
Avatar billede zeth Nybegynder
13. november 2001 - 20:49 #2
og jo forresten, der skal være JMail installeret på servere, men det har de fleste også :-) se nedenstående adresse

http://tech.dimac.net/isapiscript.dll?action=read&id=32490
Avatar billede zeth Nybegynder
13. november 2001 - 20:50 #3
fuck.. sån her..

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

id    = Trim(Request.QueryString(\"id\"))
   

Set Modtager    = Connection.Execute(\"SELECT id, email FROM lektie WHERE id=\"& id)


Set JMail        = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ContentType    = \"text/html\"
JMail.ServerAddress    = \"smtp.mail.dk\"
JMail.Priority        = 3
JMail.Sender        = \"din@email.dk\"
JMail.Subject        = \"Lektie blev ikke accepteret..\"
JMail.Body        = \"Dine lektier blev ikke accepteret\"
JMail.AddRecipient    Modtager(\"email\")

JMail.Execute
Set JMail = nothing
         
Connection.Execute(\"DELETE FROM lektie WHERE id=\"&id)
   
connection.close
set connection= nothing

response.buffer=true
response.clear
response.redirect \"oversigt.asp\"
response.end
%>
Avatar billede fastpoint Nybegynder
13. november 2001 - 22:08 #4
Du styrrer:) Det virker!
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