% @LANGUAGE="JAVASCRIPT" %>
<%
dbConnection = Server.CreateObject("ADODB.Connection");
dbConnection.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath('../db/login.mdb'));
rs = Server.CreateObject("ADODB.Recordset");
rs.ActiveConnection= dbConnection;
sqlstring = "SELECT * from tblusername WHERE username = '" + Request.Form('username') + "';"
rs.Source = sqlstring;
rs.Open();
sep = "', '"
%>
Login Page
<% if (rs.EOF) {
sqlstring = "INSERT INTO tblusername (username, password) VALUES('" + Request.Form("username") + sep +
Request.Form("password") + "')";
dbConnection.Execute(sqlstring);
Response.Write("Account Creation Successful. Use back button on your browser and login in returning users section");
}
else Response.Write("Username taken. Please use Back button on your browser and select another username")
rs.Close();
dbConnection.Close(); %>