dotNetHell.it - Forum - Codice Sorgente


<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/prese.asp" -->
<%
Dim chiave
chiave=request.QueryString("classe")
%>

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>

<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>


<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_prese_STRING
    MM_editCmd.CommandText = "INSERT INTO Presenze (ID_Alunno, DataPresenza, Presente, Ritardi, altrecomunic) VALUES (?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("ID_Alunno")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("DataPresenza")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, MM_IIF(Request.Form("Presente"), "1", "0")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("Ritardi")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("altrecomunic")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "login.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim listaalunni
Dim listaalunni_cmd
Dim listaalunni_numRows

Set listaalunni_cmd = Server.CreateObject ("ADODB.Command")
listaalunni_cmd.ActiveConnection = MM_prese_STRING
listaalunni_cmd.CommandText = "SELECT Alunni.*, classi.ID_Classe, classi.NomeClasse FROM Alunni INNER JOIN classi ON Alunni.ID_Classe = classi.ID_Classe WHERE classi.ID_Classe='" & chiave & "'"
listaalunni_cmd.Prepared = true

Set listaalunni = listaalunni_cmd.Execute
listaalunni_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
listaalunni_numRows = listaalunni_numRows + Repeat1__numRows
%>


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento senza titolo</title>
</head>

<body>

<form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
  <table bordercolor="#000000" width="906" border="1" cellspacing="0" cellpadding="2">
    <tr>
      <th width="24">ID:</th>
      <th width="390">Cognome e Nome</th>
      <th width="120">DataPresenza</th>
      <th width="59">Presente</th>
      <th width="120">Ritardi</th>
      <th width="193">Altrecomunic</th>
    </tr>
    <% 
While ((Repeat1__numRows <> 0) AND (NOT listaalunni.EOF)) 
%>
  <tr onmouseover="this.style.background='#09F'" onmouseout="this.style.background='white'">
    <td><label>
      <input name="ID_Alunno" type="text" id="ID_Alunno" value="<%=(listaalunni.Fields.Item("ID_Alunni").Value)%>" size="4" readonly="readonly" />
    </label></td>
    <td><%=(listaalunni.Fields.Item("CognomeNome").Value)%></td>
    <td><input type="text" name="DataPresenza" value="<%=giorno & "/" & mese & "/" & anno%>" size="20" /></td>
    <td><label>
      <input name="Presente" type="checkbox" id="Presente" value="0" checked="checked" />
    </label></td>
    <td><input type="text" name="Ritardi" value="" size="20" /></td>
    <td><input type="text" name="altrecomunic" value="" size="32" /></td>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  listaalunni.MoveNext()
Wend
%>
  </table>
  <p align="center">
    <input type="submit" value="Inserisci" />
  </p>
  <input type="hidden" name="MM_insert" value="form1" />
</form>
<p>&nbsp;</p>
</body>
</html>
<%
listaalunni.Close()
Set listaalunni = Nothing
%>