Allora prima domanda
Elenco dei docenti di una materia prefissata
Io ho fatto: chiediMateria.asp
<%@LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<% dim conn
dim rs
dim stringaSql
%>
<html>
<head>
<title>Ricerca docenti</title>
</head>
<body>
<%
' crea oggetto connection
set conn = server.createobject("adodb.connection")
' provider
conn.provider="microsoft.jet.oledb.4.0"
conn.open (server.mappath("es1.mdb"))
'crea RECORDSET
set rs=server.createobject("adodb.recordset")
' comando sql
stringasql="select distinct descriz from materie order by descriz"
rs.open stringasql, conn
%>
<form method="post" action ="../per%20verificA/Marcandalli/docenti.asp">
scegli materia:
<select name="materia" id="materia">
<% do until rs.eof
response.write("<option>")
response.write (rs.fields("descriz"))
rs.movenext
loop
rs.close
conn.close
%>
</select>
<input type="submit" value="invia">
<input type="reset" value="annulla">
</form>
</body>
</html>
Docenti.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<% option explicit %>
<%dim stringaSql
dim conn
dim rs
dim i
dim codice
codice = request.Form("materia")
%>
<html>
<head>
<title>Lista dei docenti</title>
</head>
<body>
<% set conn=server.CreateObject("adodb.connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open(server.MapPath("dbnov2005.mdb"))
set rs=server.CreateObject("adodb.recordset")%>
<%
stringaSql = "Select * From docenti Where codMat = '" & codice & "'"
rs.open stringaSql, conn %>
<center>
<h2>Lista dei docenti che insegnano <% =codice %></h2>
</center>
<table border="1" width ="70%">
<tr>
<%for each i in rs.fields
response.Write("<th>" & i.name & "</th>")
next %>
</tr>
<% do until rs.eof %>
<tr>
<%for each i in rs.fields%>
<td>
<%response.Write(i.value)%> </td>
<%next
rs.movenext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
Numero docenti di sesso femminile
chiediSesso.htm
<html>
<head>
<title>Scelta sesso</title>
</head>
<body>
<form action="ContaDocenti.asp" method="post"/>
sesso:<input type ="text" name="sesso" size="20"/>
<input type ="submit" value="Cerca" size="5"/>
<input type ="reset" value="Annulla" size="5"/>
</form>
</body>
</html>
contaDocenti.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<% Option Explicit
dim conta
dim conn
dim rs
dim strconn
dim filepath
codice = request.Form("sesso")
filepath = Server.MapPath("es1.mdb")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn
Set rs = conn.Execute("SELECT cognome, nome FROM docenti where sesso='"&(request.Form("sesso"))&"'")
conta=0
%>
<HTML>
<HEAD><TITLE>Numero docenti di sesso femminile</TITLE></HEAD>
<BODY bgcolor="#FFFFCC">
<P>
<TR><% For i =0 to (rs.fields.count-1) %>
<TD width="17"><b>
<% = rs(i).Name %>
</b> </TD>
<% Next %>
</TR>
<%
response.Write(conta)
conn.close
set conn = nothing
set rs = nothing
%>
</div>
</BODY>
</HTML>
Elimina docenti con più di numero anni prefissato di servizio
anniServ.htm
<HTML>
<HEAD><TITLE>Elimina docenti </TITLE></HEAD>
<BODY>
<H3>Elimina docenti</H3>
<FORM METHOD="post" ACTION="elimina.asp">
<P><STRONG>elimina docenti con più di</STRONG>
<INPUT TYPE="text" SIZE="10" NAME="anni">
anni di servizio
<P>
<input type="submit" value="Invia" name="b1">
<input type="reset" value="Annulla" name="b2">
</FORM>
</BODY>
</HTML>
Elimina.asp
<%@ LANGUAGE = VBScript%>
<% Option Explicit
dim conn
dim strsql
dim strconn
dim filepath
dim idut
anniServ = request("anni")
filepath = Server.MapPath("studenti.mdb")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn
strsql = "DELETE FROM docenti WHERE (DateDiff("n",Date,"annoInizioServ") & "<br />") = " & idut & " "
conn.Execute(strsql)
conn.close
set conn = nothing
%>
<HTML>
<HEAD><TITLE>Eliminazione di un record</TITLE></HEAD>
<BODY>
<H2><% = "Il record è stato eliminato" %></H2>
<P><A HREF="../../Impostazioni%20locali/Temp/cancella.htm">Torna alla pagina elimina</A>
</BODY>
</HTML>
Spero di avere beccato qualcosa sai sono proprio negata nelle pag aspo fammi sapere mart le consegno
