Drevna vedska astrologija

<% call dajclanak() %>
Namaste
Stranica u izradi
<% function dajmenu() dim ado2, adobroj call openbase() set adorec = m_conn.execute("SELECT * FROM sadrzaji_kategorije WHERE aktivno AND izbornik=1 ORDER BY redni;" ) response.write( "" ) call closebase() end function function dajclanak( ) dim ptekst, slika call openbase() set adorec = m_conn.execute( "SELECT TOP 1 * FROM sadrzaji WHERE autoid=" & m_idclanka ) if adorec.eof then response.write( "Članak nije pronađen..." ) else slika = dajdokument( "clanci_foto/" & adorec("autoid") & "_1" ) response.write( "

" & adorec("naslov" ) & "

") response.write( "
" ) if instr( adorec("tekst"), "[slika1") = 0 then response.write( "
" ) ptekst = adorec("tekst") ptekst = replace( ptekst, "", "" ) ptekst = vratislike( ptekst ) response.write( ptekst ) end if call closebase() end function function vratislike( vratisve ) dim n, slika, tekst, ado2, opis tekst = vratisve for n = 1 to sys_galerije_maxslika set ado2 = m_conn.execute("SELECT TOP 1 * FROM galerije_opisi WHERE clanak=" & m_idclanka & " AND redni=" & n & ";" ) opis = "" if not ado2.eof then opis = ado2("opis") slika = dajdokument( "clanci_foto/" & m_idclanka & "_" & n ) if instr( tekst, "

[slika" & n & "]

" ) <> 0 then vratisve = replace( vratisve, "

[slika" & n & "]

", "
" & opis & "
" & opis & "
" ) if instr( tekst, "[slika" & n & "]" ) <> 0 then vratisve = replace( vratisve, "[slika" & n & "]", "
" & opis & "
" & opis & "
" ) if instr( tekst, "

[slika" & n & "s]

" ) <> 0 then vratisve = replace( vratisve, "

[slika" & n & "s]

", "
" & opis & "
" ) if instr( tekst, "[slika" & n & "s]" ) <> 0 then vratisve = replace( vratisve, "[slika" & n & "s]", "
" & opis & "
" ) if instr( tekst, "

[slika" & n & "d]

" ) <> 0 then vratisve = replace( vratisve, "

[slika" & n & "d]

", "
" & opis & "
" & opis & "
" ) if instr( tekst, "[slika" & n & "d]" ) <> 0 then vratisve = replace( vratisve, "[slika" & n & "d]", "
" & opis & "
" & opis & "
" ) if instr( tekst, "

[slika" & n & "l]

" ) <> 0 then vratisve = replace( vratisve, "

[slika" & n & "l]

", "
" & opis & "
" & opis & "
" ) if instr( tekst, "[slika" & n & "l]" ) <> 0 then vratisve = replace( vratisve, "[slika" & n & "l]", "
" & opis & "
" & opis & "
" ) next vratislike = vratisve end function %>