<% Dim oRS Dim sql Dim inpTitolo inpTitolo = CStr(Request.QueryString("listaTit")) Set oRS = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM articoli WHERE titolo='" & inpTitolo & "';" oRS.Open sql, "DSN=progetto" oRS.MoveFirst If oRS.EOF Then Response.Write "

Interrogazione fallita

" Response.Write "
L'articolo selezionaro non esiste
BR>" Response.Write "Modifica un altro articolo" Else Do While NOT oRS.EOF Response.Write "

Aggiorna i dati e premi Modifica

" Response.Write Chr(10) & Chr(13) Response.Write "
" Response.Write Chr(10) & Chr(13) Response.Write "" Response.Write Chr(10) & Chr(13) Response.Write "" Response.Write "" Response.Write Chr(10) & Chr(13) Response.Write "" Response.Write "" Response.Write Chr(10) & Chr(13) Response.Write "" Response.Write "" Response.Write Chr(10) & Chr(13) Response.Write "" Response.Write "" Response.Write Chr(10) & Chr(13) Response.Write "" Response.Write "" Response.Write Chr(10) & Chr(13) Response.Write "" Response.Write "" Response.Write Chr(10) & Chr(13) Response.Write "" Response.Write Chr(10) & Chr(13) Response.Write "
Titolo" & oRS("titolo") & "" Response.Write "
Nome Autore
Cognome autore
Anno
URL
Abstract
" Response.Write Chr(10) & Chr(13) Response.Write " " Response.Write Chr(10) & Chr(13) Response.Write "
" oRS.MoveNext Loop End IF 'chiudo la connessione con il DB e rilascio la memoria oRS.Close Set oRS=Nothing %>


Site home [Informazioni] [Autori] [Articoli] [Registrati]
Administrator: susannap@libero.it Last update: