<%@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") <> "" OR request.Form("pwd") <> "" Then
strepost = request.Form("epost")
strpwd = request.Form("pwd")
Call dbOpen(conn)
'Open record with entered username
set rs = server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT * FROM SVFKuTB where Epost='"& strepost &"' AND Password='" & md5(strpwd) & "'", 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
strUsername = rs.Fields.Item("Username").Value
Call dbClose(conn)
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 = "Utskick av användarnamn!" & vbCrLf & vbCrLf & vbCrLf & "Ditt användarnamn är:" & vbCrLf & strUsername & vbCrLf & vbCrLf & vbCrLf & "Använd ditt användarnamn tillsammans med ditt lösenord för att logga in på medlemsidorna!" & 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 "
Ett e-postmeddelande med ditt användarnamn har skickats 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("