|
|
<%
Dim Connection
Dim Rs
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\hsphere\local\home\opcina_lukavac\lukavac.ba\baze\baza.mdb"
'Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=http://www.lukavac.ba/baze/baza.mdb"
'Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\baza.mdb"
'Response.Write Server.MapPath("baza.mdb")
Set Rs = Connection.Execute("SELECT * FROM Baner")
i=0
y=0
Do While Not Rs.Eof
i=i+1
Rs.MoveNext
Loop
Randomize
y=(Rnd * i)+1
Set RS=Nothing
Set Rs = Connection.Execute("SELECT * FROM Baner WHERE ID=" & int(y) )
Dim Link
Dim PutD
PutD ="http://www.lukavac.ba/baneri/" & Rs("Ime")& ".gif"
Link=PutD
%>
<%Set rs = nothing %>
| |
|
|
<%
Dim Conn
Dim Rs1
Dim z
Set Conn = Server.CreateObject("ADODB.Connection")
'Set strStream = Server.CreateObject("ADODB.Stream")
'strStream.Type = adTypeBinary
'strStream.Open
'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\hsphere\local\home\opcina_lukavac\lukavac.ba\baze\database.mdb"
Set Rs1 = Conn.Execute("SELECT * FROM Vijesti ORDER BY ID Desc ")
z=1
if rs1.eof<>true then
%>
<%=Rs1("Datum")%> - <%=Rs1("Kategorija")%>
<%
rs1.movenext
do while not Rs1.eof
if z<3 then
%>
<%=Rs1("Datum")%> - <%=Rs1("Kategorija")%>
<%=Rs1("Naslov")%> |
![](<%=RS1("Link")%) hspace=8 align=left vspace=2> <%=Rs1("Ukratko")%>
|
<%
z=z+1
end if
rs1.movenext
'end if
loop
end if
%> |
|
|
|
|
|
|
![]() |
|
| |
|
|
|
|
<%
Dim Connection1
Dim RsNBaner
Set Connection1 = Server.CreateObject("ADODB.Connection")
Connection1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\hsphere\local\home\opcina_lukavac\lukavac.ba\baze\baneri.mdb"
'Connection1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=http://www.lukavac.ba/baze/baza.mdb"
'Connection1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\baza.mdb"
'Response.Write Server.MapPath("baza.mdb")
Set RsNBaner = Connection1.Execute("SELECT * FROM Baner")
i=0
y=0
Do While Not RsNBaner.Eof
i=i+1
RsNBaner.MoveNext
Loop
Randomize
y=(Rnd * i)+1
Set RsNBaner=Nothing
Set RsNBaner = Connection1.Execute("SELECT * FROM Baner WHERE ID=" & int(y) )
PutD ="http://www.lukavac.ba/novibaneri/" & RsNBaner("Ime")& ".gif"
Link=PutD
%>
> >
<%Set RsNBaner = nothing %>
<%
Set ConnActiveTopic = Server.CreateObject("ADODB.Connection")
ConnActiveTopic.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\hsphere\local\home\opcina_lukavac\lukavac.ba\baze\abz73uKOorop.mdb"
Set Rs = ConnActiveTopic.Execute("SELECT tblTopic.Topic_ID, tblTopic.Forum_ID, tblTopic.Subject, Last(tblThread.Thread_ID) AS LastOfThread_ID, tblTopic.Last_entry_date FROM tblTopic INNER JOIN tblThread ON tblTopic.Topic_ID = tblThread.Topic_ID GROUP BY tblTopic.Topic_ID, tblTopic.Forum_ID, tblTopic.Subject, tblTopic.Last_entry_date ORDER BY tblTopic.Last_entry_date DESC;")
i=0
Response.Write "
"
Do While Not i>=10
If Rs.EOF=False Then
Linkovi
Rs.MoveNext
End If
i=i+1
Loop
Response.Write " "
Set Rs=Nothing
Set ConnActiveTopic=Nothing
Private Sub Linkovi ()
Response.Write " |
UKRATKO
<%
Set ConnVijesti = Server.CreateObject("ADODB.Connection")
ConnVijesti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\hsphere\local\home\opcina_lukavac\lukavac.ba\baze\database.mdb"
'ConnVijesti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("vijesti/database.mdb")
Set RsKategorija = ConnVijesti.Execute("SELECT * FROM KategorijaVijesti ORDER BY ID Desc")
Do While not RsKategorija.EOF
Response.write "" & RsKategorija("NazivKategorije") & ""
Set RsVijest = ConnVijesti.Execute("SELECT * FROM Vijesti WHERE Kategorija='" & RsKategorija("NazivKategorije") &"' ORDER BY ID Desc")
RsVijest.MoveNext
If RsVijest.EOF=False Then
Response.Write "