Login Aktivering mail hjælp
Hej. Jeg vil gerne vide om det er muligt med mit login system her og lave sådan at den sende en Aktivering mail til den E-mail de har skrevet ind.register.asp
<%@ Language=VBScript %>
<%Response.Expires = -1 %>
<%Response.ExpiresAbsolute = Now() - 1 %>
<%Response.AddHeader "pragma", "no-cache" %>
<%Response.AddHeader "cache-control", "private" %>
<%Response.CacheControl = "no-cache" %>
<%
Response.Expires = -1000
Response.Buffer = True
Response.Clear
%>
<!--RAHUL MAHAJAN -->
<!--SCRIPT DESIGNED AND DEVELOPED BY RAHUL MAHAJAN -->
<!--MULTI-USER LOGIN WITH DATABASE CONNECTION-->
<!--FEEL FREE TO MAKE CHANGES ACCORDINGLY-->
<!--If you face any problem, Please mail me anytime-->
<!--E-MAIL:mahajan_rahul@hotmail.com-->
<!--Date: 5th May, 2005-->
<!--Please rate it on www.planetsourcecode.com-->
<head>
<title>Resigtration Form.</title>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<STYLE TYPE="text/css">
BODY
{
scrollbar-base-color: #7782C3;
scrollbar-arrow-color: #ffffff;
scrollbar-DarkShadow-Color: #000000;
}
</STYLE>
</head>
<body bgcolor="#F2822D">
<div align="center">
<center>
<table border="0" width="550" cellspacing="0" cellpadding="0" height="627">
<form action="First_Time.asp" method="POST" name="form1">
<tr>
<td width="544" valign="top" align="center" height="74" colspan="3">
<div align="center">
<center>
<table border="0" width="550" cellspacing="0" cellpadding="0" height="62">
<tr>
<td width="100%" valign="middle" align="center" height="33" bgcolor="#E0E0E0">
<b><font face="Arial" size="4" color="#FF0000">Register</font></b></td>
</tr>
<tr>
<td width="100%" valign="middle" align="center" height="29"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="1" color="#0000FF">Du skal
skrive i felter der har dette mærke ud for sig.</font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">For navn</font></td>
<td width="31" valign="middle" align="center" height="30"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="257" valign="middle" align="left" height="30"><input type="text" name="txtName" size="20"></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">Efter Navn</font></td>
<td width="31" valign="middle" align="center" height="30"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="257" valign="middle" align="left" height="30"><input type="text" name="txtLastName" size="20"></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">E-Mail</font></td>
<td width="31" valign="middle" align="center" height="30"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="257" valign="middle" align="left" height="30"><input type="text" name="txtEmail" size="20"></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"></td>
<td width="31" valign="middle" align="center" height="30"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="257" valign="middle" align="left" height="30"></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">Brugernavn</font></td>
<td width="31" valign="middle" align="center" height="30"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="257" valign="middle" align="left" height="30"><input type="text" name="txtUserName" size="20"></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">Adgangskode</font></td>
<td width="31" valign="middle" align="center" height="30"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="257" valign="middle" align="left" height="30"><input type="password" name="txtPassword" size="20" maxlength="10"></td>
</tr>
<tr>
<td width="544" valign="middle" align="right" height="45" colspan="3">
<font face="Verdana" size="1" color="#0000FF">Hemmeligt svar som du kan
bruge hvis du har glemt din adgangskode.</font></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">Sikkerhedsspørgsmål</font></td>
<td width="31" valign="middle" align="center" height="30"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="257" valign="middle" align="left" height="30"> <select size="1" name="txtQuestion">
<option></option>
<option>Hvad hedder dit kæledyr?</option>
<option>Hvad er navnet på din første skole?</option>
<option>Hvem er din barndomshelt?</option>
<option>Hvad er din yndlingshobby?</option>
</select></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">Hemmeligt Svar</font></td>
<td width="31" valign="middle" align="center" height="30"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="257" valign="middle" align="left" height="30"><input type="text" name="txtAnswer" size="20" maxlength="10"></td>
</tr>
<tr>
<td width="544" valign="middle" align="right" height="45" colspan="3"> </td>
</tr>
<tr>
<td width="544" valign="middle" align="left" height="45" colspan="3">
<font face="Verdana" size="2" color="#000080"><b>Person oplysninger</b> -</font></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">Adresse</font></td>
<td width="31" valign="middle" align="center" height="30">-</td>
<td width="257" valign="middle" align="left" height="30"><input type="text" name="txtAddress" size="20"></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">By</font></td>
<td width="31" valign="middle" align="center" height="30">-</td>
<td width="257" valign="middle" align="left" height="30"><input type="text" name="txtCity" size="20"></td>
</tr>
<tr>
<td width="256" valign="middle" align="left" height="30"><font face="Verdana" size="2" color="#FF0000">*
</font><font face="Verdana" size="2" color="#000080">Land</font></td>
<td width="31" valign="middle" align="center" height="30">-</td>
<td width="257" valign="middle" align="left" height="30">
<select size="1" name="txtCountry">
<option></option>
<option>De Forenede Stater Amerika</option>
<option>Amerika Latina</option>
<option>Belgique</option>
<option>Belgien</option>
<option>Brasilien</option>
<option>Burma</option>
<option>Bangladesh</option>
<option>Canada</option>
<option>Danmark</option>
<option>Tyskland</option>
<option>England</option>
<option>Ethopia</option>
<option>Frankrig</option>
<option>Irland</option>
<option>Italien</option>
<option>Indien</option>
<option>Luxemburg</option>
<option>Mexico</option>
<option>Netherland</option>
<option>Norge</option>
<option>Nambia</option>
<option>Portugal</option>
<option>Pakistan</option>
<option>Rusland</option>
<option>Spanien</option>
<option>Syd Afrika</option>
<option>United Kingdom</option>
<option>UAE</option>
<option>Andet</option>
</select></font>
</td>
</tr>
<tr>
<td width="544" valign="middle" align="center" height="118" colspan="3">
<input type="submit" value="Forsæt" name="submit">
<input type="reset" value="Nulstil"></td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>
First_Time.asp
<%@ Language=VBScript %>
<%Response.Expires = -1 %>
<%Response.ExpiresAbsolute = Now() - 1 %>
<%Response.AddHeader "pragma", "no-cache" %>
<%Response.AddHeader "cache-control", "private" %>
<%Response.CacheControl = "no-cache" %>
<%
Response.Expires = -1000
Response.Buffer = True
Response.Clear
%>
<!--RAHUL MAHAJAN -->
<!--SCRIPT DESIGNED AND DEVELOPED BY RAHUL MAHAJAN -->
<!--MULTI-USER LOGIN WITH DATABASE CONNECTION-->
<!--FEEL FREE TO MAKE CHANGES ACCORDINGLY-->
<!--If you face any problem, Please mail me anytime-->
<!--E-MAIL:mahajan_rahul@hotmail.com-->
<!--Date: 5th May, 2005-->
<!--Please rate it on www.planetsourcecode.com-->
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strName = Request.Form("txtName")
strLastName = Request.Form("txtLastName")
strEmail = Request.Form("txtEmail")
strUserName = Request.Form("txtUserName")
strPassword = Request.Form("txtPassword")
strQuestion = Request.Form("txtQuestion")
strAnswer = Request.Form("txtAnswer")
strAddress = Request.Form("txtAddress")
strCity = Request.Form("txtCity")
strCountry = Request.Form("txtCountry")
strDate = Now()
blnValid = True
strValid = "<p align=""left""><font face=""Verdana"" size=""4"" color=""#FF00000""><b>" & _
"Registration Failed..!!</b></font></p>" & vbCrLf & _
"<ul><font face=""Verdana"" size=""2"" color=""#000080"">" & vbCrLf
if strName = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast dit Navn.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strLastName = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast dit Efternavn.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strEmail = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast dit E-Mail ID.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strUserName = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast dit Brugernavn.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strPassword = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast din Adgangskode.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strQuestion = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Vælge venlist dit Sikkerhedsspørgsmål.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strAnswer = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast dit Hemmeligt Svar.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strAddress = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast din Adresse.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strCity = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast din By.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
if strCountry = "" then
blnValid = False
strValid = strValid & "<table border=""0"" width=""302"" cellspacing=""0"" cellpadding=""0"" height=""22"">" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td width=""300"" height=""22""><p align=""left""><font face=""Verdana"" size=""2"" color=""#000080""># Indtast dit Land.</p></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>"
end if
strValid = strValid & "<p align=""center""><a href=""register.asp"" target=""_top"" title=""Click Here""><font face=""Verdana"" size=""2"" color=""#0000FF"">Click Here To Continue</font></a></p>"
else
strValid = strValid & Response.Redirect ("register.asp")
end if
if blnValid = True then
strDSNPath = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};pwd=password; DBQ=" & Server.MapPath("admi\data\bruger.mdb")
strSQL_Insert = "INSERT INTO CustRecords ( Cust_Name, Cust_LastName, Email, Cust_Username, Cust_Password, Cust_Question, Cust_Answer, Cust_Address, Cust_City, Cust_Country, Entry_Date)" & _
" VALUES ('" & strName & "','" & strLastName & "','" & strEmail & "','" & strUserName & "','" & strPassword & "','" & strQuestion & "','" & strAnswer & "','" & strAddress & "','" & strCity & "','" & strCountry & "','" & strDate & "');"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strDSNPath
On error resume next
Conn.Execute strSQL_Insert
Conn.Close
Set Conn = Nothing
if err.number <> 0 then
strValid = "<p align=center><font face=""Verdana"" size=""2"" color=""#F0000""><b>" & _
"Beklager!</font></b><font face=""Verdana"" size=""2"" color=""#000080""> Disse Informationer er blevet brugt af en anden.</font><br>" & _
"<br><font face=""Verdana"" size=""2"" color=""#000080"">Vælg et andet <b>E-Mail Adresse</b> og <b>Brugernavn.</b></br>" & _
"</font></p>" & _
"<br><p align=""center""><a href=""register.asp"" target=""_self"" title=""Tryk Her""><font face=""Verdana"" size=""2"" color=""#0000FF"">Tryk her for at Forsætte</font></a></p>"
else
strValid = "<p align=""left""><b><font face=""Verdana"" size=""2"" color=""#008080"">Dear " & strName & " " & strLastName & ".</b></font>" & _
"<p align=""center""><font face=""Verdana"" size=""2"" color=""#000080"">Din bruger er blevet Registeret korrekt du er nu klar til at logge dig ind.</font></p><br>" & _
"<center><table border=""0"" width=""327"" height=""39"" cellspacing=""0"" cellpadding=""0"">" &_
"<tr>" &_
"<td width=""98"" valign=""middle"" align=""center"" height=""21""><font size=""2"" face=""Verdana"" color=""#000080""><b>Brugernavn</b></font></td>" &_
"<td width=""20"" align=""left"" valign=""middle"" height=""21""><font size=""2"" face=""Verdana""><b>-</b></font></td>" &_
"<td width=""187"" valign=""middle"" align=""left"" height=""21""><font size=""2"" face=""Verdana"" color=""#FF0000"">" & strUserName & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td width=""98"" valign=""middle"" align=""center"" height=""18""><font size=""2"" face=""Verdana"" color=""#000080""><b>Password</b></font></td>" &_
"<td width=""20"" align=""left"" valign=""middle"" height=""18""><font size=""2"" face=""Verdana""><b>-</b></font></td>" &_
"<td width=""187"" valign=""middle"" align=""left"" height=""18""><font size=""2"" face=""Verdana"" color=""#FF0000"">" & strPassword & "</font></td>" &_
"</tr></table></center>" &_
"<p align=""center""><a href=""dologout.asp"" target=""_top"" title=""Tryk Her""><font face=""Verdana"" size=""2"" color=""#0000FF"">Tryk her for at Forsætte</font></a></p>"
end if
end if
%>
<%Response.Expires = -1 %>
<%Response.ExpiresAbsolute = Now() - 1 %>
<%Response.AddHeader "pragma", "no-cache" %>
<%Response.AddHeader "cache-control", "private" %>
<%Response.CacheControl = "no-cache" %>
<%
Response.Expires = -1000
Response.Buffer = True
Response.Clear
%>
<html>
<!--RAHUL MAHAJAN -->
<!--SCRIPT DESIGNED AND DEVELOPED BY RAHUL MAHAJAN -->
<!--MULTI-USER LOGIN WITH DATABASE CONNECTION-->
<!--FEEL FREE TO MAKE CHANGES ACCORDINGLY-->
<!--If you face any problem, Please mail me anytime-->
<!--E-MAIL:mahajan_rahul@hotmail.com-->
<!--Date: 5th May, 2005-->
<!--Please rate it on www.planetsourcecode.com-->
<head>
<title>Registration.</title>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="stylesheet" type="text/css" href="data/css.css">
<STYLE TYPE="text/css">
BODY
{
scrollbar-base-color: #7782C3;
scrollbar-arrow-color: #ffffff;
scrollbar-DarkShadow-Color: #000000;
}
</STYLE>
</head>
<body bgcolor="#FFFFFF">
<p align="center">
<%
Response.Write strValid
%>
</p>
</body></html>
dologout.asp
<%@ Language=VBScript %>
<%
Option Explicit
Sub DrawPage
%>
<%Response.Expires = -1 %>
<%Response.Expires = 0 %>
<%Response.ExpiresAbsolute = Now() - 1 %>
<%Response.AddHeader "pragma", "no-cache" %>
<%Response.AddHeader "cache-control", "private" %>
<%Response.CacheControl = "no-cache" %>
<%
Response.Expires = -1000
Response.Buffer = True
Response.Clear
%>
<html>
<!--RAHUL MAHAJAN -->
<!--SCRIPT DESIGNED AND DEVELOPED BY RAHUL MAHAJAN -->
<!--MULTI-USER LOGIN WITH DATABASE CONNECTION-->
<!--FEEL FREE TO MAKE CHANGES ACCORDINGLY-->
<!--If you face any problem, Please mail me anytime-->
<!--E-MAIL:mahajan_rahul@hotmail.com-->
<!--Date: 5th May, 2005-->
<!--Please rate it on www.planetsourcecode.com-->
<head>
<title>Members Login</title>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="stylesheet" type="text/css" href="data/css.css">
<STYLE TYPE="text/css">
BODY
{
scrollbar-base-color: #7782C3;
scrollbar-arrow-color: #ffffff;
scrollbar-DarkShadow-Color: #000000;
}
</STYLE>
</head>
<body bgcolor="#F2822D">
<div align="center">
<center>
<table border="0" width="750" cellspacing="0" cellpadding="0" height="343">
<tr>
<td width="300" height="343" valign="top" align="left">
<div align="center">
<center>
<table border="0" width="750" cellspacing="0" cellpadding="0" height="364">
<tr>
<td width="324" valign="top" align="left" height="364"> </td>
<td width="450" height="343" valign="middle" align="center">
<div align="center">
<table border="0" width="382" cellpadding="0" cellspacing="0" height="176">
<form action="validate.asp" METHOD="post">
<tr>
<td width="382" colspan="3" valign="middle" align="center" height="45" bgcolor="#F2822D">
<p align="left"><b><font face="Arial" size="3" color="#FF0000"> <img border="0" src="1155922812.jpg" width="468" height="60"></font></b></td>
</tr>
<tr>
<td width="382" valign="middle" align="center" height="35" colspan="3"><% =message%></center></td>
</tr>
<tr>
<td width="117" valign="middle" align="center" height="35">
<img border="0" src="brug.bmp" width="134" height="30"></td>
<td width="9" valign="middle" align="center" height="35"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="148" valign="middle" align="center" height="35"><input type="text" name="username" size="20"></td>
</tr>
<tr>
<td width="117" valign="middle" align="center" height="35">
<img border="0" src="passw.bmp" width="192" height="35"></td>
<td width="9" valign="middle" align="center" height="35"><font face="Verdana" size="2" color="#000080">-</font></td>
<td width="148" valign="middle" align="center" height="35"><input type="password" name="userpassword" size="20" maxlength="10"></td>
</tr>
</center>
<tr>
<td width="382" colspan="3" valign="middle" align="center" height="45">
<p align="center"><input type="submit" value="Login" name="submit">
<input type="reset" value="slet" name="reset"></p>
</td>
</tr>
<tr>
<td width="382" colspan="3" valign="middle" align="center" height="45"><p align="left">
<font size="2" face="Verdana" color="#FF0000">Glemt Kodeord - </font>
<a href="forgot.asp" title="Click Here" target="_top">
<font size="2" face="Verdana" color="#0000FF">Tryk Her</font></a></p>
</td>
</tr>
<tr>
<td width="382" colspan="3" valign="middle" align="right" height="45">
<font face="Verdana" size="2" color="#000080"><b>Gå til
Administrator siden</b> - </font><a href="site-admin/Admin.asp">
<font face="Verdana" size="2" color="#0000FF">Tryk
Her</font></a>
<p><b>
<font face="Courier New" size="2"><a href="http://www.online-net.dk">Vend tilbage til
Start siden</a></font></b></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</form>
</td>
</tr>
</table>
</div>
</body></html>
<%
End Sub
dim message
message = Session("message")
Session("message") = ""
Call DrawPage
%>
Jeg skulle mene det var muligt at lave når man har forstand på asp.
Håber megete der er nogen der kan hjælpe det betyder meget for mig. ;)
