|
|
EVENTI U KOLDING CAFFE
|
<%
'Provjeravamo u bazu da li korisnik postoji i citamo njegovu sifru:
'Kreiramo objekt spajanja na bazu
Set adoCon = Server.CreateObject("ADODB.Connection")
'Informacije o bazi i driveru
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=letmein; DBQ=" & Server.MapPath("CMS/CMS.mdb")
'Postavljamo aktivnu vezu sa objektom (Connection object)
adoCon.Open strCon
'kreira spremljene vrijednosti objekta
Set rsProizvodi = Server.CreateObject("ADODB.Recordset")
'inicijalizira strSQL varijablu sa SQL upitom za bazu
strSQLProizvodi = "SELECT * FROM eventi"
'query baze
rsProizvodi.Open strSQLProizvodi, strCon
%>
|
<%
if not rsProizvodi.eof then
%>
<%=rsProizvodi("Sadrzaj")%>
<%
end if
%>
|
|
|
|
|
|
