Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New SqlClient.SqlConnection
con = New SqlClient.SqlConnection(Application("conn"))
con.Open()
Dim bkod As New SqlClient.SqlParameter("@bkod", SqlDbType.Char)
Dim bsifre As New SqlClient.SqlParameter("@bsifre", SqlDbType.Char)
bkod.Direction = ParameterDirection.Input
bkod.Value = Trim(txtKOD.Text)
bsifre.Direction = ParameterDirection.Input
bsifre.Value = Trim(txtSIFRE.Text)
Dim sp As String = "BM_GIR"
Dim cmd As New SqlClient.SqlCommand(sp, con)
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
.Add(bkod)
.Add(bsifre)
End With
Dim deger As Boolean = False
If cmd.ExecuteScalar <> "" Then deger = True
If deger = True Then
Application.Lock()
Application.Contents("bkod") = txtKOD.Text
Application.Contents("bsifre") = txtSIFRE.Text
Application.UnLock()
Response.Redirect("pen.htm")
Literal1.Text = "Giris Bilgileriniz dogru. "
Else
Literal1.Text = "Giris Bilgileriniz hatali. "
End If
cmd.Dispose()
con.Dispose()
con.Close()
con = Nothing
End Sub
|