Hjælp til Mail

Jeg skal lige ud og køre en times tid jeg vender tilbage senere :o)

helt i orden

vil du har en program der gør det for dig, eller hvad?

jeg skal have at når nogen opretter sig som bruger inde i den community jeg har så jeg får en mail så jeg ved der er kommet ny bruger ind i communityén...
her har du koder og mange oplysninger ang. den community det handler om..
http://eksperten.dk/spm/483256

Hej - jeg noget nem kode du kan sætte ind.

Blot skal der på serveren være installeret et mail komponent - tjaa - nu tager jeg som udgang at dit domæne ligger på en win box? ellers kan jeg ikke hjælpe.

//vbcoder

hjemmesiden ligger her http://frip.dk  og  den hedder http://frip.dk/babynet/

Frip.dk - Gratis Webhosting

Formålet med frip.dk er at skabe et sted på nettet hvor folk kan få en gratis hjemmeside. Vi forventer derfor at folk bruger vores service seriøst og ikke til useriøse formål (Se regler for yderligere info).

Undersøttelse:

  - 10 MB plads
  - Online Design Manager til at redigere HTML filer
  - Mulighed for at rette ASP og PHP filer online
  - ASP
  - PHP (Ikke fuldt ud funktionelt da vi stadig er igang med at finde en sikkerhedsløsning)
  - Microsoft Access
  - SSI
  - Flash

hmm - ved du hvilke komponenter der er installeret på serveren ?

//vbcoder

nej det står der ikke noget om..

snip nedenstående ind i en fil og giv den navnet cominfo.asp - læg den serveren og sig til når det er gjort. så skal jeg være istand til at checke den på http://frip.dk/babynet/cominfo.asp

------------

<%
'Component Info version 1.2
'This script will check if a specifik component exist on your server.
'Feel free to add any components which are not listed, but,
'if you do so, please send an email to: admin@msweb.dk
'and let me know, so I can update the script.
'Currently 52 components are supported.
'Developed by Mads Buch Stage

Response.buffer = true
strCompo = ""

'Dimac
strCompo = strCompo & "@<a href=""http://www.dimac.se"" style=""color: #FF6600;"">Dimac</A>"
strCompo = strCompo & "$JMail.Speedmailer"
strCompo = strCompo & "$JMail.SMTPMail:Version"
strCompo = strCompo & "$w3.Upload"
strCompo = strCompo & "$w3.netutils"
strCompo = strCompo & "$Socket.TCP"

'Dundas
strCompo = strCompo & "@<a href=""http://www.dundas.com"" style=""color: #FF6600;"">Dundas</A>"
strCompo = strCompo & "$Dundas.ChartServer2D.1"
strCompo = strCompo & "$Dundas.ChartServer"
strCompo = strCompo & "$Dundas.PieChartServer.1"
strCompo = strCompo & "$Dundas.Mailer"
strCompo = strCompo & "$Dundas.Upload.2"

'Serverobjects
strCompo = strCompo & "@<a href=""http://www.serverobjects.com"" style=""color: #FF6600;"">Serverobjects</A>"
strCompo = strCompo & "$SMTPsvg.Mailer"
strCompo = strCompo & "$AspImage.Image:Version"
strCompo = strCompo & "$POP3svg.Mailer:Version"
strCompo = strCompo & "$AspNNTP.Conn"
strCompo = strCompo & "$AspHTTP.Conn"
strCompo = strCompo & "$ImgSize.Check:Version"
strCompo = strCompo & "$AspPing.Conn:Version"
strCompo = strCompo & "$LastMod.FileObj"
strCompo = strCompo & "$WaitFor.Comp"
strCompo = strCompo & "$AspCrypt.Crypt"
strCompo = strCompo & "$GuidMakr.GUID"
strCompo = strCompo & "$ASPExec.Execute"
strCompo = strCompo & "$AspInet.FTP"
strCompo = strCompo & "$ASPsvg.Process"
strCompo = strCompo & "$Bible.Lookup"

'Websupergoo
strCompo = strCompo & "@<a href=""http://www.websupergoo.com"" style=""color: #FF6600;"">Websupergoo</A>"
strCompo = strCompo & "$ImageGlue4.Canvas"
strCompo = strCompo & "$ImageGlue.Canvas"

'Asp2sms
strCompo = strCompo & "@<a href=""http://www.asp2sms.com"" style=""color: #FF6600;"">Asp2sms</A>"
strCompo = strCompo & "$ASPCOM.ASP2SMS"

'aspSmart
strCompo = strCompo & "@<a href=""http://www.aspsmart.com"" style=""color: #FF6600;"">aspSmart</A>"
strCompo = strCompo & "$AspSmartChat.SmartChat"
strCompo = strCompo & "$aspSmartMenu.SmartMenuPopUp"
strCompo = strCompo & "$AspSmartForum.SmartForum"
strCompo = strCompo & "$AspSmartFile.SmartFile"
strCompo = strCompo & "$AspSmartSecurity.FileSec"
strCompo = strCompo & "$AspSmartDate.SmartDate"
strCompo = strCompo & "$AspSmartImage.SmartImage"
strCompo = strCompo & "$AspSmartUpload.SmartUpload"
strCompo = strCompo & "$aspSmartMail.SmartMail"
strCompo = strCompo & "$aspSmartCache.SmartCache"

'flicks
strCompo = strCompo & "@<a href=""http://www.flicks.com"" style=""color: #FF6600;"">Flicks</A>"
strCompo = strCompo & "$ASPMAIL.ASPMailCtrl.1"
strCompo = strCompo & "$AUTHXISP.AuthXOCXCtrl.1"

'Softartisans
strCompo = strCompo & "@<a href=""http://www.softartisans.com"" style=""color: #FF6600;"">Softartisans</A>"
strCompo = strCompo & "$SoftArtisans.ExcelWriter"
strCompo = strCompo & "$SoftArtisans.FileUp"
strCompo = strCompo & "$softartisans.ImageGen"
strCompo = strCompo & "$SoftArtisans.SMTPMail"
strCompo = strCompo & "$SMUM.XCheck.1"

'Geocel
strCompo = strCompo & "@<a href=""http://www.geocel.com"" style=""color: #FF6600;"">Geocel</A>"
strCompo = strCompo & "$Geocel.Mailer:Version"

'DevGuru
strCompo = strCompo & "@<a href=""http://www.devguru.com"" style=""color: #FF6600;"">Devguru</A>"
strCompo = strCompo & "$dgCalendar.Calendar"
strCompo = strCompo & "$dgFileUpload.dgUpload"
strCompo = strCompo & "$dgSort.QuickSort"
strCompo = strCompo & "$dgTree.Tree"

'Persits
strCompo = strCompo & "@<a href=""http://www.persits.com"" style=""color: #FF6600;"">Persits</A>"
strCompo = strCompo & "$Persits.Upload.1"
strCompo = strCompo & "$Persits.MailSender"
strCompo = strCompo & "$Persits.Grid"
strCompo = strCompo & "$Persits.CryptoManager"
strCompo = strCompo & "$Persits.Jpeg"
strCompo = strCompo & "$Persits.AspUser"

'Hexillion
strCompo = strCompo & "@<a href=""http://www.hexillion.com"" style=""color: #FF6600;"">Hexillion</A>"
strCompo = strCompo & "$Hexillion.HexLookup:Version"
strCompo = strCompo & "$Hexillion.HexIcmp:Version"
strCompo = strCompo & "$Hexillion.HexTcpQuery:Version"
strCompo = strCompo & "$HexDns.Connection:Version"
strCompo = strCompo & "$HexDns.Lookup"
strCompo = strCompo & "$HexValidEmail.Connection:Version"
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
    <title>Component Info</title>
</head>
<body bgcolor="#606060" style="color: White; font-family: Arial, Helvetica, sans-serif; font-size: 9px;">
<DIV ALIGN="CENTER">
<TABLE BORDER="0" CELLPADDING="3" CELLSPACING="1">
<%
First = true
arrComp = Split(strCompo,"$")
FOR i = 0 TO UBound(arrComp)
    arrThis = Split(arrComp(i),"@")
    IF First = true THEN
        Response.write "<TR BGCOLOR=""#202020""><TD COLSPAN=""2""><FONT SIZE=""-2"">" & arrThis(1) & "</FONT></TD></TR>"
        First = false
    ELSE
        strThisObject = Split(arrThis(0),":")
        Response.write "<TR BGCOLOR=""#303030""><TD><FONT SIZE=""-2"">" & strThisObject(0) & ":</FONT></TD>"
        Response.write "<TD><FONT SIZE=""-2"">" & ServerCreateObject(arrThis(0)) & "</FONT></TD></TR>"
        IF UBound(arrThis) = 1 THEN
            Response.write "<TR BGCOLOR=""#202020""><TD COLSPAN=""2""><FONT SIZE=""-2"">" & arrThis(1) & "</FONT></TD></TR>"
        END IF
    END IF
NEXT
%>
</TABLE>
<br><br>
Udviklet af Mads Buch Stage, <A HREF="mailto:admin@msweb.dk" style=""color: #FF6600;"">admin@msweb.dk</A>
</DIV>
</body>
</html>
<%
PRIVATE FUNCTION ServerCreateObject(strCompID)
    DIM objComp
    ON ERROR RESUME NEXT
    arrCompID = Split(strCompID,":")
    Set objComp = Server.CreateObject(arrCompID(0))
   
    IF Err.Number = 0 THEN
        strReturn = "<FONT COLOR=""#00C000""><B>+"
        IF UBound(arrCompID) = 1 THEN
            strToDo = Trim(arrCompID(1))
            IF strTodo = "Version" THEN
                strReturn = strReturn & " " & objComp.Version
            ELSEIF strTodo = "About" THEN
                strReturn = strReturn & " " & objComp.About
            END IF
        END IF
        strReturn = strReturn & "</B></FONT>"
    ELSE
        strReturn = "<FONT COLOR=""#C00000""><B>-</B></FONT>"
    END IF
    ServerCreateObject = strReturn
END FUNCTION
%>

---snip slut

//vbcoder

gjort

okay - jmail er installeret

hvad skal jeg så??

nedenstående snippes ind i en ny fil - kald f.x. sendmail.inc.asp

------- snip start
<%
sub sendEmail (strTo, strFrom, strSubject, strBody)

'Set objMail = Server.CreateObject("CDONTS.NewMail")
'    objMail.BodyFormat = 0 'CdoBodyFormatHTML
'    objMail.MailFormat = 0 'CdoMailFormatMime
'    objMail.To = strTo
'    objMail.From = strFrom
'    objMail.Subject = strSubject
'    objMail.Body = strBody
'    objMail.Send
'set objMail = nothing   

'create object
set newMsg = server.createobject("jmail.message")

'set content type
newMsg.contenttype="text/html"

'hide ip
newMsg.addheader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

' compose email message from parameters
' from email
newMsg.from = strFrom

' fromname
newMsg.fromname = strFrom

' sendto
newMsg.addrecipient strTo

' create subject
newMsg.subject = strSubject

' create body
newMsg.Body = strBody
newMsg.send ("the.important.smtp.server")

' remove object
set newMsg = nothing
end sub
%>

----- snip slut

i starten af den fil hvor din nye bruger bliver gemt laves følgende ref. du skal selvfølglig rette denne linje ovenfor newMsg.send ("the.important.smtp.server") til noget som kan bruges og som frip understøtter.

<!-- #include file = "sendmail.inc.asp" -->

Efter du har gemt din nye bruger kalder du med parametre som nævnt. Inden du kalder den skal du rent faktisk lave nogen tekster der passer til parametrene - men det er du vel klar over ;-) eller sætte dem direkte ind.

strTo = "enelleranden@etellerandetdomæne.tld"
strFrom = "enanden@enmailadresse.tld"
strSubjet = "new user addede"
strBody = "username blablablabal ......."

sendEmail strTo, strFrom, strSubject, strBody

have fun ;-)

Den der ref. i starten til cdonts skal ikke bruges til noget. Det er bare hvis man bruger den og derfor har jeg ikke slettet den i min skabelon ;-)

nu tror du måske jeg er synsk at vide at jmail er installeret når den side du har oprettet rent faktisk ikke fungerer men jeg fandt flg.

http://frip.dk/asplogin/cominfo.asp

og derfor ved jeg at jmail er installeret

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)
end if
<!-- #include file = "sendmail.inc.asp" -->
%>    Er det en ok sted??

langsom!!!

du checker mig lige for stavefejl ;-) for jeg smutter igen.

//vbcoder

det gik meget for hurtig kunne slet ikk følge med.... :-(

det er i princippet ligemeget da det den gør at tilføje en funktion til din side. den skal bare tilføjes inden du skal bruge den ;-)

checkede lige noget

http://system.frip.dk/forum.php?action=show_topic&board=Jmail&id=292&reply=1

så linjen
newMsg.send ("the.important.smtp.server")

skal være newMsg.send ("mail.frip.dk")

//vbcoder

efter det du har skitseret kalder du funktionen f.x. på denne måde

strTo = "din.email"
strFrom = "Community"
strSubjet = "New User Added"
strBody = request.form("brugernavn")

sendEmail strTo, strFrom, strSubject, strBody

//vbcoder

og så husk at rette linjen til

newMsg.send ("mail.frip.dk")

//vbcoder

jo men jeg fik slet ikke alt det med Efter du har gemt din nye bruger kalder du med parametre som nævnt. Inden du kalder den skal du rent faktisk lave nogen tekster der passer til parametrene - men det er du vel klar over ;-) eller sætte dem direkte ind.

strTo = "enelleranden@etellerandetdomæne.tld"
strFrom = "enanden@enmailadresse.tld"
strSubjet = "new user addede"
strBody = "username blablablabal ......."

sendEmail strTo, strFrom, strSubject, strBody

forklar mig hvad og hvor jeg skal sætte det ind på siden... osv

undskyld hvis jeg er hurtig - jeg har ondt om tid

//vbcoder

hvorfor er du så hurtig til at afvise ? du får det rigtige svar ????????

jeg er ikke så hurtig jeg er nybegynder

jeg troede at du gik

se ovenfor - 5 op

men det nåede jeg ikke ;-)

måske længere op

//vbcoder

<undskyld hvis jeg er hurtig - jeg har ondt om tid> det her el.<sendEmail strTo, strFrom, strSubject, strBody> dette

newMsg.send ("mail.frip.dk")

Er rettet...

sendmail.inc.asp

Er oprettet

kt9009 >> Har du fundet ud af det ?

/Websam

nej... men kan vi finde ud af det lidt senere konen skal bruge computern

Kan vi ikke skrive sammen i morgen kl 16.00?

jo det kan vi da godt

det du skal gøre er dette:

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)

    'indsæt funktionen sendemail via include
    <!-- #include file = "sendmail.inc.asp" -->

    'sæt parametre til funktionen
    strTo = "din.email"
    strFrom = "Community"
    strSubjet = "New User Added"
    strBody = request.form("brugernavn")
    strMailServer = "mail.frip.dk"

    sendEmail strTo, strFrom, strSubject, strBody, strMailserver

end if
%>

din include fil sendMmail.inc.asp

<%
sub sendEmail (strTo, strFrom, strSubject, strBody, strMailserver)

    'create object
    set newMsg = server.createobject("jmail.message")

    'set content type
    newMsg.contenttype="text/html"

    'set originating ip
    newMsg.addheader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

    ' compose email message from parameters
    ' from email
    newMsg.from = strFrom

    ' fromname
    newMsg.fromname = strFrom

    ' sendto
    newMsg.addrecipient strTo

    ' create subject
    newMsg.subject = strSubject

    ' create body
    newMsg.Body = strBody
    newMsg.send (strMailserver)

    ' remove object
    set newMsg = nothing

end sub
%>

//vbcoder

kt9009 er her igen

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'sendEmail'

/babynet/community.asp, line 30

Hvad betyder dette "ja det er en error men hvilken"??
og tak vbcoder for at du kom tilbage og forklaret mig det lidt bedre... :-)

det er sandsynligvis en stavefejl

prøv at rette denne linje

    strSubjet = "New User Added"

til

    strSubject = "New User Added"

Nogen gange skal der ikke så meget til ;-)

Det er ofte en fordel at indsætte som det allerførste i en asp-fil

Option Explicit

Dette er for at fange stavefejl i variabel navne

Det kræver så at hver eneste variabel erklæres eksplicit


<%
' skal være først i filen
Option Explicit
' det er god programmeringsskik at erklære alle variabler øverst i filen
' inden afviklingen af koden begynder.

' database stuff
Dim conn
Dim mode
Dim sql

' mail stuff
dim strTo
dim strFrom
dim strSubject
dim strBody
dim strMailserver
%>

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'sendEmail'

/babynet/community.asp, line 31

prøv at ændre din fil der gemmer en ny bruger til dette.

<%
' skal være først i filen
Option Explicit

' the sub takes 5 string type parameters
' recipient, sender, subject, body, mailserver
sub sendEmail (strTo, strFrom, strSubject, strBody, strMailserver)

    'create object
    set newMsg = server.createobject("jmail.message")

    'set content type
    newMsg.contenttype="text/html"

    'set originating ip
    newMsg.addheader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

    ' compose email message from parameters
    ' from email
    newMsg.from = strFrom

    ' fromname
    newMsg.fromname = strFrom

    ' sendto
    newMsg.addrecipient strTo

    ' create subject
    newMsg.subject = strSubject

    ' create body
    newMsg.Body = strBody
    newMsg.send (strMailserver)

    ' remove object
    set newMsg = nothing

end sub

' det er god programmeringsskik at erklære alle variabler øverst i filen
' inden afviklingen af koden begynder.

' database stuff
Dim conn
Dim mode
Dim sql

' mail stuff
dim strTo
dim strFrom
dim strSubject
dim strBody
dim strMailserver

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)

    'sæt parametre til at sende mail
    strTo = "din.email"
    strFrom = "Community"
    strSubjet = "New User Added"
    strBody = request.form("brugernavn")
    strMailServer = "mail.frip.dk"

    sendEmail strTo, strFrom, strSubject, strBody, strMailserver

end if

%>

i communityén??

ja

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strSubjet'

/babynet/community.asp, line 75

Skriver den når jeg har gemt det du lige skrev

når jeg opretter en ny bruger

prøv så dettee


<%
' skal være først i filen
Option Explicit

' the sub takes 5 string type parameters
' recipient, sender, subject, body, mailserver
sub sendEmail (strTo, strFrom, strSubject, strBody, strMailserver)

    'create object
    set newMsg = server.createobject("jmail.message")

    'set content type
    newMsg.contenttype="text/html"

    'set originating ip
    newMsg.addheader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

    ' compose email message from parameters
    ' from email
    newMsg.from = strFrom

    ' fromname
    newMsg.fromname = strFrom

    ' sendto
    newMsg.addrecipient strTo

    ' create subject
    newMsg.subject = strSubject

    ' create body
    newMsg.Body = strBody
    newMsg.send (strMailserver)

    ' remove object
    set newMsg = nothing

end sub

' det er god programmeringsskik at erklære alle variabler øverst i filen
' inden afviklingen af koden begynder.

' database stuff
Dim conn
Dim mode
Dim sql

' mail stuff
dim strTo
dim strFrom
dim strSubject
dim strBody
dim strMailserver

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)

    'sæt parametre til at sende mail
    strTo = "din.email"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = request.form("brugernavn")
    strMailServer = "mail.frip.dk"

    sendEmail strTo, strFrom, strSubject, strBody, strMailserver

end if

%>

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'rs'

/babynet/community.asp, line 166

Nu kan jeg heller ikke oprette en bruger nu er den side væk og der står dette istedet for siden...

ja så ved jeg ikke hvad du har lavet

<%
' skal være først i filen
Option Explicit

' the sub takes 5 string type parameters
' recipient, sender, subject, body, mailserver
sub sendEmail (strTo, strFrom, strSubject, strBody, strMailserver)

    'create object
    set newMsg = server.createobject("jmail.message")

    'set content type
    newMsg.contenttype="text/html"

    'set originating ip
    newMsg.addheader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

    ' compose email message from parameters
    ' from email
    newMsg.from = strFrom

    ' fromname
    newMsg.fromname = strFrom

    ' sendto
    newMsg.addrecipient strTo

    ' create subject
    newMsg.subject = strSubject

    ' create body
    newMsg.Body = strBody
    newMsg.send (strMailserver)

    ' remove object
    set newMsg = nothing

end sub

' det er god programmeringsskik at erklære alle variabler øverst i filen
' inden afviklingen af koden begynder.

' database stuff
Dim conn
Dim mode
Dim sql

' mail stuff
dim strTo
dim strFrom
dim strSubject
dim strBody
dim strMailserver

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)

    'sæt parametre til at sende mail
    strTo = "din.email"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = request.form("brugernavn")
    strMailServer = "mail.frip.dk"

    sendEmail strTo, strFrom, strSubject, strBody, strMailserver

end if

%>


   

<html>

Du har tydeligvis slettet for meget af et eller andet

kl 16:29:04 virkede den og så skulle du kun rette det samme en gang til så subjet blev til subject

Hmmm

//vbcoder

kt9009 >> Det du har som jeg hjalp dig med :

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)
end if

Udskifter du med dette :

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)

    strTo = "din@email.dk"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = request.form("brugernavn")
    strMailServer = "mail.frip.dk"
   
    set newMsg = server.createobject("jmail.message")
    newMsg.contenttype="text/html"
    newMsg.addheader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")
    newMsg.from = strFrom
    newMsg.fromname = strFrom
    newMsg.addrecipient strTo
    newMsg.subject = strSubject
    newMsg.Body = strBody
    newMsg.send (strMailserver)
    set newMsg = nothing

end if

Og husk at sætte din mail ind istedet for denne "din@email.dk"

/Websam

lige to sek jeg er lige ved at gå lidt tilbage og sætte det op igen

nu er jeg helt tilbage igenn og det virkede som før jeg tilføjede koder

jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/babynet/community.asp, line 41

du har indsat nedenstående

<%
' skal være først i filen
Option Explicit

' the sub takes 5 string type parameters
' recipient, sender, subject, body, mailserver
sub sendEmail (strTo, strFrom, strSubject, strBody, strMailserver)

    'create object
    set newMsg = server.createobject("jmail.message")

    'set content type
    newMsg.contenttype="text/html"

    'set originating ip
    newMsg.addheader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

    ' compose email message from parameters
    ' from email
    newMsg.from = strFrom

    ' fromname
    newMsg.fromname = strFrom

    ' sendto
    newMsg.addrecipient strTo

    ' create subject
    newMsg.subject = strSubject

    ' create body
    newMsg.Body = strBody
    newMsg.send (strMailserver)

    ' remove object
    set newMsg = nothing

end sub

' det er god programmeringsskik at erklære alle variabler øverst i filen
' inden afviklingen af koden begynder.

' database stuff
Dim conn
Dim mode
Dim sql

' mail stuff
dim strTo
dim strFrom
dim strSubject
dim strBody
dim strMailserver

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)

    'sæt parametre til at sende mail
    strTo = "din.email"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = request.form("brugernavn")
    strMailServer = "mail.frip.dk"

    sendEmail strTo, strFrom, strSubject, strBody, strMailserver

end if

%>

og du har rettet din email adresse i strTo ?

prøv at sætte strMailServer til ""

//vbcoder

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'sendEmail'

/babynet/community.asp, line 34

ja min mail står der

oh - vi er tilbage der

slet det der har med mail at gøre

ja ok

er gjort

så virker din side blot sender den ingen mail - korrekt ?

jep

er det din community.asp du redigerer ?

ja

Ok

indsæt nedenstående øverst i din fil

<%
' the sub takes 5 string type parameters
' recipient, sender, subject, body, mailserver
sub sendEmail (strTo, strFrom, strSubject, strBody, strMailserver)

    'create object
    set newMsg = server.createobject("jmail.message")

    'set content type
    newMsg.contenttype="text/html"

    'set originating ip
    newMsg.addheader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

    ' compose email message from parameters
    ' from email
    newMsg.from = strFrom

    ' fromname
    newMsg.fromname = strFrom

    ' sendto
    newMsg.addrecipient strTo

    ' create subject
    newMsg.subject = strSubject

    ' create body
    newMsg.Body = strBody
    newMsg.send (strMailserver)

    ' remove object
    set newMsg = nothing

end sub
%>

dette gør absolut intet før det får besked på det

den er sat øverst på siden oppe over alt det andet...

okay

så finder du din conn.execute - der hvor du rent faktisk tilføjer den nye bruger.

efter det punkt indsætter du - det skal være inden i if blokken da den kun skal udføres hvis mode = indsæt - er du med ?

strTo skal selvfølgelig være din email

    'sæt parametre til at sende mail
    strTo = "din.email"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = request.form("brugernavn")
    strMailServer = "mail.frip.dk"

    sendEmail strTo, strFrom, strSubject, strBody, strMailserver

er du med så langt ?

ja jeg har sat det ind her ---->   
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)
   
    'sæt parametre til at sende mail
    strTo = "din.email"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = request.form("brugernavn")
    strMailServer = "mail.frip.dk"

    sendEmail strTo, strFrom, strSubject, strBody, strMailserver
<-----

das ist gut

jeg har lige testet den og det funker ser det ud til - ingen fejl næ nej

jeg har også skrevet min email adr

strTo = "din.email"  <---her

Ja der :o)

så skal du have tilpasset indholdet af mail til det du vil have

da funktion sendemail har sat contenttype til text/html kan du bruge htmlkoder i din tekst

fx. kunne du sætte

strFrom = Request.Form("email")

på samme måde kan gøre noget med strBody fx.

strBody = "Ny bruger på babynet<br><br>"
strbody = strbody & "Brugernavn : " request.form("brugernavn") & "<br>"
strbody= strbody & "Email : " request.form("email")

kan du se ideen ?

//vbcoder

ja

hvis man så gør som jeg foreslog i starten at man gemmer sin funktion i en separat fil og derefter inkluderer den på de sider hvor man skal bruge så behøver man ikke at skrive koden igen og igen

Det er genbrug og det er meget brugt - også fordi man ved at der ikke er fejl i den kode.

//VBcoder

lukketid ?

strBody = "Ny bruger på babynet<br><br>"
strbody = strbody & "Brugernavn : " request.form("brugernavn") & "<br>"
strbody= strbody & "Email : " request.form("email") & "<br>
strbody= strbody & "adgangskode : request.form("brugerkode"
skal det stå sådan hvis det er de oplysninger jeg vil have??

strBody = "Ny bruger på babynet<br><br>"
strbody = strbody & "Brugernavn : " request.form("brugernavn") & "<br>"
strbody= strbody & "Email : " request.form("email") & "<br>
strbody= strbody & "adgangskode : request.form("brugerkode")

ikke helt

strBody = "Ny bruger på babynet<br><br>"
strbody = strbody & "Brugernavn : " & request.form("brugernavn") & "<br>"
strbody= strbody & "Email : " & request.form("email") & "<br>
strbody= strbody & "adgangskode : " & request.form("brugerkode")

men er det så i community jeg skal skrive dem under de der allerede står med str

nu skulle den være der

strBody = "Ny bruger på babynet<br><br>"
strbody = strbody & "Brugernavn : " & request.form("brugernavn") & "<br>"
strbody= strbody & "Email : " & request.form("email") & "<br>"
strbody= strbody & "adgangskode : " & request.form("brugerkode")

jeg kender jo slet ikke opsætningen af det community - så det er off topic - så jeg kan ikke svare på det

'sæt parametre til at sende mail
    strTo = "din.email"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = request.form("brugernavn")
er det her under??

oh - det var det du mente

den linje der findes med strBody slettes og de 4 nye linjer indsættes istedet

//vbcoder

'sæt parametre til at sende mail
    strTo = "din.email"
    strFrom = "Community"
    strSubject = "New User Added"

strBody = "Ny bruger på babynet<br><br>"
strbody = strbody & "Brugernavn : " & request.form("brugernavn") & "<br>"
strbody= strbody & "Email : " & request.form("email") & "<br>"
strbody= strbody & "adgangskode : " & request.form("brugerkode")

das ist gut - jah

strTo = "eaogkim@stofanet.dk"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = "Ny bruger på babynet<br><br>"
    strbody = strbody & "Brugernavn : " & request.form("brugernavn") & "<br>"
    strbody= strbody & "Email : " & request.form("email") & "<br>"
    strbody= strbody & "adgangskode : " & request.form("brugerkode")
    strMailServer = "mail.frip.dk"

så spiller det max

jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/babynet/community.asp, line 30

Prøv med :

strMailServer = "pasmtp.tele.dk"

istedet for denne .

strMailServer = "mail.frip.dk"

/Websam

jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/babynet/community.asp, line 30

det er et problem med frip's opsætning

http://system.frip.dk/forum.php?action=show_topic&board=Jmail

prøv at kigge i deres jmail forum og du vil se at andre har problemer også

//vbcoder

nogen foreslår at man bruger

mail.tele.dk

nogen siger den heller ikke virker

//vbcoder

ja det er godt nok træls hvis det er det der gør det..
jeg får dette svar når jeg opretter en profil
jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/babynet/community.asp, line 30

pasmtp.tele.dk der er sikker vinder hver gang og hvis du ikke kan få den til at virke er det ved din udbyder det er galt.

/websam

pasmtp.tele.dk er ikke en sikker vinder.

Den mail server der kunne bruges afhænger af hvilken udbyder linjen står hos.

Det hjælper ikke noget at man som almindelig bredbåndskunde hos tdc forsøger at bruge pasmtp.tele.dk da denne er forbeholdt ProAccess kunder. der skal man bruge mail.tele.dk eller smtp.tele.dk

Grunden til dette er at alle forsøger at stoppe spam og en af måderne er at man kun accepterer at ens egne kunder relay'er post til de(n) mailservere man har stående.

Mine hosting kunder kan bruge pasmtp.tele.dk i jmail - eller deres egen mail server.

I dette tilfælde kunne man måske forsøge sig med

    strMailServer = "localhost"

eller

    strMailServer = "127.0.0.1"

da dette henviser den lokale maskine.

Det kræver dog at der er installeret en smtp-server på maskinen og det er der formodentlig ikke.

//vbcoder