ma scusa , la stringa sql che la valorizzi a frare
con il request.queristring se poi non la usi ?
prova così
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/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>
<script language="JavaScript" type="text/JavaScript">
<function elimina()
{
return confirm("Are you sure that you want delate this record?");
}
</script>
<script type="text/javascript">
function apri(url) {
newin = window. open(url,'title','scrollbars=auto,resiza
ble=yes, width=470,height=400,status=no,location=
no,toolbar=no');
}
</script>
<script type="text/javascript">
function apri1(url) {
newin1 = window. open(url,'title','scrollbars=auto,resiza
ble=yes, width=100,height=100,status=no,location=
no,toolbar=no');
}
</script>
<%
sql= "SELECT * FROM MessageBoard where destinatario='" & Namereq & "' "
if Request.QueryString("Data") <> "" then
strSql = strSql & Request.QueryString("Data")
else
strSql = strSql & " order by IdMessageBoard desc"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,1,3
%>
<style type="text/css">
<!--
.style7 {
font-size: 9px;
font-family: Arial, Helvetica, sans-serif;
}
.style8 {font-size: 8px}
.style9 {font-size: 18px}
.style10 {font-family: Arial, Helvetica, sans-serif}
.style11 {
font-size: 12px;
font-family: Arial, Helvetica, sans-serif;
}
-->
</style>
</head>
<body>
<table width="100%" cellpadding="0" cellspacing="0" style="border: Solid 1px #000000;">
<tr bgcolor="#CCCCCC" border="1">
<td width="1" height="40"> </td>
<td width="25" valign="middle"><div align="left">[img]images/button_addevent.gif[/img]</div></td>
<td width="91" valign="middle"><span class="style11">New Message</span></td>
<td width="18" valign="middle"><div align="center">[img]images/SentMessage.gif[/img]</div></td>
<td width="86" valign="middle"><span class="style11">Sent Message </span></td>
<td width="15" valign="middle">[img]aspWebCalendar_4_5_2/calendar/images/button_refresh.gif[/img]</td>
<td width="52" valign="middle"><span class="style11">Refresh</span></td>
<td width="7"> </td>
<td width="453" valign="middle" class="style9">INBOX</td>
</tr>
</table>
<table width="100%" cellpadding="0" cellspacing="0" style="border: Solid 1px #000000;">
<tr class="style8">
<td height="24"> </td>
<td align="left" valign="middle"><span class="style7">">Date</span> <span class="style7">[img]images/ordinamento.gif[/img]</span></td>
<td> </td>
<td align="left" valign="middle"><span class="style7">From</span></td>
<td> </td>
<td align="left" valign="middle" class="style8"><span class="style7">Type</span></td>
<td> </td>
<td align="left" valign="middle"><span class="style7">Title</span></td>
<td> </td>
<td colspan="2" align="left" valign="middle"><span class="style7">Descrption</span></td>
<td> </td>
<td align="center" valign="middle"><span class="style7">Read</span></td>
<td> </td>
<td align="center" valign="middle"><span class="style7">On Hold </span></td>
<td> </td>
<td align="center" valign="middle"><span class="style7">Done</span></td>
<td> </td>
<td align="center" valign="middle"><span class="style7">Change Status </span></td>
</tr>
<%
do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#00FF99"
intSfondo="#FFFFFF"
else
intVolta="1"
intTesto="#FFFF99"
intSfondo="#EEEEEE"
end if
%>
<tr bgcolor="<%=intSfondo%>" class="style8">
<td height="20"></td>
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(2)%></span></td>
<td> </td>
<td align="left" valign="middle" class="style7"><span class="style7"><%'estrainome(3)%><%=rs(1)%></span></td>
<td> </td>
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(3)%></span></td>
<td> </td>
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(5)%></span></td>
<td> </td>
<td align="left" valign="middle" class="style7"><span class="style7"><%=rs(6)%></span></td>
<td> </td>
<form method="post" action="ControlStatus6.asp">
<TD align="center" valign="middle">
<input type="hidden" name="IdMessage" value="<%=RS("IDMessageBoard")%>">
<td align="center" valign="middle">
<%
If rs("Read") = 1 then
check = " checked"
Else
check = ""
End If
%>
<input <%If rs("Read") Then Response.Write("checked") %> type="checkbox" name="Read" value=1<%=check%> > </td>
<td> </td>
<td align="center" valign="middle">
<%
If rs("OnHold") = 1 then
check = " checked"
Else
check = ""
End If
%>
<input <%If rs("OnHold") Then Response.Write("checked") %> type="checkbox" name="OnHold" value=1<%=check%> > </td>
<td> </td>
<td align="center" valign="middle">
<%
If rs("Done") = 1 then
check = " checked"
Else
check = ""
End If
%>
<input <% If rs("Done") Then Response.Write("checked") %> type="checkbox" name="Done" value=1<%=check%> > </td>
<td> </td>
<TD align="center" valign="middle">
<input name="Submit" type="image" title="go" src="images/skin/icon024.gif" alt="change status" align="left" width="16" height="16" border="0">
</form>
</tr>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
%>
</table>
</body>
</html>