<% dim oRs dim sql dim inTitolo, inNone, inCognome, inUrl, inData, inAbstract, inPsw, inLogin inPsw=Request.Form("pass") inLogin=Request.Form("login") inTitolo=Request.Form("titolo") inNome=Request.Form("nome") inCognome=Request.Form("cognome") inUrl=Request.Form("url") inData=Request.Form("data") inAbstract=Request.Form("abstract") Set oRS=Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM utenti WHERE (((utenti.login)='" & inLogin & "') AND ((utenti.password)='" & inPsw & "'));" oRS.open sql, "DSN=progetto" If oRS.EOF Then Response.Write "
Per aggiungere articoli devi essere registrato
" Response.Write "
Registrati
" Response.Write "
Ritenta
" Else Set oRS=Server.CreateObject("ADODB.recordset") sql = "INSERT INTO articoli (titolo,nome,cognome,url,data,abstract) VALUES('" & inTitolo & "','" & inNome & "','" & inCognome & "','" & inUrl & "','" & inData & "','" & inAbstract & "');" oRS.open sql, "DSN=progetto" Response.Write "" Response.Write "
Grazie!
" Response.Write "
Aggiungi un altro articolo
" Response.Write "
" Response.Write Chr(10) & Chr(13) End If %>
[
Informazioni
] [
Autori
] [
Articoli
] [
Registrati
]
Administrator:
susannap@libero.it
Last update:
