Aurkitu hitza:

<%=Request("Palabra") %>
   hitzarekin aurkitutako datu guztiak:
<% Dim Conexion,Tabla Set Conexion=Server.CreateObject("adodb.connection") Set Tabla=Server.CreateObject("adodb.recordset") 'Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("toponimia.mdb") Conexion.Open "DSN=toponimia;" 'Application("Connection1_ConnectionString") ="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("/bbdd/balentinarbeo.mdb") ' Application("Connection1_ConnectionString") ="DSN=antzuola.com.toponimia;" Dim Temp 'Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'" 'Recordset1.Source = "SELECT herria FROM alojamenduak ORDER BY izena ASC" Temp="SELECT * FROM Lekuak where Indice LIKE '%"&Request("palabra")&"%' ORDER BY Izena ASC" ' OR Sinonimoak LIKE '%"& Request("palabra")&"%' OR Ahoskera LIKE '%"& Request("palabra")&"%' OR Generikoa LIKE '%"& Request("palabra")&"%' OR Zerkodea LIKE '%"& Request("palabra")&"%' OR Kartografia LIKE '%"& Request("palabra")&"%' OR Oharrak LIKE '%"& Request("palabra")&"%'" Tabla.Open Temp, Conexion If Tabla.BOF And Tabla.EOF Then %>

Ez da <%=Request("palabra")%> gure Datu Basean aurkitu.

<% Else %> <% While Not Tabla.EOF%>

<%=Tabla.Fields("Izena")%>
Ahoskera: <%=Tabla.Fields("Ahoskera")%>
Generikoa: <%=Tabla.Fields("Generikoa")%>
Kartografia: <%=Tabla.Fields("Kartografia")%>
Oharrak: <%=Tabla.Fields("Oharrak")%>

<% Tabla.MoveNext Wend Tabla.Close Conexion.Close End If %>