<% Function ReadEntireFile(filespec, FindThis) Const ForReading = 1, ForWriting = 2 Dim fso, f, filename, s, retstring Dim i Dim MyString, MyArray, Msg MyArray = Split(FindThis, " ", -1, 1) s = "" FindThis = LCase(FindThis) 'filename = mid(replace(filespec,"/","\"),2) filename = replace(filespec,"/","\") filename = "C:\Inetpub\wwwroot\ipc\" + replace(filespec,"/","\") ' filename = replace(filename, "\", "\\") ' response.write filename set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(filename, ForReading, False) Do While f.AtEndOfStream <> True retstring = f.ReadLine for i = 0 to Ubound(MyArray) step 1 if instr(LCase(retstring), (" "+MyArray(i)+" ")) > 0 _ or instr(LCase(retstring), (" " + MyArray(i))) > 0 _ or instr(LCase(retstring), (">" + MyArray(i))) > 0 _ or instr(LCase(retstring), (MyArray(i)+" ")) > 0 _ or instr(LCase(retstring), (MyArray(i)+",")) > 0 _ or instr(LCase(retstring), (MyArray(i)+".")) > 0 _ or instr(LCase(retstring), (MyArray(i)+":")) > 0 _ or instr(LCase(retstring), (MyArray(i)+"<")) > 0 _ then s = s + "[ " + trim(retstring) + " ] " exit for end if next Loop f.Close Set f = Nothing set fso = Nothing ReadEntireFile = s End Function Function StripHTML(filespec, FindThis) dim metatag,c,s dim i Dim MyString, MyArray, Msg MyArray = Split(FindThis, " ", -1, 1) s = "" FindThis = LCase(FindThis) if len(filespec) > 1 Then metatag = false for i = 1 to len(filespec) c = mid(filespec,i,1) if c = "<" or c= "{" then metatag = true end if if c = ">" or c = "}" then metatag = false end if if metatag = false and c <> ">" and c <> "}" then s = s + c ' response.write c end if next for i = 0 to Ubound(MyArray) step 1 s = Replace(LCase(s), LCase(MyArray(i)), ""+ MyArray(i) + "") next StripHTML = s else StripHTML = "" end if End Function %> Buscar
 

LA IGLESIA PRIMITIVA DE CRISTO
La Iglesia Primitiva del Señor Jesucristo como se revela en el Nuevo Testamento

Inicio Buscar Biblioteca Nosotros Ofrendas Radio Mundo Yeshúa

Buscar

Clic aquí para ir al sitio de Doctrina Cristiana
Abierto
24 hrs día,
7 días a la semana, 365 días al año.

Si alguno tiene sed, venga a mí y beba.

El que cree en mí, como dice la Escritura, de su interior correrán ríos de agua viva.Ezequiel 47. 1Zacarias 14. 8

Juan 7:37-38

<% ' ********** INSTRUCCIONES PARA UNA RÁPIDA PERSONALIZACIÓN ********** ' ' Este formulario se creó para una rápida personalización. Le permite cambiar el ' logotipo, el fondo de la página, el título de ésta y parámetros sencillos de ' la consulta con unos pocos cambios en archivos y variables del formulario. Los ' procedimientos para hacerlo se explican a continuación. ' ' ' *** Modifying the Form Logo: ' The logo for the form is named is2logo.gif. To change the page logo, simply ' name your logo is2logo.gif and place in the same directory as this form. If ' your logo is not a GIF file, or you don't want to copy it, change the following ' line so that the logo variable contains the URL to your logo. FormLogo = "" ' ' *** Modifying the Form's background pattern. ' You can use either a background pattern or a background color for your ' form. If you want to use a background pattern, store the file with the name ' is2bkgnd.gif in the same directory as this file and remove the remark character ' the single quote character) from the line below. Then put the remark character on ' the second line below. ' ' If you want to use a different background color than white, simply edit the ' bgcolor line below, replacing white with your color choice. ' FormBG = "background = " & chr(34) & "is2bkgnd.gif" & chr(34) FormBG = "bgcolor = " & chr(34) & "#FFFFFF" & chr(34) ' *** Modifying the Form's Title Text. ' The Form's title text is set on the following line. ' Dim filespec ' ' *** Modifying the Form's Search Scope. ' ' The form will search from the root of your web server's namespace and below ' (deep from "/" ). To search a subset of your server, for example, maybe just ' a PressReleases directory, modify the scope variable below to list the virtual path to ' search. The search will start at the directory you specify and include all sub- ' directories. FormScope = "/" ' ' *** Modifying the Number of Returned Query Results. ' ' You can set the number of query results returned on a single page ' using the variable below. ' was 10 PageSize = 100 ' ' *** Setting the Locale. ' ' The following line sets the locale used for queries. In most cases, this ' should match the locale of the server. You can set the locale below. SiteLocale = "ES-ES" ' ********** END QUICK CUSTOMIZATION SECTIONS *********** ' noise=",about,after,all,also,an,another,any,and,are,as,at,be,because,been,before,being,between,both,but,by,came,can,come,could,did,do,each,for,from,get,got,has,had,he,have,her,here,him,himself,his,how,if,in,into,is,it,like,make,many,me,might,more,most,much,must,my,never,near,now,of,on,only,or,other,our,out,over,said,same,see,should,since,some,still,such,take,than,that,the,their,them,then,there,these,they,this,those,through,to,too,under,up,very,was,way,we,well,were,what,where,which,while,who,with,would,you,your,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$,1,2,3,4,5,6,7,8,9,0,_,!,&,~,|,?,I," noise=",y,e,al,ni,que,a,antes,de,desde,despues,otro,otra,otros,otras,en,porque,por,ser,estar,entre,ambos,pero,ante,bajo,vino,vine,nisnimos,viniste,vamos,con,contra,de,desde,hacia,yo,tu,el,nosotros,vosotros,ellos,ellas,ella,esto,esta,eso,esa,aquello,aquella,hasta,para,por,segun,sin,sobre,traz,tras,todo,tambien,otro,cualquiera,y,e,ni,que,que,como,de,donde,en,por,porque,antes,despues,ser,estar,entre,si,no,ni,ese,eso,este,aquello,mio,tuyo,suyo,vuestro,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$,1,2,3,4,5,6,7,8,9,0,_,!,&,~,|,?,I," punc2="$,1234567890_!&~|? #+()" punc="$,1234567890_!&~|?#@%^+" ' Set Initial Conditions NewQuery = FALSE UseSavedQuery = FALSE rSearchString = "" ' Did the user press a SUBMIT button to execute the form? If so get the form variables. if Request.ServerVariables("REQUEST_METHOD") = "POST" then rSearchString = Request.Form("SearchString") SearchType=Request.QueryString("SearchType") if SearchString<>"" then Session("SearchStringDisplay")=Server.HTMLEncode(rSearchString) end if rFreeText = Request.Form("FreeText") QueryForm = "buscar.asp" rCiResultsSize = Request.Form("CiResultsSize") CiLimits = Request.Form("CiLimits") ' NOTE: this will be true only if the button is actually pushed. 'if Request.Form("Action") = "Buscar" then NewQuery = TRUE if CiLimits = "on" then RankBase=50 else RankBase=1000 end if 'end if end if if Request.ServerVariables("REQUEST_METHOD") = "GET" then rSearchString = Request.QueryString("SearchString") SearchType=Request.QueryString("SearchType") QueryForm = "buscar.asp" rCiResultsSize = Request.QueryString("CiResultsSize") rFreeText = Request.QueryString("FreeText") FormScope = Server.HTMLEncode(Request.QueryString("sc")) RankBase = CInt(Request.QueryString("RankBase")) if Request.QueryString("pg") <> "" then NextPageNumber = CInt(Request.QueryString("pg")) NewQuery = FALSE UseSavedQuery = TRUE else NewQuery = SearchString <> "" end if end if ' remove HTML special characters, they are ignored in search SearchString = replace(replace(replace(rSearchString, "<", ""), ">", ""), """", "") ' encode these texts to avoid cross site scripting CiResultsSize = Server.HTMLEncode(rCiResultsSize) FreeText = Server.HTMLEncode(rFreeText) %>

Use la siguiente forma para buscar documentos en este sitio Web. Hemos incluído una corta explicación del "lenguaje de búsqueda" junto con ejemplos.

Buscar:
<% if NewQuery then set Session("Query") = nothing set Session("Recordset") = nothing NextRecordNumber = 1 'Strip punctuation from search term for x = 1 to len(SearchString) testpunc= mid(SearchString,x,1) if instr(punc,testpunc) then SearchStringErr= SearchStringErr else SearchStringErr = SearchStringErr + testpunc end if next SearchString = SearchStringErr if SearchType=0 Then 'Strip noise words from search term SearchStringComp=SearchString+" " for x = 1 to len(SearchStringComp) if mid(SearchStringComp,x,1)=" " Then ncompare2 = ","+ncompare+"," if instr(noise,ncompare2) = 0 then NewCompare=NewCompare+" "+ncompare End If ncompare="" else ncompare=ncompare+mid(SearchString,x,1) end if next x = len(NewCompare) if left(NewCompare,1) = " " Then NewCompare = right(NewCompare,(x-1)) end if SearchString=NewCompare CompSearch = "$CONTENTS " + SearchString end if if SearchType=1 Then CompSearch = chr(34) + SearchString + chr(34) end if if SearchType=2 Then 'Strip noise words from search term SearchStringComp=SearchString+" " for x = 1 to len(SearchStringComp) if mid(SearchStringComp,x,1)=" " Then ncompare2 = ","+ncompare+"," if instr(noise,ncompare2) = 0 then NewCompare=NewCompare+" "+ncompare End If ncompare="" else ncompare=ncompare+mid(SearchString,x,1) end if next x = len(NewCompare) if left(NewCompare,1) = " " Then NewCompare = right(NewCompare,(x-1)) end if SearchString=NewCompare slen=len(SearchString) for k = 1 to slen slet = Mid(SearchString,k,1) if slet <> " " then ss1=ss1+slet else ss1=ss1+ " AND " end if Next CompSearch=ss1 If Right(CompSearch,5) = " AND " Then CompSearch = Left(CompSearch,Len(CompSearch)-5) End if end if if SearchType=3 Then 'Strip noise words from search term SearchStringComp=SearchString+" " for x = 1 to len(SearchStringComp) if mid(SearchStringComp,x,1)=" " Then ncompare2 = ","+ncompare+"," if instr(noise,ncompare2) = 0 then NewCompare=NewCompare+" "+ncompare End If ncompare="" else ncompare=ncompare+mid(SearchString,x,1) end if next x = len(NewCompare) if left(NewCompare,1) = " " Then NewCompare = right(NewCompare,(x-1)) end if SearchString=NewCompare slen=len(SearchString) for k = 1 to slen slet = Mid(SearchString,k,1) if slet <> " " then ss1=ss1+slet else ss1=ss1+ " OR " end if Next CompSearch=ss1 If Right(CompSearch,4) = " OR " Then CompSearch = Left(CompSearch,Len(CompSearch)-4) end if end if if SearchType=4 Then 'Strip noise words from search term NCompare="" NewCompare="" SearchStringComp=SearchString+" " for x = 1 to len(SearchStringComp) if mid(SearchStringComp,x,1)=" " Then ncompare2 = ","+ncompare+"," if instr(noise,ncompare2) = 0 then NewCompare=NewCompare+" "+ncompare End If ncompare="" else ncompare=ncompare+mid(SearchString,x,1) end if next x = len(NewCompare) if left(NewCompare,1) = " " Then NewCompare = right(NewCompare,(x-1)) end if SearchString=NewCompare CompSearch = SearchString end if set Q = Server.CreateObject("ixsso.Query") set util = Server.CreateObject("ixsso.Util") Q.Query = CompSearch Q.Catalog = "IPC" Q.SortBy = "rank[d]" Q.Columns = "DocTitle, vpath, filename, size, write, rank" Q.MaxRecords = RankBase if FormScope <> "/" then util.AddScopeToQuery Q, FormScope, "deep" end if if SiteLocale<>"" then Q.LocaleID = util.ISOToLocaleID(SiteLocale) end if On Error Resume Next set RS = Q.CreateRecordSet("nonsequential") RS.PageSize = PageSize Test = RS.PageSize ActiveQuery = TRUE elseif UseSavedQuery then if IsObject( Session("Query") ) And IsObject( Session("RecordSet") ) then set Q = Session("Query") set RS = Session("RecordSet") if RS.RecordCount <> -1 and NextPageNumber <> -1 then RS.AbsolutePage = NextPageNumber NextRecordNumber = RS.AbsolutePosition end if ActiveQuery = TRUE else Response.Write "ERROR - Consulta no guardada" end if elseif SearchString = "" Then ' Response.write "
No hay nada que buscar.
" end if If Err<>424 Then if ActiveQuery then if not RS.EOF then LastRecordOnPage = NextRecordNumber + RS.PageSize - 1 KLastRecordOnPage=LastRecordOnPage If KLastRecordOnPage>RS.RecordCount Then KLastRecordOnPage=RS.RecordCount %>Se ejecutó la búsqueda de: <% If Session("SearchStringDisplay") <> "" Then %> <%=Session("SearchStringDisplay")%> <%else%> <%=SearchString%> <%end if%> <%=NextRecordNumber%> - <%=KLastRecordOnPage%> [ <%=RS.RecordCount%> resultados encontrados ]
<% LastRecordOnPage = NextRecordNumber + RS.PageSize - 1 CurrentPage = RS.AbsolutePage if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then LastRecordOnPage = RS.RecordCount end if if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then %><% end if Do While Not RS.EOF and NextRecordNumber <= LastRecordOnPage ' This is the detail portion for Title, Description, URL, Size, and ' Modification Date. TmpExt = trim(Server.HTMLEncode( RS("filename") )) FullExt = lCase(Right(TmpExt, 3)) If FullExt = "htm" Then ' If there is a title, display it, otherwise display the filename. %> <% ' Here is were we display the extracts ================================ 'response.write ("Abstract: ") else NextRecordNumber = NextRecordNumber - 1 end if RS.MoveNext NextRecordNumber = NextRecordNumber + 1 Loop %>
<%=NextRecordNumber%> <% if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then %> class="RecordTitle" target=_blank> <%= Server.HTMLEncode(RS("filename"))%> <%else%> class="RecordTitle" target=_blank> <%= Server.HTMLEncode(RS("DocTitle"))%> <%end if%>
 <% Set oTools = Server.CreateObject("MSWC.Tools") If oTools.FileExists(RS("vpath")) then dim s s = ReadEntireFile(RS("vpath"),SearchString) s = StripHTML(s,SearchString) response.write ("" & s & "") response.flush Else %>

No Existe el archivo.

<% End If Set oTools = Nothing %>
Rango: <%= Server.HTMLEncode(RS("rank"))%> Actualizado: <%= RS("write")%>
Más en: target=_blank><%=RS("vpath")%> <% if CiResultsSize = "on" then %> <% end if%>
<% else ' NOT RS.EOF if NextRecordNumber <> 1 then Response.Write "No hay más documentos en la consulta.

" end if end if ' NOT RS.EOF%> <% if Q.QueryIncomplete then ' If the query was not executed because it needed to enumerate to ' resolve the query instead of using the index, but AllowEnumeration ' was FALSE, let the user know %>

No se pudo completar la búsqueda. Vuelva a enviar la consulta.
Detalles técnicos: AllowEnumeration debe establecerse como TRUE para completar esta consulta.

<%end if if Q.QueryTimedOut then ' If the query took too long to execute (for example, if too much work ' was required to resolve the query), let the user know %>

La consulta tardó demasiado tiempo en completarse.
<%end if%> <% ' This is the "previous" button. ' This retrieves the previous page of documents for the query. %> <% SaveQuery = FALSE %> <% if CurrentPage > 1 and RS.RecordCount <> -1 then %> <% SaveQuery = TRUE end if ' This is the "next" button for unsorted queries. ' This retrieves the next page of documents for the query. if Not RS.EOF or NextRecordNumber = PageSize - 1 then %> <% SaveQuery = TRUE end if %>
<% NextString = "Siguiente >>"%>
<% ' Display the page number %> <% if RS.RecordCount = 0 then %>
No hay documentos que coincidan con la búsqueda de <%=SearchString%>.

Es posible que desee:

  • Comunicarnos este problema a (mailto:support@evangelioscristianos.org) de forma que podamos mejorar nuestro motor de búsqueda en las próximas versiones.
  • Comprobar temas relacionados en el Índice.
  • Comprobar la ortografía y la sintaxis.
  • Probar otra opción de búsqueda (Estándar, Frase exacta, Cualquier palabra, Todas las palabras y Bolean son las opciones disponibles).
  • Probar la consulta más tarde. Los servicios de búsqueda pueden tardar unos minutos en realizar un nuevo catálogo de la documentación disponible.
Página <%=CurrentPage%> <% if RS.PageCount <> -1 then Response.Write " de " & RS.PageCount end if end if ' If either of the previous or back buttons were displayed, save the query ' and the recordset in session variables. if SaveQuery then set Session("Query") = Q set Session("RecordSet") = RS else RS.close Set RS = Nothing Set Q = Nothing set Session("Query") = Nothing set Session("RecordSet") = Nothing end if end if else 'Strip noise words from search term NCompare="" NewCompare="" SearchStringComp=SearchString+" " for x = 1 to len(SearchStringComp) if mid(SearchStringComp,x,1)=" " Then ncompare2 = ","+ncompare+"," if instr(noise,ncompare2) = 0 then NewCompare=NewCompare+" "+ncompare End If ncompare="" else ncompare=ncompare+mid(SearchString,x,1) end if next x = len(NewCompare) if left(NewCompare,1) = " " Then NewCompare = right(NewCompare,(x-1)) end if SearchString=NewCompare 'Strip punctuation from search term SearchStringErr = "" for x = 1 to len(SearchString) testpunc= mid(SearchString,x,1) if instr(punc2,testpunc) then SearchStringErr= SearchStringErr else SearchStringErr = SearchStringErr + testpunc end if next SearchString = SearchStringErr CompSearch=SearchString if SearchString = "" or instr(SearchString,"*") or instr(CompSearch,")") or instr(CompSearch,"(") or right(CompSearch,3)="OR " or right(CompSearch,4)="AND " then %> El servicio de búsqueda de información no puede procesar su consulta.

Vuelva a plantear la consulta e inténtelo de nuevo. Algunas palabras comunes, como "a,", "ante", "bajo", "con", "obtener", "para" o "muchas" no están indexadas. No utilice signos de puntuación (comas, puntos, etc.) en su consulta. <%else%>

El servicio de Búsqueda de Información no está iniciado * <%=CompSearch%> *

Por favor envíe esta información al Webmaster. También es posible que el servicio este desabilitado temporalmente, intente hacer la búsqueda en unos minutos. Esto suele ocurrir cuando se esta procesando alguna actualización o cuando se esta efectuando el proceso de creación de copias de respaldo.

======================================

In order to perform search queries on the IIS documentation, you must first start Indexing Service.

To start Indexing Service,

  1. On the computer running IIS, right-click the My Computer icon and click Manage.

  2. Expand the Services and Applications node in the MMC.

  3. Select Indexing Service.

  4. Click Action menu and then click Start.

Note: It may take Indexing Service a few minutes to catalog the IIS documentation.

In order to use Search while viewing the documentation remotely, Indexing Service must be running on the computer that is serving the documentation. If you are unable to start Indexing Service, please contact the Web site administrator. <% end if %> <% end if %>


Language de Búsqueda

Nuestro motor de búsqueda le permite hacer pedidos usando expresiones tales como AND, OR, y NOT, agrupadas entre parentesis. Por ejemplo:

information retrieval
encuentra documents que contienen  'information' o 'retrieval'

information or retrieval
es lo mismo que arriba

information and retrieval
encuentra documentos que contengan ambas palabras 'information' y 'retrieval'

information not retrieval
encuentra documentos que contengan la palabra 'information' pero que no contengan la palabra 'retrieval'

(information not retrieval) and WAIS
encuentra documentos que contengan la palabra 'WAIS', y la palabra 'information' pero que no contengan la palabra 'retrieval'

web*
encuentra documentos que contengan todas las palabras que empiezan con 'web'
Ingreso Registro
REVISTA
LA GAZZETTA

Vol 10, Num 7

El Pueblo
De Dios

Vea como Dios separa a su pueblo del resto del mundo y lo santifica.

Presentación en PowerPoint

Juan 6:53
Jesús les dijo:

De cierto, de cierto os digo: Si no coméis la carne del Hijo del Hombre, y bebéis su sangre, no tenéis vida en vosotros. 

El que come mi carne y bebe mi sangre, tiene vida eterna; y yo le resucitaré en el día postrero. 
Porque mi carne es verdadera comida, y mi sangre es verdadera bebida. 

El que come mi carne y bebe mi sangre, en mí permanece, y yo en él. 
Como me envió el Padre viviente, y yo vivo por el Padre, asimismo el que me come, él también vivirá por mí. 

Este es el pan que descendió del cielo; no como vuestros padres comieron el maná, y murieron;
el que come
de este pan, vivirá eternamente.


Ir a la cabeza

Inicio ]

Juan 6:44

Ninguno puede venir a mí,
si el Padre que me envió no le trajere;
y yo le resucitaré en el día postrero. 

Escrito está en los profetas:
Y serán todos enseñados por Dios.Isaias 54. 13
Así que, todo aquel que oyó al Padre,
y aprendió de él, viene a mí. 
No que alguno haya visto al Padre,
sino aquel que vino de Dios; éste ha visto al Padre. 

De cierto, de cierto os digo: 
El que cree en mí, tiene vida eterna.

Yo soy el pan de vida.

Vuestros padres comieron el maná en el desierto, y murieron.
Este es el pan que desciende del cielo,
para que el que de él come, no muera. 

Yo soy el pan vivo que descendió del cielo;
si alguno comiere de este pan,
vivirá para siempre;
y el pan que yo daré es mi carne,
la cual yo daré por la vida del mundo.

Copyright © 2006-2017 daprose.com - Ultima modificación: 09/22/17

Powered by DAPROSE ( www.daprose.com ) - Regresar a la Iglesia de la Misericordia