|
|
 |
 |
<%
' Display links menu.
Response.Write ("Diccionario Astrológico")
Response.Write ("Si no aparece ninguna definición o no encuentras lo que búscas, revisa la ortografía o escribe otra palabra relacionada.")
' Display search form.
Response.Write ("
")
' If form was submitted to itself (i.e. user doing search),
If ((Request.QueryString = "Search") And (Request.Form ("txtSearch") <> "")) Then
strKeyword = Request.Form ("txtSearch")
' Define and execute sql statement into recordset.
sqlLookup = "select term, definition from Terms where keyword1 = '" & _
strKeyword & "' and published = Yes"
Set rstLookup = cnnDB.Execute (sqlLookup, adCmdText)
' Loop thru recordset and display matches.
While Not rstLookup.EOF
Response.Write ("Este es el resultado de tu búsqueda:
")
Response.Write ("" & rstLookup ("term") & "
")
Response.Write ("" & rstLookup ("definition") & "
")
rstLookup.MoveNext
Wend
Set rstLookup = Nothing
' Do the same for the other 2 keyword fields.
sqlLookup = "select term, definition from Terms where keyword2 = '" & _
strKeyword & "' and published = Yes"
Set rstLookup = cnnDB.Execute (sqlLookup, adCmdText)
While Not rstLookup.EOF
Response.Write ("
" & rstLookup ("term") & "
")
Response.Write ("" & rstLookup ("definition") & "
")
rstLookup.MoveNext
Wend
Set rstLookup = Nothing
sqlLookup = "select term, definition from Terms where keyword3 = '" & _
strKeyword & "' and published = Yes"
Set rstLookup = cnnDB.Execute (sqlLookup, adCmdText)
While Not rstLookup.EOF
Response.Write ("
" & rstLookup ("term") & "
")
Response.Write ("" & rstLookup ("definition") & "
")
rstLookup.MoveNext
Wend
Set rstLookup = Nothing
sqlLookup = "select term, definition from Terms where keyword1 = '" & _
strKeyword & "' and published = No"
Set rstLookup = cnnDB.Execute (sqlLookup, adCmdText)
While Not rstLookup.EOF
Response.Write ("
")
rstLookup.MoveNext
Wend
Set rstLookup = Nothing
End If
%> |
|
|
|
|
| Regreso > |
| ¿No encuentras alguna palabra que búscas? Envíanos un email y te
la encontraremos. |
|
|
|
|
