ok ecco le due pagine....
NewmessageBoard.asp viene controllata da ControlNewMessageBoard.asp

NewMessageBoard.asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<%session.lcid=2057%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>New Message</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
}
-->
</style>

</head>

<body>



<form name="NewMessage" method="post" action="ControlNewMessageBoard.asp">
<input type="hidden" name="Data" id="Name" value="<%=(FormatDateTime(date(),vbgeneraldate))%> ">

<table width="392" align="left" cellpadding="1" cellspacing="0" style="border: Solid 1px #000000;">

<tr align="center" valign="middle" bgcolor="#FF0000" border="1">
<td height="30" colspan="8" align="center" valign="middle"><div align="center" class="style1">Send New Message</div></td>
</tr>
<tr align="center" valign="middle" bgcolor="#FF0000" border="1">
<td width="85" height="37"></td>
<td width="1"></td>
<td width="113"></td>
<td width="47"></td>
<td width="3"></td>
<td width="43"></td>
<td width="15"></td>
<td width="51"></td>
</tr>

<tr border="1">
<td height="26" valign="top" bgcolor="#CCCCCC">Type</td>
<td colspan="3" valign="top" bgcolor="#FFFFFF">
<select name="Type" size="1" class="inputbox" id="Type" value="">
<option></option>
<%
sql = "SELECT IdType,Type FROM TypeMessage ORDER BY Type"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
'rs.movefirst
Dim passaggio

Passaggio = Request.Form("Type")
if Passaggio="" then Passaggio=0
dim prova
do while not(rs.eof)
%>
<option value="<%=rs.fields("Type")%>"
<%
prova=rs(0)
if cint(prova)=cint(passaggio) then response.write " selected "
%>


><%=rs.fields("Type")%></option>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
%>
</select></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="30" valign="top" bgcolor="#CCCCCC">Send To</td>
<td colspan="2" valign="top">

<select name="To" size="1" id="To">
<option></option>
<%
sql = "SELECT IdStaff,Name FROM Staff ORDER BY Name"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.movefirst
do while not(rs.eof)
%>
<option value="<%=rs.fields("Name")%>"><%=rs.fields("Name" )%></option>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
%>

</select></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</TR>
<tr>

<td height="30" valign="top" bgcolor="#CCCCCC">Send To Area</td>
<td colspan="2" valign="top">
<select name="ToArea" size="1" id="ToArea">
<option></option>
<option>Administration</option>
<option>Company</option>
<option>Customer Service</option>
<option>Manager</option>
<option>Sales</option>
<option>Service</option>
</select>
</td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr><td height="27" valign="top" bgcolor="#CCCCCC">Title</td>
<td colspan="3" valign="top"><input name="title" type="text" id="title" value="" ></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="top" bgcolor="#CCCCCC">Description</td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="111" colspan="7" valign="top"><textarea name="description" cols="50" rows="5" id="description" value=""></textarea></td>
<td></td>
</tr>
<tr>
<td height="36"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td valign="top"><input name="Submit" type="submit" id="Submit" value="Send"></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="3"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table>
</form>
</body>
</html>


ControlNewMessageBoard.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<%session.lcid=2057%>
<html>
<head>

<%
Dim CC
CC= request.form("ToArea")
select case CC
case "Administration"
response.write "Administration"
case "Company"
response.write "Company"
case "Customer Service"
response.write "Customer Service"
case "Manager"
response.write "Manager"
case "Sales"
response.write "Sales"
case "Service"
response.write "Service"
case else
response.write ""
end select
%>
<%
sql = "SELECT * FROM MessageBoard "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,1,3

RS.Addnew
Rs.fields("Data") = request("Data")
RS.fields("Type") = request("Type")
RS.fields("To") = request("To")
'RS(CC) = request("ToArea")
RS.fields("ToArea") = request("ToArea")
RS.fields("Title") = request("Title")
RS.fields("Description") = request("Description")
RS.update

rs.Close
set rs = Nothing

%>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body onLoad="window.alert('The contact has been edit!!!')">
</body>
</html>


Grazie mille, ciao