codice:
<%'creo la connessione e mi connetto al database
dim dbconn
Set dbconn = Server.CreateObject("ADODB.Connection")
strconn= "driver={Microsoft Access Driver (*.mdb)}; dbq=" &Server.MapPath("\mdb-database\database.mdb")&"; Persist Security Info = False"
DBconn.Open strConn%>
<%
data=request.form("data")
titolo=request.form("titolo")
abstract=request.form("abstract")
testo=request.form("testo")
autore=request.form("autore")
nometabella=request.form("radiobutton")
if nometabella="news" then
sql="Insert into news (data, titolo, abstract, testo, autore) values('"data"','"titolo"','"abstract"','"testo"','"autore"')"
response.write "Inserito correttamente nella tabella news"
end if%>
<%if nometabella="articoli" then
sql="Insert into articoli (data, titolo, abstract, testo, autore) values('"data"','"titolo"','"abstract"','"testo"','"autore"')"
response.write "Inserito correttamente nella tabella articoli"
end if%>
<% if nometabella="recensioni"
sql="Insert into recensioni (data, titolo, abstract, testo, autore) values('"data"','"titolo"','"abstract"','"testo"','"autore"')"
response.write "Inserito correttamente nella tabella recensioni"
end if%>
<% if nometabella="tornei"
sql="Insert into tornei (data, titolo, abstract, testo, autore) values('"data"','"titolo"','"abstract"','"testo"','"autore"')"
response.write "Inserito correttamente nella tabella tornei"
end if%>
<% 'chiudo la connessione al database
dbconn.close
set dbconn=nothing%>
</body>
</html>
Dimmi che cosa ne pensi...