<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#INCLUDE FILE="adovbs.inc" -->
<html>
<head>
<title>Amministrazione - Modifica News</title>
<link rel="stylesheet" href="./stile.css" type="rext/css">
</head>
<style>
body {scrollbar-face-color: #417fc0}
</style>
<script language="javascript" type="text/javascript">
function chiudere()
{
if (confirm("Sei veramente sicuro al 100% di voler lasciare questa splendida pagina?"))
{
self.close();
}
}
</script>
<body>
<%
if Session("utente")="Approvato" then
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-Database/database.mdb")
set rs1 = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
set rs4 = Server.CreateObject("ADODB.Recordset")
temp=abs(request.querystring("temp"))
id=request.querystring("id")
data4=trim(request.querystring("g")+"/"+request.querystring("m")+"/"+request.querystring("y"))
titolo4=request.querystring("titolo")
corpo4=request.querystring("corpo")
select case temp
case 1
sql1 = "delete from News where ID_News="+id
response.write(sql1)
rs1.open sql1,conn,adOpenKeyset,adLockOptimistic
response.write("ELEMENTO CANCELLATO")
%>
<script Language="javascript">
alert("RECORD ELIMINATO!")
window.opener.location.reload()
self.close()
</script>
<%
case 2
sql2 = "select * from News where ID_News="+id
rs2.open sql2,conn,adOpenKeyset,adLockOptimistic
data=rs2.fields("Data_Inserimento")
giorno=day(data)
mese=month(data)
anno=year(data)
id=rs2.fields("ID_News")
titolo=rs2.fields("Titolo")
corpo=rs2.fields("Corpo")
case 3
data=date()
giorno=day(data)
mese=month(data)
anno=year(data)
id=0
titolo=""
corpo=""
case 4
if (id=0) then
sql4 = "insert into News ([Titolo], [Corpo], [Data_Inserimento]) values('"+titolo4+"', '"+corpo4+"', '"+data4+"')"
else
sql4 = "update News set [Titolo]='"+titolo4+"', [Corpo]='"+corpo4+"', [Data_Inserimento]='"+data4+"' where ID_News = "+id
end if
response.write(sql4)
conn.execute(sql4)
%>
<script Language="javascript">
alert("RECORD AGGIORNATO!")
window.opener.location.reload()
self.close()
</script>
<%
case else
response.write("SCELTA NON DISPONIBILE")
end select
if ((temp=2)or(temp=3)) then
%>
<form action="./news.asp" method="get">
<table>
<tr>
<td width="150px">Data</td>
<td><input type="text" name="g" size="1" maxlength="2" value="<%=giorno%>"> / <input type="text" name="m" size="1" maxlength="2" value="<%=mese%>"> / <input type="text" name="y" size="2" maxlength="4" value="<%=anno%>"></td>
</tr>
<tr>
<td>Titolo</td>
<td><input type="text" name="titolo" size="45" maxlength="35" value="<%=titolo%>"></td>
</tr>
<tr>
<td valign="top">Corpo</td>
<td><textarea name="corpo" rows="5" cols="50"><%=corpo%></textarea></td>
</tr>
</table>
<table>
<tr>
<td width="150"></td>
<td width="130"><input type="hidden" name="temp" value="4"><input type="hidden" name="id" value="<%=id%>"><input type="submit" value="aggiorna"></td>
<td width="130"><input type="button" value="abbandona" onclick="chiudere()"></td>
<td width="130"><button type="reset">reset valori</button</td>
</tr>
</table>
</form>
<%
end if
else
response.redirect("./accesso.asp")
end if
%>
</body>
</html>
questa è una form che agisce su se stessa con asp incluso
