<%@ Language=VBScript %>
<%mode = Request.QueryString("mode")%>
<% If mode = "forgetpass" Then %>
<% End If %>
<%
If mode = "forgetpass1" Then
user = Request.Form("user")
Set cnT = Server.CreateObject("ADODB.Connection")
Set rsT = Server.CreateObject("ADODB.RecordSet")
cnT.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_private/db/db.mdb")
user = Request.Form("user")
SQLT = "SELECT admin.*, admin.user, admin.pass FROM admin "
SQLT = SQLT & "WHERE (((admin.user)='" & user & "'));"
rsT.Open SQLT, cnT, 1,3
Email = rsT("Email")
Password = rsT("pass")
rsT.Close
Set rsT = Nothing
mserver = "mail.lokalprofil.dk"
'domain = "lokalprofil.dk"
ID = Request.Form("ID")
modtageradresse = Email
modtagernavn = Email
afsadresse = "mail@lokalprofil.dk"
afsnavn = "Administrationssiden"
besked = "Hermed kodeordet til din administrationsside. Kodeord: "& Password
besked = besked & "
Du skal anvende dit kodeord sammen med dit brugernavn, for at logge "
besked = besked & "ind og rette din hjemmeside.
Hvis du ikke mener du er den rette "
besked = besked & "modtager af denne mail, bedes du besvarer denne, med en bemærkning om at"
besked = besked & " du ikke er den rette modtager.