hjælp - find glemt password + send med Jmail

Yep,

Koger lige et brugbart svar sammen til dig

Her:


(Jeg går ud fra du sender oplysningerne via Querystring)

<%
NAVN = Request(\"navn\")
ADRESSE = Request(\"adresse\")
POST = Request(\"post\")
TLF = Request(\"tlf\")
MAIL = Request(\"mail\")
PASSWORD = Request(\"password\")

  Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
  JMail.ServerAddress = \"smtp.DIN-mailserver.dk\"
  JMail.Sender        = \"DIN@Email.dk\"
  JMail.Subject      = \"Information\"
  JMail.AddRecipient  MAIL \' nej der skal IKKE være = før MAIL her
  JMail.Priority      = 3
  JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
 
  \' ********** Her starter selve email-en
  JMail.Body = \"Dette er linie 1 af brevet\" & vbCrLf &_
              \"Navn : \" & NAVN &_
              \"Adresse :\" & ADRESSE &_
              \"Post nr. og by :\" & POST &_
              \"Telefonnummer :\" & TLF &_
              \"Email adresse :\" & MAIL
              \"Password :\" & PASSWORD &_
\"Med venlig hilsen\" &_
\"Xxx\"
  \' ********** Her slutter selve email-en
 
  JMail.Execute
 
  Set JMail = Nothing
 
%>

<html><body>

Emailen er sendt!

</body></html>

>>

Spørg hvis du er i tvivl om noget,

og husk at \"<br>\" IKKE virker i selve mailen
Du skal bruge & vbCrLf &

UPS,
Den havde jeg glemt,

ALLE linier i JMail.Body
eks.: \"Navn : \" & NAVN &_
skal se SÅDAN ud :
\"Navn : \" & NAVN & VBCrLf &_

Du skal altså HUSKE & VBCrLf &_

( \"&_\" i asp gør at din response.write fortsætter på næste linie, så den SKAL også være der !..

fedtmuledk:> det er vist liiige lovligt mange point for sådan et spørgsmål. 100-150 MAX!

tdaugaard > hvis han havde givet 100-150 så vil i sikkert skrive det er alt for lidt point \"Læg Flere Point\" !

okay:> gider du lige ? Det er kun til dig vi skriver det pga. dine latterlige point summer!!

> Lad dog for hel.... selv folk bestemme hvor mange point de vil bruge,

Hvis det er noget som VIRKELIG er vigtigt for en giver man oxo mange point
- Self. med untagelse af okay, som MAX bruger 7 point, eller 9 point hvis han får en hel side,

AnyWay,
Tag dog og opret en debat om folk og deres point i stedet for at plage de folk der søger viden i deres spm.


* MoRoax...

moroax:> NEJ! Du har så åbenbart ikke forstået meningen med pointene. Pointene skal afspejle en brugers viden og aktivitet her på stedet.

Svaret på det her spørgsmål er, for de fleste, ASP\'er common knowledge .. dvs. det kan fyres af i løbet af ingen tid og det du har postet er endda sikkert Copy/Pasted her ind.

Er det 400 point værd synes du ?

Okay .. men hvis jeg har et VIRKELIGT død-vigtigt spørgsmål så synes du det er okay hvis jeg sætter 4000 point af til det ?

Debat ? Been there, tried that .. most people don\'t care ...

Jeg mangler lidt:
Jeg ønsker HELE asp filen med html koder = formular som spørger efter
Telefonnummer, hvorefter mailen laves og sendes.
Det skulle vel kunne ligge i en og samme fil?????


----------------------------
Databasen hedder : kunder.mdb
Tabellen hedder : kunder
De ønskede oplysninger er :

Navn
Adresse
Postnummer
By
Telefonnummer
e-mail
kodeord
----------------------------


og med hensyn til hvor mange point jeg giver : så er det vel ligesom op til mig selv hvad jeg synes dette svar er værd for mig.
eller hvad ?

>> Fedtmuledk >>
Point ?!!.. - Ja jeg har samme mening som du,
kunne selv finde på det samme hvis man VIRKELIG er kørt sur i noget,

AnyWay,
Her er det hele som det skal se ud
filen skal hedde:  passmail.asp
og jeg går ud fra at databasen ligger i samme mappe som denne fil kommer til
Du skal HUSKE at rette din email adresse, SMTP server m.m. jeg har skrevet:
  \'HER SKAL DU RETTE
efter de linier hvor du skal rette !..

Her er den så:



<%

\'     VIGTIGT: siden hedder:  passmail.asp

SEND        = Request(\"send\")
if SEND <> \"\" then
TLF         = Request(\"tlf\")

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

    SQL = \"Select * From kunder Where Telefonnummer=\" & TLF & \"\"
    set Vis = oConn.execute(SQL)
    if Vis.EOF then
        Response.write \"<Font color=\'#0000AA\'> Telefon nummeret: \" & TLF & \" er IKKE reg. i vores DataBase !</Font><br>\"
    else
        NAVN         = Vis(\"Navn\")
        ADRESSE     = Vis(\"Adresse\")
        POST         = Vis(\"Postnummer\")
        BY            = Vis(\"By\")
        EMAIL         = Vis(\"e-mail\")
        KODEORD     = Vis(\"Kodeord\")
    end if \' Vis

    Set Vis = Nothing
    Set oConn = Nothing

  Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
  JMail.ServerAddress = \"websmtp.DIN-SMTP Serverher.dk\" \' HER SKAL DU RETTE
  JMail.Sender        = \"AFSENDER@mail.dk\"\' HER SKAL DU RETTE
  JMail.Subject      = \"Dine oplysninger\"
  JMail.AddRecipient  EMAIL
  JMail.AddRecipientBCC \"din@mail.dk\"\' HER SKAL DU RETTE - til hvis du vil have en kopi uden modtageren kan se du også har fået mailen
  JMail.Priority      = 3
  JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")

  \' ********** Her starter selve email-en
  JMail.Body = \"Du er registreret med følgende oplysninger : \" & vbCrLf &_
                \"Navn : \" & NAVN & vbCrLf &_
                \"Adresse : \" & ADRESSE & vbCrLf &_
                \"Postnummer: \" & POST & vbCrLf &_
                \"By: \" & BY & vbCrLf &_
                \"Telefonnummer :\" & TLF & vbCrLf &_
                \"Email adresse :\" & EMAIL & vbCrLf &_
                \"Password :\" & KODEORD & vbCrLf &_
                \"Med venlig hilsen\" & vbCrLf &_
                \"Xxx\"\' HER SKAL DU RETTE
  \' ********** Her slutter selve email-en

    JMail.Execute

    Set JMail = Nothing

%>
<html>
<head>
    <title>Adgangskode ?.</title>
</head>

<body>
    Mail er sendt !
</body>
</html>
<% Else  %>
<html>
<head>
    <title>Adgangskode ?.</title>
</head>

<body>
<form method=\"POST\" action=\"passmail.asp\" name=\"thisForm\">
<br><br>
<center>
Glemt adgangskode ??..<br>
Skriv telefon nummer her:
<input type=\"text\" name=\"tlf\" value=\"\">
<br><br>
<input type=\"submit\" name=\"send\" value=\"send\">
</center>


</form>
</body>
</html>
<% End If %>




Du kan maile mig hvis der er problemer !

MailMe:  admin@find1ven.dk

* MoRoax...

Well - Virker det ??..

* MoRoax...

100000 tak for hjælpen

100000 gange selv tak ;)

* MoRoax...