<%
Sub UpdateDatabase()
RSAlumni("InstitutionAutoID") = Request("InstitutionAutoID")
RSAlumni("Name") = Request("Name")
RSAlumni("Address") = Request("Address")
RSAlumni("City") = Request("City")
RSAlumni("Pincode") = Request("Pincode")
RSAlumni("State") = Request("State")
RSAlumni("Country") = "India"
RSAlumni("Phone") = Request("Phone")
RSAlumni("EMailID") = Request("EMailID")
RSAlumni("Homepage") = Request("Homepage")
RSAlumni("UserName") = Request("UserName")
RSAlumni("HintQuestion") = Request("HintQuestion")
RSAlumni("Answer") = Request("Answer")
RSAlumni("YearOfPassing") = Request("YearOfPassing")
RSAlumni("Gender") = Request("Gender")
RSAlumni("DateOfBirth") = Request("DD") & "/" & Request("MM") & "/" & Request("YY")
RSAlumni("CurrentOccupation") = Request("CurrentOccupation")
RSAlumni("Designation") = Request("Designation")
RSAlumni("UserPassword") = Request("UserPassword")
RSAlumni("Information") = Request("Information")
If(Request("AccessType")) Then
RSAlumni("AccessType") = 1
Else
RSAlumni("AccessType") = 0
End If
RSAlumni("PhotoURL") = Request("PhotoURL")
RSAlumni("Department") = Request("Department")
RSAlumni.Update
RSAlumni.Close
End Sub
SET RSAlumni = Server.CreateObject("ADODB.Recordset")
ActionValue=Request.QueryString("ActionValue")
If (Request("Action") = "InsertData") Then
MYSQL="SELECT * FROM tblAlumni WHERE UserName='" & Request("UserName") &"'"
SET RSUser=DBConn.Execute(MYSQL)
If(RSUser.EOF) Then
MYSQL = "SELECT * FROM tblAlumni"
RSAlumni.Open MYSQL,DBConn,2,3
RSAlumni.AddNew
UpdateDatabase()
Response.Redirect("AlumniRegistration.asp?Action=RecordInserted&Name="&Request("Name")&"&AlumniUserName="&AlumniUserName)
Else
Response.Redirect("AlumniRegistration.asp?Action=Error&Name="&Request("UserName"))
End If
ElseIf (Request("Action")="DisplayData") Then
If(Session("AlumniID")="") Then
Response.Redirect("AlumniDefault.asp")
End If
MYSQL= "SELECT * FROM tblAlumni WHERE AlumniAutoID=" & Session("AlumniID")
RSAlumni.Open MYSQL,DBConn,2,3
AlumniID = Request.QueryString("AlumniID")
InstitutionAutoID = RSAlumni("InstitutionAutoID")
Name = RSAlumni("Name")
Address = RSAlumni("Address")
City = RSAlumni("City")
Pincode = RSAlumni("Pincode")
State = RSAlumni("State")
Country = RSAlumni("Country")
Phone = RSAlumni("Phone")
EMailID = RSAlumni("EMailID")
Homepage = RSAlumni("Homepage")
UserName = RSAlumni("UserName")
UserPassword = RSAlumni("UserPassword")
HintQuestion=RSAlumni("HintQuestion")
Answer=RSAlumni("Answer")
YearOfPassing = RSAlumni("YearOfPassing")
Gender = RSAlumni("Gender")
DDay=Day(RSAlumni("DateOfBirth"))
DMonth=Month(RSAlumni("DateOfBirth"))
DYear=Year(RSAlumni("DateOfBirth"))
CurrentOccupation = RSAlumni("CurrentOccupation")
Designation = RSAlumni("Designation")
Information = RSAlumni("Information")
AccessType = RSAlumni("AccessType")
PhotoURL = RSAlumni("PhotoURL")
Department = RSAlumni("Department")
RSAlumni.Update
RSAlumni.Close
ActionValue="UpdateData"
ElseIf (Request("Action")="UpdateData") Then
MYSQL="SELECT * FROM tblAlumni WHERE UserName='" & Request("UserName") &"' AND AlumniAutoID <> " & Session("AlumniID")
SET RSUser=DBConn.Execute(MYSQL)
If(RSUser.EOF) Then
MYSQL= "SELECT * FROM tblAlumni WHERE AlumniAutoID=" & Session("AlumniID")
RSAlumni.Open MYSQL,DBConn,2,3
UpdateDatabase()
Response.Redirect("AlumniRegistration.asp?Action=RecordUpdated&Name="&Request("Name"))
Else
Response.Redirect("AlumniRegistration.asp?Action=Error&Name="&Request("UserName"))
End If
End If
%>
<% If (Request("Action")="" OR Request("Action")="DisplayData") Then %>
|
|
<% End If
If(Request("Action")="RecordInserted") Then %>
|
|
Details
of <%=Request("Name")%>
added
successfully
OK |
| |
| |
| |
|
<% End If
If(Request("Action")="RecordUpdated") Then %>
| |
|
Details
of <%=Request("Name")%>
updated
successfully
OK |
| |
| |
| |
|
<% End If
If(Request("Action")="Error") Then %>
| |
|
User
Name <%=Request("Name")%>
already
exist. Please
Enter different
User Name
OK |
| |
| |
| |
|
<% End If %>
|
|
|
|
|
|
|
|
|
|
