<% 'if Session("user")="" then ' response.redirect("pocetnastrana.asp") 'else %>

Forum
Welcome to Information for development- Linking and Empowering Balkan Youth   
Area: My town in Europe                                                                                                                    

   home
Choose area

[ Content | Post a new message | Login | Logout | List of users ]

Title: Posted by: Time:
<% Dim Niza(5000) Dim brPoraki 'SQL="SELECT count(*) AS brPoraki FROM poraki WHERE roditel=0" 'set objrs=objConn.execute (sql) 'brPoraki=objRS.fields("brPoraki") 'objRS.close 'Response.write(brPoraki)&"
" brPoraki=0 strSQL="SELECT porakaID FROM Poraki where roditel=0" objRs.Open strSQL, objConn, 3, 3 While Not objRS.EOF Niza(brPoraki)=objRS.Fields("PorakaID") brPoraki=BrPoraki+1 objRS.MoveNext Wend objRS.close set objRS1 = Server.CreateObject("ADODB.RecordSet") For i=0 to brPoraki-1 tab="  " strSQL="Select korisnici.username from korisnici INNER JOIN poraki ON korisnici.korisnikID=poraki.username WHERE poraki.porakaID="& Niza(i) set objRS=objConn.execute(strSQL) ime=objRS.Fields("username") objRS.close strSQL="Select Naslov,datum from poraki WHERE porakaID="& Niza(i) set objRS=objConn.execute(strSQL) naslov=objRS.Fields("naslov") datum=objRS.Fields("datum") objRS.close %> <%=naslov%>
<%=Ime%> <%=datum%>
<% strSQL="SELECT porakaID,username,naslov,datum FROM Poraki where roditel="&niza(i) objRs.Open strSQL, objConn, 3, 3 While Not objRS.EOF strSQL="Select korisnici.username from korisnici INNER JOIN poraki ON korisnici.korisnikID=poraki.username WHERE poraki.username="& objRS.fields("username") set objRS1=objConn.execute(strSQL) ime=objRS1.Fields("username") objRS1.close Response.write(tab)%> <%=objRS.Fields("naslov")%>
<%=Ime%> <%=objRS.Fields("Datum")%>
<% tab=tab&"  " objRS.MoveNext Wend objRS.close Next %>
   

[ Content | Post a new message | Logout ]

<% 'end if /za session user %>