<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.Buffer = true
Response.Expires = -1
Response.ExpiresAbsolute = Now() -2
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private"
Response.CacheControl = "no-cache"
If Request.Form("Submit") <> "" Then
If request.Form("epost") <> "" Then
strepost = request.Form("epost")
Call dbOpen(conn)
'Open record with entered username
set rs = server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT * FROM SVFKuTB where Epost='"& strepost &"'", conn
'If there is no record with the entered username, close connection
'and go back to login with QueryString
If rs.EOF then
rs.close
Call dbClose(conn)
set rs=nothing
Response.write("
Gå tillbaka och försök igen.")
else
Call dbClose(conn)
'Declare variables
Dim sDefaultChars
Dim iCounter
Dim sMyPassword
Dim iPickedChar
Dim iDefaultCharactersLength
Dim iPasswordLength
'Initialize variables
sDefaultChars="abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
iPasswordLength="6"
iDefaultCharactersLength = Len(sDefaultChars)
Randomize'initialize the random number generator
'Loop for the number of characters password is to have
For iCounter = 1 To iPasswordLength
'Next pick a number from 1 to length of character set
iPickedChar = Int((iDefaultCharactersLength * Rnd) + 1)
'Next pick a character from the character set using the random number iPickedChar
'and Mid function
sMyPassword = sMyPassword & Mid(sDefaultChars,iPickedChar,1)
Next
strMD5pwd = md5(sMyPassword)
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = connfunct
MM_editCmd.CommandText = "UPDATE SVFKuTB SET Password = ? WHERE Epost='"& strepost &"'"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, strMD5pwd) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.silent = true
msg.AddRecipient strepost
msg.From = "svfk@obitek.se"
msg.Subject = "SVFK - Medlemsregister"
msg.Body = "Nytt lösenord är genererat!" & vbCrLf & vbCrLf & vbCrLf & "Ditt tillfälliga lösenord är:" & vbCrLf & sMyPassword & vbCrLf & vbCrLf & vbCrLf & "Logga in och byt ditt lösenord så snart du kan!" & vbCrLf & vbCrLf & vbCrLf & "MVH" & vbCrLf & "SVFK"
msg.MailServerUserName = "svfk@obitek.se"
msg.MailServerPassword = "gtAWEdR546f!!5chR"
If not msg.Send("smtp.obitek.se:587") Then
Response.write "
" & msg.log & "
"
Else
Response.write "
Nytt lösenord genererat och skickat till den e-post adress du angett vid registering!
"
Response.AddHeader "Refresh", "5;URL=http://svfk.obitek.se"
End If
End If
Else ' Inte angett e-post
' Gör inget
End if
Else ' Rendera formulär.
'response.Write("