Connection String Dim con = New SqlConnection("Data Source=[Link];Initial Catalog=chitra;Persist Security Info=True;User ID=sa;password=T102t2a1l") con.

Open() >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CONNECTION STRING IN WINDOWS <connectionStrings> <!--<add name="[Link]" connectionString="Data Source=[Link];Initial Catalog=Cosmopolitan;Persist Security Info=True;User ID=sa;Password=T102t2a1l" providerName="[Link]" />--> <add name="[Link]" connectionString="Data Source=LAPTOP\TOTAL;Initial Catalog=Cosmopolitancorrectmodifyingdone00;Persist Security Info=True;User ID=sa;Password=Tcsipl123" providerName="[Link]" /> <!--<add name="[Link]" connectionString="Data Source=SRV01;Initial Catalog=Cosmopolitancorrectmodifyingdone00;Persist Security Info=True; User ID=sa;password=cosmo123" providerName="[Link]"/>--> </connectionStrings> <appSettings> <add key="CosmoConnectionstring" value="Data Source=LAPTOP\TOTAL;Initial Catalog=Cosmopolitancorrectmodifyingdone00;User ID=sa;password=Tcsipl123" /> <!--<add key="CosmoConnectionstring" value="Data Source=[Link];Initial Catalog=Cosmopolitan;User ID=sa;password=T102t2a1l" />--> <!--<add key ="CosmoConnectionstring" value ="Data Source=SRV01;Initial Catalog=Cosmopolitancorrectmodifyingdone00;User ID=sa;password=cosmo123"/>--> <add key="[Link]" value="" /> </appSettings> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> [Link]\totalTO SELECT DATA FROM DB AND BIND TO DROP DOWN LIST Dim que As String Dim ds As New DataSet que = "select distinct BranchName from BranchMaster" adp = New SqlDataAdapter(que, con) [Link](ds) [Link]() [Link]("--Select--") If [Link](0).[Link] > 0 Then For i As Integer = 0 To [Link](0).[Link] - 1 [Link]([Link](0).Rows(i)(0).ToString) Next End If

TO SELECT DATA FROM DB AFTER CHECKING THE CONDITION FROM DROPDOWNLIST AND BIND TO OTHER DROP DOWN LIST Dim que1 As String Dim ds1 As New DataSet que1 = "select distinct USN from StudentMaster where Semister='" & [Link] & "' and Branch='" & [Link] & "'" adp = New SqlDataAdapter(que1, con) [Link](ds1) [Link]() [Link]("--Select--") If [Link](0).[Link] > 0 Then For i As Integer = 0 To [Link](0).[Link] - 1 [Link]([Link](0).Rows(i)(0).ToString) Next End If TO INSERT DATA IN TO DB FROM DROPDOWNLIST Dim que As String que = "INSERT INTO StudentResult" & "(Semister,Branch,USN,Name,MaxMarks,MarksScored,Percentage,NoOfBacklogs) VALUES " & "('" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "')" Dim cmd As New SqlCommand(que, con) cmd = New SqlCommand(que, con) [Link]() TO SELECT DATA FROM DB WITH CONDITION AND BIND IT TO THE TEXTBOX Dim que, que1 As String Dim ds, ds1 As New DataSet que = "Select Name,Branch from StudentMaster where USN='" & [Link] & "'" adp = New SqlDataAdapter(que, con) [Link](ds) [Link] = [Link](0).Rows(0)("Name") [Link] = [Link](0).Rows(0)("Branch") TO SELECT DATA FROM DB WITH CONDITION AND BIND IT TO THE GRIEDVIEW que1 = "select * from StudentResult where USN='" & [Link] & "'" adp = New SqlDataAdapter(que1, con) [Link](ds1) [Link] = ds1 [Link]() TO SELECT DATA FROM DB AND BIND IT TO THE LABEL IN GRIEDVIEW adp = New SqlDataAdapter _ ("Select * from StudentRegistration", con) [Link](ds)

If ([Link](0).[Link] > 0) Then Dim x, y As Integer y = [Link](0).[Link] For x = 0 To y - 1 Dim UserID, Name As String 'Dim id As Integer UserID = [Link](x).Cells(0).Text Name = [Link](x).Cells(1).Text Dim box1 As TextBox = [Link](x).Cells(2).FindControl("TextBox1") Dim box2 As TextBox = [Link](x).Cells(3).FindControl("TextBox2") Dim box3 As TextBox = [Link](x).Cells(4).FindControl("TextBox3") Dim box4 As TextBox = [Link](x).Cells(5).FindControl("TextBox4") Dim box5 As TextBox = [Link](x).Cells(6).FindControl("TextBox5") Dim box6 As TextBox = [Link](x).Cells(7).FindControl("TextBox6") Dim box7 As TextBox = [Link](x).Cells(8).FindControl("TextBox7") If [Link] = "" Then [Link] = 0 End If If [Link] = "" Then [Link] = 0 End If TO BIND DATA FROM DB IN DROPDOWNLIST BY CHEACKING THE VALUE OF OTHER DROPDOWNLIST Dim str2 As String = "select Subject from BranchSub where Branch='" & [Link] & "' and Semester='" & [Link] & "'" adp1 = New SqlDataAdapter(str2, con) [Link](ds1) [Link] = ds1 [Link] = "Subject" [Link] = "Subject" [Link]() To STORE DATA SET VALUE INTO VARIABLE Dim str2 As String = "select Subject from BranchSub where Branch='" & [Link] & "' and Semester='" & [Link] & "'" adp1 = New SqlDataAdapter(str2, con) [Link](ds1) s1 = [Link](0).Rows(0)("Subject").ToString s2 = [Link](0).Rows(1)("Subject").ToString s3 = [Link](0).Rows(2)("Subject").ToString s4 = [Link](0).Rows(3)("Subject").ToString s5 = [Link](0).Rows(4)("Subject").ToString

s6 = [Link](0).Rows(5)("Subject").ToString s7 = [Link](0).Rows(6)("Subject").ToString s8 = [Link](0).Rows(7)("Subject").ToString

checking the data is paresent in db or not if yes then display msgbox

Dim str As String Dim i As Integer str = "select * from mark" adp = New SqlDataAdapter(str, con) [Link]() [Link](ds) If [Link](0).[Link] <> 0 Then For i = 0 To [Link] - 1 If [Link](i).Cells(0).Text = [Link](0).Rows(i)("USN").ToString And [Link] = [Link](0).Rows(i)("Subject").ToString Then Dim s As String = [Link](0).Rows(i) ("USN").ToString MsgBox("Marks Already Entered for" + s) [Link](i).Cells(0).Text = "" Exit Sub End If Next [Link]() End If >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FORGET PASSWORD OPTION WITH SENDING THE PASSWORD TO THE MAILID Try

[Link] = [Link]("connstring") If [Link] = [Link] Then strconnection = [Link]("conctn") [Link] = strconnection [Link]() End If Dim str1 As String = "Select * FROM CompanyRegistration where Username= '" + [Link] + "' and Emailid = '" + [Link] + "'" cmd = New SqlCommand(str1, con) da = New SqlDataAdapter ds = New [Link] [Link] = cmd [Link](ds) If [Link](0).[Link] > 0 Then Try subject1 = "Your account details" body1 = "Dear Sir/Madam,<br/><br/>" + "Here are the login details of your account.<br/><br/> <b> Username:</b>" + [Link] + "<br/> <b> Password:</b>" + [Link](0).Rows(0)("Password").ToString + "<br/><br/>With Regards, <br/>Total Computer Software (India) Pvt Ltd" 'body1 = "Dear Sir/Madam,<br/><br/>" + "Here are the login details of your account.<br/><br/> <b> Username :</b> " + [Link] + "<br/> <b>Password : </b> " + [Link](0).Rows(0)("Password").ToString + "<br/><br/><b>Please Note:</b> Name and Password are case sensitive. <br/><br/> With Regards, <br/>Total Computer Software (India) Pvt Ltd"

Using message As New MailMessage(mailServerName, [Link], subject1, body1) [Link] = True Dim mailClient As New SmtpClient() [Link] = mailServerName [Link] = True [Link] = [Link] 'Send delivers the message to the mail server -comment [Link](message) [Link] = " Password has been sent to your mail " [Link] = "" [Link] = "" End Using Catch ex As SmtpException Throw New ApplicationException("SmtpException has Occured: " + [Link]) Catch ex As Exception Throw ex End Try End If Catch ex As Exception End Try End Sub End Class >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOGIN PAGE Str = "select StudentID,Password from StudentRegistration where StudentID='" & [Link] & "'and Password='" & [Link] & "'" cmnd = New SqlCommand(Str, conctn) adpter = New SqlDataAdapter ds = New [Link] [Link] = cmnd [Link](ds) If [Link](0).[Link] > 0 Then Session("ID") = [Link](0).Rows(0)(0).ToString [Link]([Link], True) [Link]("~\Student\[Link]") Else [Link] = True [Link] = "Invalid Username or Password" End If >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TO CHANGE THE PASSWORD strsql = "Select Password from CompanyRegistration where CompanyID = '" + Session("ID") + "'" cmd = New SqlCommand(strsql, con) da = New SqlDataAdapter ds = New [Link] [Link] = cmd [Link](ds) If [Link](0).[Link] > 0 Then ' MsgBox([Link](0).Rows(0)(0).ToString)

If ([Link] = [Link](0).Rows(0)(0).ToString) Then If ([Link] = [Link]) Then strsql = "update CompanyRegistration set Password='" + [Link] + "'where CompanyID = '" + Session("ID") + "' and Password='" + [Link] + "'" cmd1 = New SqlCommand(strsql, con) [Link]() [Link] = True [Link] = "Updated Successfully" Exit Sub Else [Link] = "Password does not match" Exit Sub End If End If End If >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> JAVA SCRIPT CODE TO VALIDATE DATE function dateVal(dd,mm,yyyy) { mm = mm-1; var dt = new Date() [Link](yyyy,mm,dd) if([Link]() != yyyy || [Link]() != dd || [Link]() != mm) { return 0; } else { return 1; } } function validatedt(oSrc, args) { var dd = [Link]("txtanndate").value var mm = [Link]("txtanndate").value var yyyy = [Link]("txtanndate").value var dd = parseInt([Link](0,2),10); var mm = parseInt([Link](3,5),10); var yyyy = parseInt([Link](6,10),10); var dt = new Date(); var dt1 = new Date(); [Link](yyyy,mm,dd); [Link](yyyy,mm,dd); var dts1 = [Link]() + "/" + [Link]() +"/" + [Link]() var dts2 = [Link]() + "/" + [Link]() +"/" + [Link]() alert(dts1); alert(dts2); if(dt < dt1 ) { [Link] = true; alert("Appropriate Date"); }

else { [Link] = false; alert("dont Submit"); alert([Link]()); return false; } } >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>. NAMESPACE Imports [Link] Imports System Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] Imports [Link] >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>> CONNECTION STRING 1> <appSettings> <add key="conctn" value="Initial catalog=PlacementPort;Data Source=[Link];user id = sa; password = T102t2a1l"/> <add key="CrystalImageCleaner-AutoStart" value="true"/> <add key="CrystalImageCleaner-Sleep" value="60000"/> <add key="CrystalImageCleaner-Age" value="120000"/> </appSettings> <connectionStrings> <add name="ERPConnectionString" connectionString="Data Source=[Link];Initial Catalog=PlacementPort;Persist Security Info=True;User ID=sa;Password=T102t2a1l" providerName="[Link]"/> <add name="ERPConnectionString1" connectionString="Data Source=[Link];Initial Catalog=PlacementPort;Persist Security Info=True;User ID=sa;Password=T102t2a1l" providerName="[Link]"/> </connectionStrings> If [Link] = [Link] Then strconnection = [Link]("conctn") [Link] = strconnection

[Link]() End If 2> <connectionStrings> <add name="VPConnectionString" connectionString="Data Source=[Link];Initial Catalog=Educational;Persist Security Info=True;User ID=sa;Password=T102t2a1l" providerName="[Link]"/> </connectionStrings> con = New SqlConnection([Link]("VPConnectionString").To String) If [Link] = [Link] Then [Link]() End If >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TO WRITE THE SELECT OR ANY THING IN 1ST PLACE IN DROPDOWNLIST [Link](0, "Select") [Link](0, "Day") >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>> TO UPLOAD RESUM OR FILE OR DOCUMENT Protected Sub Button1_Click(ByVal sender As Object, ByVal e As [Link]) Handles [Link] Dim folder As String Dim res As String Dim ext As String = [Link]([Link]) If [Link] = ".doc" Or [Link]() = ".pdf" Or [Link]() = ".docx" Or [Link]() = ".txt" Then folder = [Link]("~\StudentResume\") [Link](folder & Session("ID") & ext) res = ("~\StudentResume\" & Session("ID") & ext) Else '[Link] = MsgBox("Please Upload Proper Document") Exit Sub End If

End Sub TO UPDATE THE TABLE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> sqlString = "update internal set qst21='" & qst1 & "',qst22='" & qst2 & "',qst23='" & qst3 & "',qst24='" & qst4 & "',qst25='" & qst5 & "',qst26='" & qst6 & "',qst27='" & qst7 & "',total2='" & add & "'where usn='" & UserID & "'and sub='" & [Link] & "'" cmd = New SqlCommand(sqlString, con) [Link]() TO SELECT DATA FROM DB AND BIND IT TO THE TEXTBOX >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.

Dim que As String Dim adp As New SqlDataAdapter Dim ds As New DataSet que = "select * from EmployeeData where Employee_ID='" & [Link] & "'" adp = New SqlDataAdapter(que, con) [Link](ds) [Link] = [Link](0).Rows(0)("FirstName") [Link] = [Link](0).Rows(0)("MiddleName") [Link] = [Link](0).Rows(0)("LastName") TO SELECT DATA FROM DB AND BIND TO GRIDVIEW >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Dim ds1 As New DataSet Dim st As String st = "Select Qualification as [Course],Institution as [Institution], University as [University],Specialization as [Specialization],YearofPassing as [Year of Passing],Grade as [Grade]from education where EmpId='" & [Link] & "'" adp = New SqlDataAdapter(st, con) [Link](ds1) [Link] = ds1 [Link]() TO VALIDATE WHETHER TEXTBOX CONTAIN DATA OR NOT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> If [Link] = "" Then [Link] = True [Link] = "Enter Coures Name" [Link]() Exit Sub End If TO VALIDATE WHETHER DROPDOWNLIST IS SELECTED OR NOT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> If [Link] = "--Select--" Then [Link] = True [Link] = "Select Year of Passing" [Link]() Exit Sub End If TO GET THE SYSTEM DATE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ds = [Link]() date1 = [Link](0).Rows(0).Item(0).ToString TO VALIDATE WHETHER THE DATA WAT V R ENTERING IS ALL READY THERE IN DB OR NOT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>> Dim str As String str = "select EmpId,Qualification from education where EmpId='" & [Link] & "'and Qualification='" & [Link] & "'"

ds = New DataSet ds = [Link](str) If [Link](0).[Link] = 1 Then [Link] = True [Link] = "Data Already Exits" Exit Sub End If TO SELECT DATA FROM DB AND BIND TO THE DDL >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>> Sub bindstate() Dim constring As String constring = [Link]("ConnString").ConnectionStrin Dim con As New SqlConnection(constring) Dim cmdselect As New SqlCommand() Dim str As String str = "select distinct StateName from States " Dim adp As SqlDataAdapter Dim ds As New DataSet adp = New SqlDataAdapter(str, con) [Link](ds) [Link] = "StateName" [Link] = ds [Link]() [Link](0, "--Select--") End Sub FUNCTION TO CHECK THE EXTENTION OF DOCUMENT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Public Function checkresumetype(ByVal filename As String) As Boolean Dim extn As String extn = [Link](filename) Select Case [Link]() Case ".doc" Return True Case ".docx" Return True Case ".pdf" Return True Case Else Return False End Select End Function TO SELECT DATA FROM DB AND BIND IT TO THE RADIO BUTTON >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ds = New DataSet Dim str As String str = "Select * from Empdetails where EmpId='" & [Link] & "'" adp = New SqlDataAdapter(str, con) [Link](ds) If [Link](0).[Link] = 0 Then [Link] = True

[Link] = False [Link] = True Exit Sub End If Dim g, m As String g = [Link](0).Rows(0)("Gender").ToString If g = "Female" Then [Link] = "Female" Else [Link] = "Male" End If

TO VALIDATE WHETHER RADIO BUTTON IS SELECTED OR NOT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> If [Link] Is Nothing Then [Link] = True [Link] = "Select Gender" '[Link]() Exit Sub End If TO DELETE DUBLICATE DATA FROM DB >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> delete from Table where ID in (SELECT MAX(ID) FROM TABLE WHERE NAME IN (SELECT NAME FROM TABLE GROUP BY NAME HAVING COUNT(*)>1) )