Thursday, 5 December 2013

Classic ASP Page and Database connection String <% //DECLARATION Dim strcon,sqry,StrGender,cmd //connection string strcon = "Provider=SQLOLEDB;Data Source=ServerName;User Id=DatabaseName;Password=Databasepassword" //Establish Connection set conn = server.CreateObject("ADODB.Connection") conn.ConnectionString = strcon conn.Open() %> Test Page
<% IF (REQUEST.QueryString("hid") = "Y") THEN RNAME = REQUEST.QueryString("NAM") REMAIL = REQUEST.QueryString("EM") Radd = REQUEST.QueryString("Radd") Rph = REQUEST.QueryString("Rph") Rdob = REQUEST.QueryString("Rdob") Rgen = REQUEST.QueryString("Rgen") Red = REQUEST.QueryString("Red") Rint = REQUEST.QueryString("Rint") 'SQL ="EXEC Reg_sample_Asp'Nagarajan','nagarajan@gmail.com','Nkl','9842946063','23/04/1996','Male','Bsc','DotNet'" 'response.write SQL 'Set rs= conn.execute(SQL) set cmd=SERVER.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText="Reg_sample_Asp" cmd.CommandType =4 cmd.Parameters.Append cmd.CreateParameter ("@RegName", 200, 1, 30,RNAME) cmd.Parameters.Append cmd.CreateParameter ("@RegEmail", 200, 1, 40,REMAIL) cmd.Parameters.Append cmd.CreateParameter ("@RegAddress", 200, 1, 100,Radd) cmd.Parameters.Append cmd.CreateParameter ("@RegPhno", 200, 1, 10,Rph) cmd.Parameters.Append cmd.CreateParameter ("@RegDOB", 200, 1, 12,Rdob) cmd.Parameters.Append cmd.CreateParameter ("@RegGender", 200, 1, 10,Rgen) cmd.Parameters.Append cmd.CreateParameter ("@RegEduction", 200, 1, 10,Red) cmd.Parameters.Append cmd.CreateParameter ("@RegFieldOfInt", 200, 1, 10,Rint) set rs=cmd.execute 'SQL ="EXEC Reg_sample_Asp'Nagarajan','nagarajan@gmail.com','Nkl','9842946063','23/04/1996','Male','Bsc','DotNet'" 'SQL = "INSERT into TblRegistration (RegName,RegEmail,RegAddress,RegPhno,RegDOB,RegGender,RegEduction," 'SQL = SQL & "RegFieldOfInt)" 'SQL = SQL & " VALUES " 'SQL = SQL & "('" & RNAME & "','" & REMAIL & "'," 'SQL = SQL & "'" & Radd & "','" & Rph & "'," 'SQL = SQL & "'" & Rdob & "','" & Rgen & "'," 'SQL = SQL & "'" & Red & "'," 'SQL = SQL & "'" & Rint & "')" 'response.write SQL 'Set rs= conn.execute(SQL) END IF %>
Online Registration
Name :
E-mail :
Address :
Phone No :
Date Of Birth :
Gender : Male Female
Eduction Qualification :
Field of Intrest : Dot Net Java C++
 
<% //CREATE RECORDSET set rs = SERVER.CreateObject("ADODB.RecordSet") sqry="exec Reg_sample_Selectquery" //SQL QUERY// 'sqry = "Select RegName,RegEmail,RegAddress,RegPhno,RegDOB,RegGender,RegEduction from TblRegistration" rs.Open sqry,conn if not rs.EOF then //Fetch data using recordset do while not rs.EOF %> <% if RS.Fields("RegGender") = "M" THEN StrGender = "MALE" ELSE StrGender = "FEMALE" end if %> <% rs.MoveNext loop end if %>
Name E-mail Address Phone No DOB Gender Eduction Qualification
<%= RS.Fields("RegName")%> <%= RS.Fields("RegEmail")%> <%= RS.Fields("RegAddress")%> <%= RS.Fields("RegPhno")%> <%= RS.Fields("RegDOB")%><%= StrGender%> <%= RS.Fields("RegEduction")%>

No comments:

Post a Comment