Che figura!!!!!!!!!!Scusami ma oltre a conoscere ora l'asp è anche la prima volta che entro in un forum!!!!!
Ti ringrazio per la tua disponibilità. Questo è il codice:
FRAMESET chiamato DEFAULT.ASP
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<script language="JavaScript">
<!--
function SymError()
{
return true;
}
window.onerror = SymError;
//-->
</script>
<SCRIPT language="JavaScript">
<!-- START
if (top.frames.length!=0)
top.location=self.document.location;
self.moveTo(0,0)
self.resizeTo(screen.availWidth,screen.availHeight)
// END -->
</script>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<frameset rows="80,*" cols="*" frameborder="NO" border="0" framespacing="0">
<frame src="top.asp" name="topFrame" scrolling="NO" noresize >
<frameset cols="80,*" frameborder="NO" border="0" framespacing="0">
<frame src="left.asp" name="leftFrame" scrolling="NO" noresize>
<frame src="content.asp" name="contentFrame">
</frameset>
</frameset>
<noframes><body>
</body></noframes>
</html>
QUESTO è DEL FRAME CONTENT.ASP CHE CONTIENE I RECORDS DA VISUALIZZARE....
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Modifica Nuovo Record </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#F4FFFF">
<form method="post" action="modif1.asp">
<table width = "95%" border = "0" cellpadding="0" cellspacing="0">
<tr>
<td coslpan="7" height = "70"></td>
</tr>
<tr>
<td width="5%"></td>
<td width="15%" valign="middle" align="right"><div align="center"><font size="3" face="Comic Sans MS" color="#006699"><b>Cognome:</b></font></div></td>
<td width="15%" valign="middle" align="left"> </td>
<td width="15%" valign="middle" align="right"><div align="center"><font size="3" face="Comic Sans MS" color="#006699"><b>Nome :</b></font></div></td>
<td width="15%" valign="middle" align="left"> </td>
<td width="15%" valign="middle" align="right"><div align="center"><font size="3" face="Comic Sans MS" color="#006699"><b>età :</b></font></div></td>
<td width="15%" valign="middle" align="left"> </td>
</tr>
<tr>
<td coslpan="7" height = "20"></td>
</tr>
<%
dim Conn
dim Rs
Set Conn = server.CreateObject("ADODB.Connection")
set Rs = server.CreateObject("ADODB.RecordSet")
Conn.open "anag_o"
Sql = "SELECT * FROM anag ORDER BY id"
Rs.open Sql, Conn, 3, 3
do while not Rs.eof
%>
<tr>
<td width="5%"><input type="checkbox" name="ID" value="<% =rs("id") %>"></td>
<td width="15%" valign="middle" align="right"><% =rs("cogn") %></td>
<td width="15%" valign="middle" align="left"> </td>
<td width="15%" valign="middle" align="right"><% =rs("nome") %></td>
<td width="15%" valign="middle" align="left"> </td>
<td width="15%" valign="middle" align="right"><% =rs("eta") %></td>
<td width="15%" valign="middle" align="left"> </td>
</tr>
<%
Rs.MoveNext
Loop
Rs.close
set Rs = nothing
Conn.close
Set Conn = nothing
%>
<tr>
<td coslpan="7" height = "20"></td>
</tr>
<tr>
<td width="5%"></td>
<td width="15%" valign="middle" align="right"> </td>
<td width="15%" valign="middle" align="left"> </td>
<td width="15%" valign="middle" align="right"> </td>
<td width="15%" valign="middle" align="left"> </td>
</tr>
<tr>
<td coslpan="7" height = "70"></td>
</tr>
<tr>
<td width="5%"></td>
<td colspan="3" valign="middle" align="center"><input type="submit" name="ins" value="Scelta"></td>
<td colspan="3" valign="middle" align="center"><input type="reset" name="ann" value="Annulla"></td>
</tr>
</table>
</form>
</body>
</html>
... NON TI RINGRAZIERò MAI ABBASTANZA ....
CIAO
