Jag skulle vilja ha ett litet script som hämtar ett email i databasen och skickar inloggningsuppgifter till personens email. Jag skulle spara "ansökan" direkt i en databas och sedan skicka iväg inlogningsuppgifter med följnade kod: men var lägger jag in databaskopplingen? Som MKG sa, först öppnar du databasen, sen sparar du uppgifterna i den, sen stänger du. Sen har du fortfarande kvar variablerna och dess värden, då skickar du ut mailet.Maila tillbaka med email? (CDONTS)
Jag har först en sida där man bara fyller i sin email, hur löser jag detta när jag vill in i databasen och hämta data sen att den skickar ett mail också?Sv: Maila tillbaka med email? (CDONTS)
<code>
Dim SMTP
Dim HTML
Set SMTP = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Skicka email i html-format</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
HTML = HTML & "Exempel</strong><br>"
HTML = HTML & "en textrad</strong></p>"
HTML = HTML & "<p align = ""center"">mittentext</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
SMTP.From= "FRÅN EPOST ADRESS"
SMTP.To="TILL EPOST ADRESS"
SMTP.Subject="html-exempel"
SMTP.Body=HTML
SMTP.BodyFormat = CdoBodyFormatHTML
SMTP.MailFormat = CdoMailFormatMime
SMTP.Importance = CdoNormal
SMTP.Send
set SMTP=nothing
</code>Sv: Maila tillbaka med email? (CDONTS)
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("db/login.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From users"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Om jag vill ha en redirect till en annan sida, var lägger jag dem då?Sv: Maila tillbaka med email? (CDONTS)