now i have done this for doing on the same page all the things. now problem is solved but pls let me know if i can do better that this.(pls dont check for nameing conventions ..its my learning application...i know it is little difficult to understand due ot lack of that/...)
pls consider...
thnx again
<html>
<head >
<title>Move </title>
<script language=javascript >
function DateExists(value)
{
d = new Date()
var year = value.substring(value.lastIndexOf("/")+1);
var date = value.substring(value.indexOf("/")+1 , value.lastIndexOf("/"));
var month = value.substring(0,value.indexOf("/"));
if( month == 4 || month == 6 || month == 9 || month == 11 )
{
if(date > 30) { return false; }
else {return true;}
}
else if (month == 2)
{
if ( year%4 == 0 )
{
if (date > 29) { return false;}
else {return true;}
}
else
{
if (date > 28) { return false;}
else { return true; }
}
}
else if( month ==1 || month == 3|| month ==5 || month == 7 || month == 8 || month == 10 || month == 12)
{
if ( date >31) { return false; }
else {return true; }
}
}
function validate()
{
var str=""
if(document.getElementById("name").value=="")
{
str+="Name can not be blank \n"
}
if (document.getElementById("dob").value=="")
{
str+="Please enter date of birth \n"
}
else
{
var RegularExpression = /^([0][1-9]|[1-9]|[1][0-2])(\/)([0][1-9]|[1-9]|[1-2][0-9]|[3][0-1])(\/)([0-9]{4})$/;
if (RegularExpression.test(document.getElementById("d ob").value)!=true)
{
str+="Please enter a correct value in the date field \n"+ "the date must be in the format MM/DD/YYYY \n"
}
}
if (DateExists(document.getElementById("dob").value)= =false)
{
str+="Date entered as date of birth do not exist \n"
}
if (document.getElementById("Male").checked == false && document.getElementById("Female").checked == false )
{
str+="Please select gender \n"
}
value=document.getElementById("dob").value
var year = value.substring(value.lastIndexOf("/")+1);
if (d.getFullYear() < parseInt(year)+ parseInt(18))
{
str+="age must be greater than 18 years \n"
}
if(document.getElementById("address").value=="")
{
str+="Address can not be blank \n"
}
if(str!="")
{
alert("Please correct the following(s) : \n\n" + str)
return false
}
}
</script>
<% if (session("count")="" or session("count")=0)then
session("count")=0
end if
dim total
total = 0
set Conn = server.createobject("adodb.connection")
Conn.Open "driver={sql server}; server=SERVER; database=DATABASE; uid=UID; pwd=PASSWORD;"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from TABLE ", conn
do while not rs.EOF
rs.MoveNext
total=total+1
loop
rs.Close
rs.Open "Select * from TABLE ", conn
if (request.Form("button")="next" and rs.EOF<>true) then
if( session("count")<total-1) then
session("count")=session("count")+1
rs.Move(session("count"))
else
rs.Move(total-1)
response.Write("you are on last record")
end if
// response.Write(rs("name"))
end if
if (request.Form("button")="prev" and rs.EOF<>true) then
if(session("count")>0) then
session("count")=session("count")-1
rs.Move(session("count"))
else
rs.Move(session("count"))
Response.Write("you are on first record")
end if
// response.Write(rs("name"))
end if
if (request.Form("button")="First" and rs.EOF<>true) then
session("count")=0
rs.Move(session("count"))
// response.Write(rs("name"))
end if
if (request.Form("button")="Last" and rs.EOF<>true ) then
session("count")=total-1
rs.Move(session("count"))
// response.Write(session("name"))
end if
%>
</head>
<body style="font-family:Verdana; font-size:smaller" >
<form name=form id= form method=post style="font-family:Verdana; font-size:smaller" >
<table style="font-family:Verdana; font-size:10pt " >
<tr>
<td> Name :</td><td><input type=text name=name id=name value = "<%if(rs.eof<>true)then response.write(rs("name"))end if%>" style="width: 296px" /></td> <br />
</tr>
<tr>
<td>DOB :</td><td><input type=text name=dob id=dob value = "<%if(rs.eof<>true)then response.write(rs("dob"))end if%>" style="width: 296px" /></td><br />
</tr>
<tr>
<td>Gender :</td><td><input type=radio value=Male <%if(rs.eof<>true) then if(rs("gender")="Male") then response.write("checked") end if end if%> id=Male name=Gender style="width: 25px" />Male
<input type=radio value=Female <%if(rs.eof<>true) then if(rs("gender"))="Female" then response.write("checked") end if end if%> id=Female name=Gender style="width: 25px" /> Female</td> <br />
</tr>
<tr>
<td> Degree:</td><td> <select style="width: 300px" id= ddlDegree name=degree>
<option value="BE"<%if(rs.eof<>true) then if(rs("degree")="BE") then response.write("Selected") end if end if%> >BE</option>
<option value="B.TECH" <%if(rs.eof<>true) then if(rs("degree")="B.TECH") then response.write("Selected") end if end if%>>B TECH</option>
<option value="MCA" <%if(rs.eof<>true) then if(rs("degree")="MCA") then response.write("Selected") end if end if%>>MCA</option>
<option value="MBA" <%if(rs.eof<>true) then if(rs("degree")="MBA") then response.write("Selected") end if end if%>>MBA</option>
<option value="M.TECH"<%if(rs.eof<>true) then if(rs("degree")="M.TECH") then response.write("Selected") end if end if%>>M TECH</option>
</select></td>
</tr>
<TR>
<td>Address:</td><td> <input type=text name="address" id=address value = "<%if(rs.eof<>true)then response.write(rs("address"))end if%>" style="width: 298px" /></td><br />
</TR>
<tr><td></td><td>
<input type=submit name=button id=btnFirst value="First" style="width: 70px" />
<input type=submit name=button id=btnPrev value="prev" style="width: 70px" />
<input type=submit name=button id=btnNext value="next" style="width: 70px" />
<input type=submit name=button id=btnLast value="Last" style="width: 70px" />
<input type=submit name=button id=btnInsert value="Insert" onclick="return validate()" style="width: 70px" /></td>
</TR>
</table>
</form>
<br />
</body>
</html>
<%
rs.Close
rs.Open "Select * from TABLE ", conn
do while not rs.EOF
for each x in rs.fields
response.write(x.name )
response.write(" = ")
response.write(x.value)
response.Write("<br>")
next
rs.MoveNext
Response.Write("<br><br>")
loop
rs.Close
conn.Close
%>
<%
if (request.Form("button")="Insert") then
set Conn = server.createobject("adodb.connection")
Conn.Open "driver={sql server}; server=SERVER; database=DATABASE; uid=UID; pwd=PASSWORD;"
sql="INSERT INTO info VALUES"
sql=sql & "( '" & Request.Form("Name") & "',"
sql=sql & "'" & Request.form("dob") & "',"
sql=sql & "'" & Request.form("gender") & "',"
sql=sql & "'" & Request.form("degree") & "',"
sql=sql & "'" & Request.form("address") & "')"
conn.Execute sql
conn.close
Response.redirect("Move.asp")
end if
%>
19
