bhavyajyothinat 0 Newbie Poster

registration.asp:::

<% connection%>
<%if request.QueryString("insert")<>"" then
  'if request.QueryString("rbnMale")=="on" then
'   gender="Male"
'   else if request.QueryString("rbnFemale")=="on" then
'   gender="Female"
'  end if
 gender="male"
 qry="insert into registration(Username,Password,FirstName,LastName,Address,Place,LandPhone,MobilePhone,Email,Gender,Qualification)values('"+request.Form("txtUsername")+"','"+request.Form("txtPassword")+"','"+request.Form("txtFirstName")+"','"+request.Form("txtLastName")+"','"+request.Form("txtAddress")+"','"+request.Form("txtPlace")+"',"+request.Form("txtlandPhone")+","+request.Form("txtMobile")+",'"+request.Form("txtEmail")+"','"+gender+"','"+request.Form("txtQualification")+"')"
 
CON.Execute(qry)

Response.Redirect("ListUsers.asp")
end if

%>

<form id="form2" name="form2" method="post" action="Registration.asp?insert=1" >
  
  <table width="286" border="1" align="center">
  <tr>
    <td width="87">UserName:</td>
    <td width="183"><label>
      <input name="txtUserName" type="text" id="txtUserName" />
    </label></td>
  </tr>
  <tr>
    <td>Password:</td>
    <td><label>
      <input type="password" name="txtPassword" id="txtPassword" />
    </label></td>
  </tr>
  <tr>
    <td>FirstName:</td>
    <td><label>
      <input type="text" name="txtFirstName" id="txtFirstName" />
    </label></td>
  </tr>
  <tr>
  <td>LastName:</td>
  <td><label>
    <input name="txtLastName" type="text" id="txtLastName"/>
  </label></td>
  </tr>
  <tr>
  <td>Address:  </td>
  <td><label>
    <textarea name="txtAddress" id="txtAddress"></textarea>
  </label></td>
  </tr>
  <tr>
  <td>Place:  </td>
  <td><label>
    <input type="text" name="txtPlace" id="txtPlace" />
  </label></td>
  </tr>
  <tr>
    <td>Country:</td>
    <td><label>
      <select name="lstCountry" id="lstCountry">
        <option>India</option>
        <option>China</option>
        <option>USA</option>
      </select>
    </label></td>
  </tr>
  <tr>
    <td>LandPhone:</td>
    <td><label>
      <input type="text" name="txtlandPhone" id="txtlandPhone" />
    </label></td>
  </tr>
  <tr>
    <td>Mobile:</td>
    <td><label>
      <input type="text" name="txtMobile" id="txtMobile" />
    </label></td>
  </tr>
  <tr>
    <td> Email:</td>
    <td><label>
      <input type="text" name="txtEmail" id="txtEmail" />
    </label></td>
  </tr>
  <tr>
    <td>Gender:</td>
    <td><label>
      <input type="radio" name="" id="rbnMale" value="rbnMale" />
    Male 
    <input type="radio" name="radio" id="rbnFemale" value="rbnFemale" />
    Female<br />
    </label></td>
  </tr>
  
  <tr>
    <td>Qualification:</td>
    <td><label>
      <input type="text" name="txtQualification" id="txtQualification" />
    </label></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><label>
      <input type="submit" name="btnSubmit" id="btnSubmit" value="Submit"/>
    </label></td>
  </tr>
</table>
  

</form>

login:(try)::
<%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Session("UserLoggedIn") = ""
If Request.Form("login") = "true" Then
CheckLogin
Else
ShowLogin
End If

Sub ShowLogin
%>

<form name="form1" action="login.asp" method=post>
User Name : <input type=text name=username><br>
Password : <input type=password name=userpwd><br>
<input type=hidden name=login value=true>
<input type=submit value="Login">
</form>
>%
End Sub

Sub CheckLogin
If LCase(Request.Form("username")) = "guest" And LCase(Request.Form("userpwd")) = "guest" Then
Session("UserLoggedIn&quot) = "true"
Response.Redirect "protectedpage.asp"
Else
Response.Write("Login Failed.<br><br>")
ShowLogin
End If
End Sub
%>
list users:

<%connection%>
<%
'response.Write(request.QueryString("id"))
SQL="Select * from registration WHERE UserId=" & request.QueryString("id")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.open SQL ,CON

if Not RS.EOF then
uname=RS("UserName")
		fname=RS(3)
		lname=RS(4)
		addrs=RS(5)
		place=RS(6)
		country=RS(7)
		lphone=RS(8)
		mphone=RS(9)
		email=RS(10)
		gender=RS(11)
		qualification=RS(13)
		

end If
'Response.Write("uname:" & uname)
'response.End()


%>
<form id="form2" name="form2" method="post" action="Editing1.asp?changes=1" >
  
  <table width="286" border="1" align="center">
  <tr>
    <td width="87">UserName:</td>
    <td width="183"><label>
      <input name="txtUserName" type="text" id="txtUserName" value="<%=uname %>" />
    </label></td>
  </tr>
  <tr>
    <td>Password:</td>
    <td><label>
      <input type="password" name="txtPassword" id="txtPassword" />
    </label></td>
  </tr>
  <tr>
    <td>FirstName:</td>
    <td><label>
      <input type="text" name="txtFirstName" id="txtFirstName" value="<%=fname%>" />
    </label></td>
  </tr>
  <tr>
  <td>LastName:</td>
  <td><label>
    <input name="txtLastName" type="text" id="txtLastName" value="<%=lname%>"/>
  </label></td>
  </tr>
  <tr>
  <td>Address:  </td>
  <td><label>
    <textarea name="txtAddress" id="txtAddress"><%=addrs%></textarea>
  </label></td>
  </tr>
  <tr>
  <td>Place:  </td>
  <td><label>
    <input type="text" name="txtPlace" id="txtPlace" value="<%=place%>"/>
  </label></td>
  </tr>
  <tr>
    <td>Country:</td>
    <td><label>
     <input type="text" name="txtCountry" id="txtCountry" value="<%=country%>" />
    </label></td>
  </tr>
  <tr>
    <td>LandPhone:</td>
    <td><label>
      <input type="text" name="txtlandPhone" id="txtlandPhone" value="<%=lphone%>"/>
    </label></td>
  </tr>
  <tr>
    <td>Mobile:</td>
    <td><label>
      <input type="text" name="txtMobile" id="txtMobile" value="<%=mphone%>" />
    </label></td>
  </tr>
  <tr>
    <td> Email:</td>
    <td><label>
      <input type="text" name="txtEmail" id="txtEmail" value="<%=email%>"/>
    </label></td>
  </tr>
  <tr>
    <td>Gender:</td>
    <td><label>
     <input type="text" name="txtGender" id="txtGender" value="<%=gender%>"/>
    </label></td>
  </tr>
  
  <tr>
    <td>Qualification:</td>
    <td><label>
      <input type="text" name="txtQualification" id="txtQualification" value="<%=qualification%>"/>
    </label></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><label>
      <input type="submit" name="btnSubmit" id="btnSubmit" value="Submit"/>
    </label></td>
  </tr>
</table>
  

</form>
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.