Risultati della ricerca

<% dim inChiave dim oRS dim sql inChiave = Request.QueryString("parola3") set oRS = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM articoli WHERE data = '" & inChiave & "' ORDER BY titolo;" oRS.open sql, "DSN=progetto" oRS.MoveFirst If oRS.EOF Then Response.Write "

Il record cercato non esiste nel Data Base

" Else Do While Not oRS.EOF Response.Write "" Response.Write oRS("titolo") Response.Write "
" Response.Write oRS("nome") Response.Write oRS("cognome") Response.Write "
" Response.Write "" Response.Write oRS("url") Response.Write "
" Response.Write oRS("data") Response.Write "
" Response.Write oRS("abstract") Response.Write "

" oRS.MoveNext Loop End If oRS.Close Set oRS=nothing %>

Site home [Informazioni] [Autori] [Articoli] [Registrati]

Administrator: susannap@libero.it Last update: