<html>
<body>
<script>
function validate(check){
str = "Problems with following fields\n\n"
if(check.nickname.value=="")
{
str += "Please enter your desired Nickname\n";
v = false
}
if(check.firstname.value=="")
{
str += "Please enter your Name\n";
v = false
}
if(check.lastname.value=="")
{
str += "Please enter your desired Last Name\n";
v = false
}
if(check.email.value=="")
{
str += "Please enter your E-mail\n";
v = false
}
if(check.address.value=="")
{
str += "Please enter your Address\n";
v = false
}
if(check.age.value=="")
{
str += "Please enter your Age\n";
v = false
}
if (check.password1.value == "") {
str += "you must enter a password\n";
v = false
}
if (check.password1.value != check.password2.value) {
str += "Entered passwords did not match\n";
check.password1.focus();
check.password1.select();
v = false
}
if(v != false){
v=true;}
else{
alert(str);}
return v
}
</script>
<form method="post" action="Mforum_newuser2.asp" name="form" onsubmit="return validate(this)" >
<title>Add new user</title>
<h2>Add new user</h2>
<br>
<p>Form vil not create user unless all fields are filled out !</p>
<table>
<tr>
<td>Nickname:</td>
<td><input name="nickname"></td>
</tr><tr>
<td>E-mail:</td>
<td><input name="email"></td>
</tr><tr>
<td>First Name:</td>
<td><input name="FirstName"></td>
</tr><tr>
<td>Last Name:</td>
<td><input name="LastName"></td>
</tr><tr>
<td>Type password:</td>
<td><input type="PASSWORD" name="password1" value=""></td>
</tr><tr>
<td>Verify password:</td>
<td><input type="PASSWORD" name="password2" value=""></td>
</tr><tr>
<td>Address:</td>
<td><input name="Address"></td>
</tr><tr>
<td><input name="Date" type="hidden" value="<% Response.write Date() %>"></td>
</tr><tr>
<td>Age:</td>
<td><ul><select name="Age">
<option value="" selected>
<option value="13"> 13
<option value="14"> 14
<option value="15"> 15
<option value="16"> 16
<option value="17"> 17
<option value="18"> 18
<option value="19"> 19
<option value="20"> 20
<option value="21"> 21
<option value="22"> 22
<option value="23"> 23
<option value="24"> 24
<option value="25"> 25
<option value="26"> 26
<option value="27"> 27
<option value="28"> 28
<option value="29"> 29
<option value="30"> 30
</select>
</ul></td>
</tr><tr>
</tr>
</table>
<br /><br />
<input type="submit" value="Add New">
<input type="reset" value="Cancel">
</form>
<HR>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=mydatabase; Uid=admin; Pwd=admin;"
sql= sql & "INSERT INTO tb_userinfo ("
sql=sql & "NickName, Email, FirstName, LastName, password, Address, Age, DateIssued)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("NickName") & "',"
sql=sql & "'" & Request.Form("Email") & "',"
sql=sql & "'" & Request.Form("FirstName") & "',"
sql=sql & "'" & Request.Form("LastName") & "',"
sql=sql & "'" & Request.Form("password") & "',"
sql=sql & "'" & Request.Form("address") & "',"
sql=sql & "'" & Request.Form("Age") & "',"
sql=sql & "'" & Request.Form("Date") & "')"
on error resume next
'IF Request.form("NickName") = "" THEN
'Response.Write("Write your Nickname")
'END IF
conn.Execute sql
conn.close
%>
</body>
</html>
