30. maj 2006 - 00:05Der er
4 kommentarer og 1 løsning
JMail - kan du hjælpe?
Jeg sidder og pusler med mit script. Jeg vil gerne have mit script til at sende en mail til mig, med spørgsmålet, navn, på den der har sendt et spørgsmål, som scriptet er nu, så sender den mail til mig hvor der står "Der er skrevet et spørgsmål i faqen." Er der en der kan hjælpe mig :-) <% ' Declaring variables Dim name, email, comments, data_source, con, sql_insert
' A Function to check if some field entered by user is empty Function ChkString(string) If string = "" Then string = " " ChkString = Replace(string, "'", "''") End Function
' Receiving values from Form name = ChkString(Request.Form("name")) email = ChkString(Request.Form("email")) comments = ChkString(Request.Form("comments"))
' Creating Connection Object and opening the database Set con = Server.CreateObject("ADODB.Connection") con.Open data_source con.Execute sql_insert ' Done. Close the connection con.Close Set con = Nothing Response.Write "<FONT FACE='VERDANA' SIZE='1'>Bemærk: Dit spørgsmål bliver <b>ikke</b> vist før jeg har svaret og godkendt dit spørgsmål.</FONT><br>" ' ============================================= Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ContentType = "text/html" JMail.ServerAddress = "localhost:26" JMail.Priority = 1 JMail.Sender = "mail@domæne.dk" JMail.AddRecipientEx "mail@domæne.dk", "" Jmail.AddRecipientCC "mail@domæne.dk" Jmail.AddRecipientBCC "mail@domæne.dk" JMail.Subject = "Der er skrevet et spørgsmål.." JMail.Body = "Der er skrevet et spørgsmål i faqen." JMail.Execute Set JMail = Nothing
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
Slettet bruger
30. maj 2006 - 00:16#1
hmm... jamen hvad er det for nogle variabler som skal med? - skal det være sådan her?: <% ' Declaring variables Dim name, email, comments, data_source, con, sql_insert
' A Function to check if some field entered by user is empty Function ChkString(string) If string = "" Then string = " " ChkString = Replace(string, "'", "''") End Function
' Receiving values from Form name = ChkString(Request.Form("name")) email = ChkString(Request.Form("email")) comments = ChkString(Request.Form("comments"))
' Creating Connection Object and opening the database Set con = Server.CreateObject("ADODB.Connection") con.Open data_source con.Execute sql_insert ' Done. Close the connection con.Close Set con = Nothing Response.Write "<FONT FACE='VERDANA' SIZE='1'>Bemærk: Dit spørgsmål bliver <b>ikke</b> vist før jeg har svaret og godkendt dit spørgsmål.</FONT><br>" ' ============================================= Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ContentType = "text/html" JMail.ServerAddress = "localhost:26" JMail.Priority = 1 JMail.Sender = "mail@domæne.dk" JMail.AddRecipientEx "mail@domæne.dk", "" Jmail.AddRecipientCC "mail@domæne.dk" Jmail.AddRecipientBCC "mail@domæne.dk" JMail.Subject = "Der er skrevet et spørgsmål.." JMail.Body = "Der er skrevet et spørgsmål i faqen." & name & "<br>" & comments JMail.Execute Set JMail = Nothing
%>
- er det "comments" der er spørgsmålet eller hvordan?
\Dan
Synes godt om
Slettet bruger
30. maj 2006 - 00:18#2
ja det er "comments" der er spørgsmålet :)
Synes godt om
Slettet bruger
30. maj 2006 - 00:21#3
OK! - men så burde du få det med i body´en med det script nu...
\Dan
Synes godt om
Slettet bruger
30. maj 2006 - 00:22#4
Det virker perfekt tak for hjælpen :)
Synes godt om
Slettet bruger
30. maj 2006 - 00:26#5
- Det var så lidt!
Godt det kom til at virke...
Her et svar...
\Dan
Synes godt om
Ny brugerNybegynder
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.