<% If Request.QueryString("ETKINLIKID")<>""
If V.baglanti.State <> 1 Then V.baglanti.Open()
V.komut_metni = "SELECT * FROM ETKINLIKLER WHERE SITEID=14 AND ID=" & Request.QueryString("ETKINLIKID")
V.komut = New Data.SqlClient.SqlCommand(V.komut_metni, V.baglanti)
V.okuyucu = V.komut.ExecuteReader
Dim SAYAC = 1
V.okuyucu.Read()
%>