Pretrazivanje po raznim kriterijima
<%
Dim objConn
Dim objRS, objRSGD, objRSKR, objRSZE
Dim strSQL, strSQLGD, strSQLKR, strSQLZE
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRSGD = Server.CreateObject("ADODB.Recordset")
Set objRSKR = Server.CreateObject("ADODB.Recordset")
Set objRSZE = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
strSQLGD = "Select distinct grad from tblGrupe"
objRSGD.Open strSQLGD, objConn
%>