script der sender brugernavn og kode til bruger i mail

Prøv med:

strBrugernavn = Request.Form("brugernavn")
strEmail = Request.Form("email")

If strBrugernavn <> "" Then
  ' JMail
End If

If strEmail <> "" Then
  ' JMail
End If

ok det var næsten også det jeg skrev, men det skal stadig definers, hvilken brugernavn og kode eller bare kode der skal sendes i mailen.

Mon ikke at det her vil virke:

<%
strBrugernavn = Request.Form("brugernavn")
strEmail = Request.Form("email")

strSQL="select * FROM adresse"
rs.execute(strSQL)

If strBugernavn <> "" Then

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient strEmail
    BrevBody.Subject = "Adgangskode"
    BrevBody.Priority = 1

    MailIndhold= MailIndhold & "Din adgangskode er" rs("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Log ind og går til din profil og skift den, så du ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold
BrevBody.Execute

Set BrevBody= Nothing

End If

If strEmail <> "" Then

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient response.write("email")
    BrevBody.Subject = "Brugernavn og adgangskode"
    BrevBody.Priority = 1

    MailIndhold= MailIndhold & "Dit brugernavn er" rs("brugernavn") & vbCrLf
    MailIndhold= MailIndhold & "Din adgangskode er" rs("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Sæt et flueben i login, så bliver dit brugernavn gemt, log ind" & vbCrLf
    MailIndhold= MailIndhold & "og gå til din profil og skift din kode så ud ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold
BrevBody.Execute

Set BrevBody= Nothing

End If
%>

Ret: If strBugernavn <> "" Then

Til: If strBrugernavn <> "" Then

nej, der sker stadig ikke noget.

Men jeg kan heller ikke se, hvordan scriptet skal kunne finde ud af at sende en mail til den adresse der passer til et bestemt brugernavn.

Kan følge mig?

Nu er jeg :-)

Sådan her: BrevBody.AddRecipient rs("email")

Jeg bliver lige nød til at have lidt mere info, om hvad du skal bruge det til. Det er muligt at jeg ikke helt kan se formålet...

jeg har et site, hvor man skal have et brugernavn og en kode for at få adgang.

Det henner at brugerne glemmer deres brugernavn og/eller kode, jeg vil så give muligheden for at få tilsendt den eller de oplsnonger de har glemt.

Der er faktisk en konflikt med disse if-sætninger, hvis brugeren BÅDE indtaster brugernavn og email:

If strBrugernavn <> "" Then
  ' JMail
End If

If strEmail <> "" Then
  ' JMail
End If

ok, hvad skal jeg så gøre for en rette det?

Så skal du i stedet validere din form, så du derved ikke tillader dine brugere at udelade enten brugernavn eller email:

<%
strBrugernavn = Request.Form("brugernavn")
strEmail = Request.Form("email")

If strBrugernavn = "" Then
  Response.Write "Du mangler at indtaste dit brugernavn!"
End If

If strEmail = "" Then
  Response.Write "Du mangler at indtaste din e-mailadresse!"
End If
%>

Valideringen kan laves mere detaljeret end ovenstående.

jeg vil kun have at der bliver indtastet en af de to, enten brugernavn eller email'en, ikke begge.

Hvorfor?

for det kunne jo tænkes at brugeren hverken kan huske brugernavn eller koden.

Er det en 'Jeg har glemt min adgangskode'-funktion, du vil lave? (Hvor brugernavn og password allerede findes i en database?)

yes lige præcist ;o)

Ah, okay. Så er jeg med...

Det må være noget lignende dette:

<%
strBrugernavn = Request.Form("brugernavn")
strEmail = Request.Form("email")

strSQL="select * FROM adresse WHERE"
rs.execute(strSQL)

If strBrugernavn <> "" Then

'Åbner databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dinDatabase.mdb")

'Henter data
strSQL="select * FROM adresse WHERE (Email= '" & strEmail & "')"
rs.execute(strSQL)

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient strEmail
    BrevBody.Subject = "Adgangskode"
    BrevBody.Priority = 1

    MailIndhold= MailIndhold & "Din adgangskode er" rs("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Log ind og går til din profil og skift den, så du ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold
BrevBody.Execute

Set BrevBody= Nothing
myConn.Close

End If

If strEmail <> "" Then

'Åbner databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dinDatabase.mdb")

'Henter data
strSQL="select * FROM adresse WHERE (Brugernavn = '" & strBrugernavn & "')"
rs.execute(strSQL)

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient rs("email")
    BrevBody.Subject = "Brugernavn og adgangskode"
    BrevBody.Priority = 1

    MailIndhold= MailIndhold & "Dit brugernavn er" rs("brugernavn") & vbCrLf
    MailIndhold= MailIndhold & "Din adgangskode er" rs("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Sæt et flueben i login, så bliver dit brugernavn gemt, log ind" & vbCrLf
    MailIndhold= MailIndhold & "og gå til din profil og skift din kode så ud ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold
BrevBody.Execute

Set BrevBody= Nothing
myConn.Close

End If
%>

Slet lige denne, øverst i koden (Den har ingen funktion):

strSQL="select * FROM adresse WHERE"
rs.execute(strSQL)

der sker ikke noget, jeg modtager ikke en mail.

Og du har ændret stien til din database (Jeg går ud fra at du bruger Access)?

hehe, jeg bruger ms sql. Men jeg har inkluderet min forbindelses fil.

Du er sikker på at der er data i databasen?

ja er meget sikker, du må gerne selv teste hvis du vil. http://webtest.thomas-myg-hansen.dk, log ind med tester og test gå ind under profil og se.

Jeg kan ikke se nogen felter med navnet brugernavn?

ok, der skulle gerne være to tabler, en stor og en lille. den store har tre rækker, en i toppen med oplysninger der ikke skal kunne rettes, en i midten med oplysninger der skal kunne rettes og den tredje i bunden igen med oplysninger der ikke skal kunne rettes.

Jeg skal ikke logge ind, hvis jeg skal teste det. Har jeg f.eks. glemt mit brugernavn, kan jeg jo ikke logge ind, og skal have det tilsendt på ny :-)

Jeg fandt vinduet med brugernavn og email (da jeg loggede ud) ;-)

ok. men der er jo stadig noget som ikke er som det skal være, jeg modtaget ikke nogen mail.

Jeg tror at problemet skyldes din form. Du mangler at sende data fra inputet (Du har glemt method="post").

Prøv denne:

<form method="post" action="glemt.asp">
<p><b>Brugernavn:</b><br>
<input name="brugernavn" type="text" tabindex="1"></p>
<p><b>E-mail:</b><br>
<input name="email" type="text" tabindex="2"></p>
<input name="knap" type="submit" value="Send">
</form>

arg crap

men ikke helt, dog har vi fundet ud af hvorfor der ikke bliver sendt en mail.

jmail.SMTPMail error '8000ffff'

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

/glemt.asp, line 25

og linje 25 indholder

BrevBody.Execute

hvad er linje 25?

Prøv denne:

<%
strBrugernavn = Request.Form("brugernavn")
strEmail = Request.Form("email")

If strBrugernavn = "" AND strEmail = "" Then
  Response.write "Du mangler at udfylde et af felterne!"
End If

strSQL="select * FROM adresse WHERE"
rs.execute(strSQL)

If strBrugernavn <> "" Then

'Åbner databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dinDatabase.mdb")

'Henter data
strSQL="select * FROM adresse WHERE (Email= '" & strEmail & "')"
rs.execute(strSQL)

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient rs("Email")
    BrevBody.Subject = "Adgangskode"
    BrevBody.Priority = 1

    MailIndhold= MailIndhold & "Din adgangskode er" rs("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Log ind og går til din profil og skift den, så du ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold

Set BrevBody= Nothing
myConn.Close

End If

If strEmail <> "" Then

'Åbner databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dinDatabase.mdb")

'Henter data
strSQL="select * FROM adresse WHERE (Brugernavn = '" & strBrugernavn & "')"
rs.execute(strSQL)

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient rs("email")
    BrevBody.Subject = "Brugernavn og adgangskode"
    BrevBody.Priority = 1

    MailIndhold= MailIndhold & "Dit brugernavn er" rs("brugernavn") & vbCrLf
    MailIndhold= MailIndhold & "Din adgangskode er" rs("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Sæt et flueben i login, så bliver dit brugernavn gemt, log ind" & vbCrLf
    MailIndhold= MailIndhold & "og gå til din profil og skift din kode så ud ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold

Set BrevBody= Nothing
myConn.Close

End If

BrevBody.Execute
%>

Fjern begge: Set BrevBody= Nothing

og flyt dem ned under BrevBody.Execute

Kun den ene :-)

Ok for at der ikke skal være nogle misforståelser så poster jeg lige mit script:

<%
brugernavn=Request.Form("brugernavn")
email=Request.Form("email")

If brugernavn = "" AND email = "" Then
  Response.write "Du mangler at udfylde et af felterne!"
End If

If Brugernavn <> "" Then

sql="select * FROM adresse WHERE (email= '" & email & "')"
set record=rs.execute(sql)

Set BrevBody              = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender        = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient    record("email")
    BrevBody.Subject      = "Adgangskode"
    BrevBody.Priority      = 1

    MailIndhold= MailIndhold & "Din adgangskode er" & record("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Log ind og går til din profil og skift den, så du ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold

response.write("Din kode er blevet sendt til dig i en mail.")

end if

If Email <> "" Then

sql="select * FROM adresse WHERE (Brugernavn = '" & brugernavn & "')"
set record=rs.execute(sql)

Set BrevBody              = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender        = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient    record("email")
    BrevBody.Subject      = "Brugernavn og adgangskode"
    BrevBody.Priority      = 1

    MailIndhold= MailIndhold & "Dit brugernavn er" & record("brugernavn") & vbCrLf
    MailIndhold= MailIndhold & "Din adgangskode er" & record("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Sæt et flueben i login, så bliver dit brugernavn gemt, log ind" & vbCrLf
    MailIndhold= MailIndhold & "og gå til din profil og skift din kode så ud ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold
BrevBody.Execute

Set BrevBody= Nothing

response.write("Dit brugernavn og din kode er blevet sendt til i en mail.")

end if
%>

når jeg skriver mit brugernavn ind, kommer beskeder "Din kode er blevet sendt til dig i en mail."

skriver jeg min mail adresse, får jeg en fejlbesked:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'BrevBody.AddRecipient'

/glemt.asp, line 42

linje 42 indholder:

BrevBody.AddRecipient    record("email")

Disse:
BrevBody.Execute
Set BrevBody= Nothing

Skal ned under den sidste End if i koden...

record("email") skal hedde: rs("email")

Okay, du har ændret rs til record - Så jeg lige.

Har du kopieret de koder jeg har skrevet? (De indeholder rettelser)

jeg har rettet i min hen af vejen, så jeg ikke har flere forskellige kodetyper i min filer.

Jeg kan ingen steder se, at du kalder din database?

når jeg nu skriver brugernavnet får jeg denne her fejl:

Din kode er blevet sendt til dig i en mail.
jmail.SMTPMail error '8000ffff'

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

/glemt.asp, line 59

linje 59 er:

BrevBody.Execute

skriver jeg min mail adresse ind kommer denne her fejl:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'BrevBody.AddRecipient'

/glemt.asp, line 42

linje 42 er:

BrevBody.AddRecipient    record("email")

tænker du på forbindelsen til DB'en?

Jep, du skal angive en forbindelse til din database, ellers kan du ikke åbne og hente data fra den :-)

min forbindelse inkludere jeg toppen af min fil

Dette fungerer hvis man anvender Access:

'Åbner databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dinDatabase.mdb")

'Henter data
strSQL="select * FROM adresse WHERE (Brugernavn = '" & strBrugernavn & "')"
rs.execute(strSQL)

Jeg kender ikke MSSQL så der kan jeg ikke hjælpe dig.

Ok.

Jeg er ikke sikker på at du har skrevet dette korrekt:

sql="select * FROM adresse WHERE (email= '" & email & "')"
set record=rs.execute(sql)

Har du prøvet med:

sql="select * FROM adresse WHERE (email= '" & email & "')"
rs.execute(sql)

Du skal herefter omdøbe dine record("brugernavn") til rs.("brugernavn")

det må jeg kigge på i morgen, er godt og grundig træt. tusind tak for hjælpen indtil nu.

Dette er mit sidste bud på hvordan det kan fungere (Ellers er jeg ved at løbe tør for forslag):

<%
strBrugernavn = Request.Form("brugernavn")
strEmail = Request.Form("email")

strSQL="select * FROM adresse WHERE"
rs.execute(strSQL)

If strBrugernavn <> "" Then

'Henter data
strSQL="select * FROM adresse WHERE (Email= '" & strEmail & "')"
rs.execute(strSQL)

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient rs("Email")
    BrevBody.Subject = "Adgangskode"
    BrevBody.Priority = 1

    MailIndhold= MailIndhold & "Din adgangskode er" rs("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Log ind og går til din profil og skift den, så du ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold

End If

If strEmail <> "" Then

'Henter data
strSQL="select * FROM adresse WHERE (Brugernavn = '" & strBrugernavn & "')"
rs.execute(strSQL)

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient rs("email")
    BrevBody.Subject = "Brugernavn og adgangskode"
    BrevBody.Priority = 1

    MailIndhold= MailIndhold & "Dit brugernavn er" rs("brugernavn") & vbCrLf
    MailIndhold= MailIndhold & "Din adgangskode er" rs("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Sæt et flueben i login, så bliver dit brugernavn gemt, log ind" & vbCrLf
    MailIndhold= MailIndhold & "og gå til din profil og skift din kode så ud ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold

End If

BrevBody.Execute
myConn.Close
Set BrevBody= Nothing
%>

Fjernes:

strSQL="select * FROM adresse WHERE"
rs.execute(strSQL)

og myConn.Close

<!--#include file="forbindelse.asp" -->

<%
brugernavn=Request.Form("brugernavn")
email=Request.Form("email")

If brugernavn = "" AND email = "" Then
  Response.write "Du mangler at udfylde et af felterne!"
End If

If brugernavn <> "" Then

sql="select * FROM adresse WHERE (brugernavn= '" & brugernavn & "')"
set record=rs.execute(sql)

Set BrevBody              = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender        = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient    record("email")
    BrevBody.Subject      = "Adgangskode"
    BrevBody.Priority      = 1

    MailIndhold= MailIndhold & "Din adgangskode er" & record("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Log ind og går til din profil og skift den, så du ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold

response.write("Din kode er blevet sendt til dig i en mail.")

end if

If email <> "" Then

sql="select * FROM adresse WHERE (email = '" & email & "')"
set record=rs.execute(sql)

Set BrevBody              = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender        = "admin.adresseliste@mail.dk"
    BrevBody.AddRecipient    record("email")
    BrevBody.Subject      = "Brugernavn og adgangskode"
    BrevBody.Priority      = 1

    MailIndhold= MailIndhold & "Dit brugernavn er" & record("brugernavn") & vbCrLf
    MailIndhold= MailIndhold & "Din adgangskode er" & record("adgangskode") & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Sæt et flueben i login, så bliver dit brugernavn gemt, log ind" & vbCrLf
    MailIndhold= MailIndhold & "og gå til din profil og skift din kode så ud ikke glemmer den igen." & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Med venlig hilsen" & vbCrLf & vbCrLf
    MailIndhold= MailIndhold & "Adresseliste administrator"

BrevBody.Body = MailIndhold

response.write("Dit brugernavn og din kode er blevet sendt til i en mail.")

end if

BrevBody.Execute

Set BrevBody= Nothing

%>

<!--#include file="forbindelseluk.asp" -->


Prøv og kig RIGTIG godt efter lige omkring select strengene og if sætningerne lige før, så vil du kunne se at vi ikke lige var helt vågne..... hehe

men du hjalp mig i den rigtige retning og er helt sikkert den der er skyld i at jeg fik det lavet rigtigt, så lig et svar så du kan få pointe.

Det eneste jeg kan se skulle være galt, er denne sætning:

set record=rs.execute(sql) hvor jeg ville skrive den således: rs.execute(sql)

Så jeg er ikke helt med? :-)

problemet var det her:

If strBrugernavn <> "" Then

'Henter data
strSQL="select * FROM adresse WHERE (Email= '" & strEmail & "')"
rs.execute(strSQL)

der er da noget galt ik'????

Det er sådan, jeg ville skrive det. Hvordan har du fået det til at fungere?

If brugernavn <> "" Then

'Henter data
sql="select * FROM adresse WHERE (brugernavn= '" & brugernavn & "')"
set record=rs.execute(sql)

somdu også kan se i den løsning jeg har postet.

Men hvis du nu omdøber alle 'record' til 'rs', og anvender dette:

strSQL="select * FROM adresse WHERE (Email= '" & strEmail & "')"
rs.execute(strSQL)

Burde det fungere hos dig (Og med mindre kode) :-)

... Sådan fungerer det hos mig ;-)

Du kan også prøve med:

strSQL="select * FROM adresse WHERE (Email= '" & strEmail & "')"
record.execute(strSQL)

Så kan du hurtigt teste om det fungerer.

ARG min point er at i if skrev vi brugernavn og så bad vi om og hente bata til email, kan du ikke se det?

Jo... Flot!

Der har vi sovet godt og grundigt i timen :-D

Det er jo det med at man kan stirre sig blind på detaljerne ;-)

Godt at det virker nu, og tak for points :-)

NP :o)