23 yaşındayım ve hiç kız sikmedim

Imports sftb
Imports sftb. Genel
Imports System. Data
Imports sftb.web
Imports sftb. Genel.PublicLib
Imports sftb.bs.data
Imports sftb. Exceptions
Imports System.IO
Imports System. Drawing

Partial Class AnketIslem
Inherits sftb.web. BaseWebPage
Protected SorularListesi As String = ""

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System. EventArgs) Handles Me.Load
If Not YetkiKontrolu(sftb. Enum_Fonksiyonlar. Portal_Page_Design) Then Return

txtAd. TabloAdi = "damEgitimFaaliyet"
txtAd. AlanAdi = "Adi"
txtAd. DilDegerleriniGetir()

Dim dt As DataTable = Nothing
Dim bs As sftb.bs.GenelAnket = Nothing

If Not IsPostBack Then
txtTblName. Value = "Anket"
txtFldName. Value = "Ad"
txtId. Value = Val(Request. QueryString("Id"))
AnketYukle()
LogaYaz(Enum_LogIslem. PageLoad)
End If
AnketSoruListeOlustur()
'VersiyonlarListesi = Session("SorularListesi")

If Val(txtDeleteId. Value) > 0 Then
AnketSil()
End If
End Sub

Protected Sub btnKaydet_Click(ByVal sender As Object, ByVal e As System. EventArgs) Handles btnKaydet. Click
Anketkaydet()
End Sub

Protected Sub btnEkle_Click(ByVal sender As Object, ByVal e As System. EventArgs) Handles btnEkle. Click
txtId. Value = -1
IlkDegerler()
End Sub

Private Sub IlkDegerler()
txtAd. Text = ""
trhUygBasTrh. SetEmpty()
trhUygBitTrh. SetEmpty()
SorularListesi = ""
chkHerkeseAcikMi. Checked = False
End Sub

Private Sub AnketYukle()
Dim bs As sftb.bs.GenelAnket = Nothing
Dim dt As DataTable = Nothing

Try
bs = New sftb.bs.GenelAnket
dt = bs.AnketGetir(Val(txtId. Value), "U")
IlkDegerler()
For Each dr As DataRow In dt.Rows
txtAd. Text = NoNull(dr, "Ad")
trhUygBasTrh. SecilenTarih = NoNullDate(dr, "UygBasTrh")
trhUygBitTrh. SecilenTarih = NoNullDate(dr, "UygBitTrh")
chkHerkeseAcikMi. Checked = CType(NoNullint(dr, "HerkeseAcikMi"), Enum_EvetHayir) = Enum_EvetHayir. Evet
chkAktifMi. Checked = (CType(NoNullint(dr, "AktifMi"), Enum_AktifPasif) = Enum_AktifPasif. Aktif)
Next

Catch ex As Exception
ReportEx(ex)
Finally
If dt IsNot Nothing Then dt.Dispose()
dt = Nothing
bs = Nothing
End Try
End Sub

Protected Sub AnketSoruListeOlustur()
Dim bs As sftb.bs.GenelAnket = Nothing
Dim dt As DataTable = Nothing
Dim gg As GridGen = Nothing
Dim dr As DataRow = Nothing

Try
If Val(txtId. Value) <= 0 Then
SorularListesi = ""
Return
End If
bs = New sftb.bs.GenelAnket
dt = bs.AnketSoruListesiDoldur(Val(txtId. Value))

gg = New GridGen("Grid", -1, -1)
gg.addDTCol("", "<img style=""cursor:hand"" src=""../images/Duzelt.gif"" onclick=""javascript:KayitGuncellemeSoru({@Id},{@AnketRef});"">", 25, "center", GetLocalResourceObject("grd_Soru_C0_Tooltip"))
gg.addDTCol(GetLocalResourceObject("grd_Soru_C1_Baslik"), "SoruNo", GridGen. enumFldType.fldString, 25, "left", GetLocalResourceObject("grd_Soru_C1_Tooltip"), True)
gg.addDTCol(GetLocalResourceObject("grd_Soru_C2_Baslik"), "SoruTip", sftb. genel.PublicLib. EnumToSortedList(New Enum_AnketSoruTipi), 100, "left", GetLocalResourceObject("grd_Soru_C2_Tooltip"), True)
gg.addDTCol(GetLocalResourceObject("grd_Soru_C3_Baslik"), "SoruMetin", GridGen. enumFldType.fldString, 250, "left", GetLocalResourceObject("grd_Soru_C3_Tooltip"), True)

gg.Selection = "void(0);"
gg.RowColor = Drawing. Color.White
gg.RowForeColor = Drawing. Color.Black
gg.SelectionBackColor = Drawing. Color.LemonChiffon
gg.SelectionForeColor = Drawing. Color.Blue

gg.AddRow(dt)

gg.ExcludeNextRowFromFiltering = True
dr = dt.NewRow
dr("Id") = -1
dr("AnketRef") = Val(txtId. Value)
gg.AddRow(dr)

SorularListesi = gg.RenderedData
Session("SorularListesi") = SorularListesi

Catch ex As Exception
ReportEx(ex)
Finally
bs = Nothing
If dt IsNot Nothing Then dt.Dispose()
dt = Nothing
End Try

End Sub

Private Sub AnketSil()
Dim dt As DataTable = Nothing
Dim bs As sftb.bs.GenelAnket = Nothing
Dim sonuc As Integer
Try
bs = New sftb.bs.GenelAnket
sonuc = bs.AnketSil(Val(txtDeleteId. Value))
If sonuc = 1 Then
setmessage(sftb. Mesajlar.GAnket_AnketSilindi)
closeWindow()
ElseIf sonuc = -1 Then
setmessage(sftb. Mesajlar.GAnket_AnketSilinemez)
End If
Catch ex As Exception
ReportEx(ex)
Finally
If dt IsNot Nothing Then dt.Dispose()
dt = Nothing
bs = Nothing
End Try
End Sub

Private Sub Anketkaydet()
Dim bs As sftb.bs.GenelAnket = Nothing
If Val(txtAd. Text) Then
setmessage(sftb. Mesajlar.GAnket_AnketBaslikGirin)
Exit Sub
End If
Try
bs = New sftb.bs.GenelAnket
txtId. Value = bs.AnketGuncelle(Val(txtId. Value), XSSControl(txtAd. Text), trhUygBasTrh. SecilenTarih, trhUygBitTrh. SecilenTarih, chkHerkeseAcikMi. Checked, chkAktifMi. Checked)
setmessage(sftb. Mesajlar.GAnket_AnketKaydedildi)
AnketYukle()
AnketSoruListeOlustur()
Catch ex As Exception
ReportEx(ex)
Finally
bs = Nothing
End Try
End Sub

End Class

olayı aynen aktarıyorum onun için uzun gelebilir:
arkadaşlar aslında nereden başlayacağımı bilmiyorum.ben bugün arabayla bir kavşaktan biraz darca olan bir yoldan sağa dönüyordum. biraz acil bir işim vardı.

dönerken 10 kadar arkadaş beni gördüler. karşıya geçip geçmemekte tereddüt ettiler.ama içlerinden bir tanesi sağa sola bakmadan hiç umursamadan (belki de görmedi gerçekten, bilmiyorum) yola girdi.ben de onu beklemeden yola girdim ama çarpmadım. ( teğet geçtim heralde tam da bilmiyorum )

kavşaktan çıkar çıkmaz hemen sağa park ettim.

hemen arkamdan o genç (16 17 yaşlarında biraz soytarı bir tip ) geldi.ve bana 'sen ne yapıyorsun? sana nasıl ehliyet verdiler? gibisinden konuşmaya başladı.ben de ona sen yola atladın falan filan derken.ben ona hiçbir kötü laf söylemedim.en sonda, yaşımın küçük olmasından ve arabada da ben den başka kimse olmayışından ve de yanında arkadaşlarının da olmasından cesaretle bana i.ne dedi ve hemen arkadaşlarının yanına döndü.ben de ' böyle küfür atamazsın dur hele dedim. '

çok kızmıştım.o esnada arkadaşlarından yaşça küçük biri gelip, bunun için kusura bakmamasını, arkadaşının biraz dengesiz olduğunu söyledi. sonra o da yanlarına döndü.

ben de arabada aptal gibi kalakaldım.

sonra bir anda indim. onlar yavaş yavaş yürüyorlardı. onlara koşarak yetiştim. belki şaşıracaksınız ama o çocuğu çağırıp hatalı olduğumu biraz acemi olduğumu söyledim. özür diledim ve ona da bu küfre hiç gerek yoktu gibisinden laflar söyledim. neyse o da pek umursamadan özür diledi.ve yine şikayetine devam etti. neyse el sıkıştık öpüştük.(öpüşme hamlesini de ben yaptım)

ama kavga etmediğim için biraz da pişman oldum ister istemez. evet kavga etseydim çok kötü dayak yerdim ama sonuçta bana küfür etti ve öylece çekip gitti.( bu arada hiç kavga yanlısı olmadığımı belirtmek isterim, sorunları konuşarak halletmek tercihimdir)(bu arada aslında çocuğa da biraz acıdım demeliyim. genç,özenti, apaçi tipli ,ağzı bozuk, küfür ettiğinde haklı olacağını zanneden bir genç)

haksızsam kabullenirim ve özeleştri yaparım. illa haklıyım demiyorum..

SiZE ŞUNU SORUYORUM : acaba çok saf, korkak,aptalca mı davrandım? sizce ne yapmalıydım? ( hala sinirliyim titriyorum )
bu durumu , paylaşacağım kimsem yok. sizler varsınız sadece. okuduğunuz için teşekkür ederim. aslında büyütülecek bir olay değil ama tecrübesizim ve kimsem yok paylaşacak. saygılar...