<%
Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
sql = "SELECT * FROM colloqui WHERE id =" & cod
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)



%>


<form onsubmit="return checkForm(this)" name="sampleform" method="post" action="data-process.asp?cod=<%=cod%>" >


<%CtrlDate "DataScadenza","normales"%>

<input type="hidden" name="datascadenza_precedente" value="<%=Rec("datascadenza")%>">

<input type="TEXT" name="datascadenza1" value="<%=Rec("datascadenza")%>">


</form>

su controls.asp
<%

Public Sub CtrlDate(ByVal sCtrlName,ByVal sClassName)

%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" name="<%=sCtrlName%>_Day" maxlength="2" style="width:25;" class="<%=sClassName%>" onchange="verifyCalendar('<%=sCtrlName%>');"></td>
<td>/</td>
<td><input type="text" name="<%=sCtrlName%>_Month" maxlength="2" style="width:25;" class="<%=sClassName%>" onchange="verifyCalendar('<%=sCtrlName%>');"></td>
<td>/</td>
<td><input type="text" name="<%=sCtrlName%>_Year" maxlength="4" style="width:40;" class="<%=sClassName%>" onchange="verifyCalendar('<%=sCtrlName%>');"></td>
<td></td>
<td>[img]calendarsmall.gif[/img]')"></td>
</tr>
</table>
<%

End Sub
%>