8 svar · 237 visningar · startad av fesoj
Nån som har nån fin kod som gör att man kan byta lösen i en Accesdatabas? Jag undrar också om det finns nån som har en funktion som skickat det lösenordet man angivit till sin mail! På en community alltså! Tacksam för hjälp! // josef
alltså jag har gjort en community och det är altså en användare som ska ändra/skicka efter lösenordet!
Jag har tänkte på en sak, det verkar som om folk tror att det finns standard-koder till ASP som bara är att kopiera in i sin kod så funkar det direkt. Så är inte fallet (med undantag för vissa funktioner) och för att någon ska kunna hjälpa dig så behöver du bidra med viss information, gärna lite kod och framför allt hur databasen är utformad och vad fälten heter.
Fel forum!
Det är väl inte fel forum? Killen vill ha hjälp med lite ASP-kod och han ställer en fråga i ASP-forumet.
Det är väl inte fel forum? Killen vill ha hjälp med lite ASP-kod och han ställer en fråga i ASP-forumet.
Jag tycker att det är fel forum, då man i stort sett ber att få färdig kod för att utföra en uppgift. Detta tycker jag man ska be om i jobb & tjänster forumen.
Om man däremot visar lite kod och frågar om ett specifikt problem är det en annan sak! :)
alltså jag har en databas som ex. db.mdb och ska skriva till tblMembers där det finns en fält som heter "losen"! Jag vill alltså lägga till en funktion på min sida där medlemmarna kan skicka efter sitt lösen till sin angivna mail! Antagligen använder man sig av Jmail men jag vet inte hur!
Har du JMail på servern?
Ett liten kodsnutt jag använder mig av på en sida som kör JMail
JMail.ServerAddress måste du ändra till rätt värde.
Du bör även lägga in en funktion som kontrollerar efter förbjudna tecken etc.
Dim JMail, Connect, RecSet, Visa
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("..\db\data.mdb")&" "
'Funktion som mailar inloggningsuppgifter till registrerad epostadress-----------------------------------------------------------------------------
If Request.Form("epost")<>"" Then
Visa = "SELECT * FROM Members WHERE Epost='" &(Request.Form("epost")) & "' AND Status=20"
Set RecSet = Connect.Execute(Visa)
If RecSet.EOF Then
Response.Write "Tyvärr finns ingen medlem med den epostadressen :"&Request.Form("epost")&" registrerad.<BR>"
Else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.domain.com"
JMail.Sender = "info@domain.com"
JMail.Subject = "Dina uppgifter från XXXX"
JMail.AddRecipient RecSet("Epost")
JMail.Body = "Här är dina inloggningsuppgifter för XXX ."&VbCrLf&"Användarnamn : "&RecSet("Username")&VbCrLf&"Lösenord : "&RecSet("Password")&""
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
Set JMail=Nothing
Response.Write "Dina inloggningsuppgifter har skickats via email till den adress du uppgav."
End If
RecSet.Close
End If
MvH
David