 |  | |
|
| | |
|
| |
PAGINE ASP: AGGIORNAMENTO
AGGIO.HTML
<HTML>
<HEAD>
<TITLE>AGGIORNAMENTO DI RECORD CON SQL</TITLE>
</HEAD>
<BODY>
<H3>AGGIORNAMENTO DI RECORD</H3>
<FORM METHOD="POST" NAME="FORM1" ACTION="/SCRIPTS/AGGIORNAMENTO.ASP">
<P><B>CODICE</B><BR>
<INPUT TYPE="TEXT" SIZE="10" NAME="CODICE"><BR>
<P><INPUT TYPE="SUBMIT" VALUE="INVIA" NAME="B1">
<INPUT TYPE="RESET" VALUE="ANNULLA" NAME="B2"></P>
</FORM>
</BODY>
</HTML>
AGGIO.ASP
<%@ LANGUAGE= VBSCRIPT %>
<% OPTION EXPLICIT %>
<%
DIM CONN
DIM RS
DIM STRCONN
DIM STRSQL
STRCONN="PROVIDER=MICROSOFT.JET.OLEDB.4.0:DATA SOURCE="
STRCONN= STRCONN + SERVER.MAPPATH("RUBRICA.MDB")
SET CONN= SERVER.CREATEOBJECT("ADODB.CONNECTION")
SET RS= SERVER.CREATEOBJECT("ADODB.RECORDSET")
CONN.OPEN STRCONN
STRSQL="SELECT * FROM ANAGRAFE WHERE ID = " & REQUEST.FORM("CODICE")
SET RS = CONN.EXECUTE(STRSQL)
%>
<HTML>
<HEAD>
<TITLE>AGGIORNA TABELLA</TITLE>
</HEAD>
<BODY>
<H3>AGGIORNAMENTO DEI RECORD</H3>
<FORM METHOD="POST" NAME="FORM1" ACTION="/SCRIPTS/REGISTRA.ASP">
<TABLE>
<TR>
<TD><B>CODICE</B></TD>
<TD><INPUT TYPE="TEXT" SIZE="10" NAME="ID"
VALUE="<% =RS("ID")%>"></TD>
<TD><B>COGNOME</B></TD>
<TD><INPUT TYPE="TEXT" SIZE="10" NAME="COGNOME"
VALUE="<%=RS("COGNOME")%>"></TD>
<TD><B>
<TD><INPUT TYPE="TEXT" SIZE="10"
NAME="
VALUE="<%=RS("
<TD><B>TELEFONO</B></TD>
<TD><INPUT TYPE="TEXT" SIZE="10" NAME="TELEFONO"
VALUE="<%=RS("TELEFONO")%>"></TD>
</TR>
<TR>
<TD><INPUT TYPE="SUBMIT" VALUE="INVIA" NAME="B1">
<INPUT TYPE="RESET" VALUE="ANNULLA" NAME="B2"></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
<%
RS.CLOSE
CONN.CLOSE
SET RS=NOTHING
SET
%>
REGISTRA.ASP
<%@ LANGUAGE= VBSCRIPT %>
<% OPTION EXPLICIT %>
<%
DIM CONN
DIM STRCONN
DIM STRSQL
STRCONN="PROVIDER=MICROSOFT.JET.OLEDB.4.0:DATA SOURCE="
STRCONN= STRCONN + SERVER.MAPPATH("RUBRICA.MDB")
SET CONN= SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONN.OPEN STRCONN
STRSQL="UPDATE ANAGRAFE"
STRSQL=STRSQL & "SET ANAGRAFE.COGNOME='" & REQUEST.FORM("COGNOME") & "',"
STRSQL=STRSQL & "SET ANAGRAFE.NOME='" & REQUEST.FORM("NOME") & "',"
STRSQL=STRSQL & "SET ANAGRAFE.TELEFONO='" & REQUEST.FORM("TELEFONO") & "'"
STRSQL=STRSQL & WHERE ANAGRAFE.ID="& REQUEST.FORM("ID")
CONN.EXECUTE(STRSQL)
CONN.CLOSE
SET
%>
<HTML>
<HEAD>
<TITLE>CONFERMA DELL'AGGIORNAMENTO</TITLE>
</HEAD>
<BODY>
<% RESPONSE.WRITE "IL RECORD E' STATO AGGIORNATO" %>
<P><A HREF="/AGGIO.HTML">RITORNA ALLA RICHIESTA DEL CODICE DA AGGIORNARE</A>
<P>
</BODY>
</HTML>
|
Privacy |
Articolo informazione
Commentare questo articolo:Non sei registratoDevi essere registrato per commentare ISCRIVITI |
Copiare il codice nella pagina web del tuo sito. |
Copyright InfTub.com 2024
