<% Option Explicit Dim DBconn, myDSN, strHledat, strNajdi, SQLStr, RS Session.timeout = 1 If IsObject(Session("CvicAplInf_conn")) Then Set DBConn = Session("CvicAplInf_conn") Else Set DBConn = Server.CreateObject("ADODB.Connection") ' Open database without DSN myDSN="DRIVER={Microsoft Access Driver (*.mdb)}; " myDSN=myDSN & "DBQ=" & server.mappath("Slovnik.mdb") DBConn.open myDSN ' Open database with DSN 'DBConn.open "CvicAplInf","Admin","" Set Session("CvicAplInf_conn") = DBConn End If %> ATR

Slovník
Vyhledávání
A B C D E F G
H CH I J K L M
N O P Q R S T
U V W X Y Z
Zobrazit všechny záznamy
Zadej hledaný výraz:
Výsledek vyhledávání
<% strNajdi=Request.QueryString("Hledat") if len(strNajdi)=0 then strNajdi=Request.Form("strHledat") End If ' Vytvoříme SQL dotaz pro zjištění potřebných dat If len(strNajdi)>0 Then SQLStr="SELECT * FROM tblSlovnik WHERE slVyraz LIKE '" & strNajdi &"' &'%' ORDER BY slVyraz" else SQLStr="SELECT * FROM tblSlovnik ORDER BY slVyraz" End If ' Vytvoříme objekt Recordset a otevřeme ho Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQLStr, DBConn, 3, 3 ' Určíme zda je k dispozici alespoň jeden záznam If RS.EOF Then ' Není ani jeden záznam Response.Write "

Nejsou k dispozici žádné záznamy!

" Else ' Záznamy existují, zpracujeme výstup Response.Write "" Do While Not RS.EOF Response.Write "" Response.Write " " Response.Write " " Response.Write "" RS.MoveNext Loop Response.Write "
" & RS.Fields("slVyraz").Value & "" & RS.Fields("slPojem").Value & "
" End If ' Set RS = Nothing ' Set DBConn = Nothing %>