<%@LANGUAGE="VBSCRIPT"%> <% b_fusha = Request.form("radiobutton") b_qyteti = Request.form("radiobutton2") Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Set RS2 = Server.CreateObject("ADODB.Recordset") Set RS3 = Server.CreateObject("ADODB.Recordset") If (b_qyteti <> 51 AND b_fusha <> 18) then sql_com = "SELECT emri_organizates_shqip, id FROM main WHERE (fusha_aktivitetit = " &b_fusha &" AND qyteti = " &b_qyteti &") ORDER BY id ASC" If (b_qyteti = 51 AND b_fusha <> 18) then sql_com = "SELECT emri_organizates_shqip, id FROM main WHERE fusha_aktivitetit = " &b_fusha &" ORDER BY id ASC" If (b_qyteti <> 51 AND b_fusha = 18) then sql_com = "SELECT emri_organizates_shqip, id FROM main WHERE qyteti = " &b_qyteti &" ORDER BY id ASC" If (b_qyteti = 51 AND b_fusha = 18) then sql_com = "SELECT emri_organizates_shqip, id FROM main WHERE id <> 0 ORDER BY id ASC" Conn.Open "DBQ=" & Server.MapPath("db/data.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" sql_com2="SELECT fushat.fushat from fushat WHERE id_fushat = "&b_fusha &" ORDER BY id_fushat" sql_com3="SELECT qytete.qytete from qytete WHERE id_qytete = "&b_qyteti &" ORDER BY id_qytete" set RS = conn.execute(sql_com) set RS2 = conn.execute(sql_com2) set RS3 = conn.execute(sql_com3) Dim Repeat1__numRows Repeat1__numRows = 300 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows fushat = RS2("fushat") qytete = RS3("qytete") %> main_flete
 

E drejta e Autorit: Njoftim

Leja për të përdorur, kopjuar dhe shpërndarë të gjitha dokumentet e mundshme në këtë faqe, si të tëra ose të pjesshme, për përdorim jofitimprurës dhe pa pagesë, jepet vetëm kur një njoftim i përshtatshëm vendoset në të gjitha kopjet që shpall se burimi është Faqja e Internetit e F.Sh.Sh.C / SOROS : Fletë të Verdha të OJF-ve Shqiptare.