codice:
<%@Language="VBScript"%> 
<%Response.Buffer = True%> 
<% 
Dim oRS, oConn 
Set oRS = Server.CreateObject("ADODB.Recordset") 
Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("offerte.mdb") 
oConn.Open 
strSQL="SELECT * FROM Giancesare " 
oRS.Open strSQL, oConn 
if not oRS.Eof then %>
<form method="POST" action="invio_mail.asp"> 
Do while not oRS.EOF%> 


 
<input type="text" name="T1" size="20" value="<%Response.Write(oRS("Disponibilita"))%>"></p>
<%oRS.MoveNext 
Loop%> 


<input type="submit" value="Invia" name="B1" /></p> 
</form>
<%end if 
Set oRS = Nothing 
oConn.Close 
Set oConn = Nothing 
%>
Roby