<% Option Explicit Dim strConnect %> <% 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 %>

Choose the search options
Country:	<% 'strSQLZE = "Select naziv from tblZemlje" strSQLZE = "Select naziv from tblZemlje order by naziv asc" objRSZE.Open strSQLZE, objConn 'Loop through the recordset adding each zemlja Do While Not objRSZE.EOF %> <%=objRSZE("naziv")%> <% objRSZE.MoveNext Loop 'Close and dereference database objects objRSZE.Close Set objRSZE = Nothing %>	AND
Town:	<% 'Loop through the recordset adding each grad Do While Not objRSGD.EOF %> <%=objRSGD("grad")%> <% objRSGD.MoveNext Loop 'Close and dereference database objects objRSGD.Close Set objRSGD = Nothing %>	AND
Keywords:	<% strSQLKR = "Select kljucnarijec from tblKljucneRijeci order by kljucnarijec asc" objRSKR.Open strSQLKR, objConn 'Loop through the recordset adding each kljucna rijec Do While Not objRSKR.EOF %> <%=objRSKR("kljucnarijec")%> <% objRSKR.MoveNext Loop 'Close and dereference database objects objRSKR.Close Set objRSKR = Nothing %>	AND