Vi spiego e poi posto il codice:
visualizzo i dati prendendoli da un database ( parte 1 e parte 2 )
creo una form per inviare una mail (parte 3).
Per recuperare l'indirizzo del destinatario lo faccio spuntare in un campo di testo della form , ma quando cerco di recuperarlo con un request.form mi da errore.....



parte 1
codice:
Dim strSQL , email
email=request.queryString("email")
Set objConn = Server.CreateObject("ADODB.Connection")
       objConn.Open ="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="& Server.MapPath("/mdb-database/db_utenti.mdb") 
         strSQL = "SELECT * FROM schede WHERE email ='" & email & "'"
	           Set objRS = Server.CreateObject("ADODB.Recordset")
			     objRS.CursorLocation = 3
	 		     objRS.Open strSQL, objConn, 3, 3

parte 2
codice:
<table>
  <tr> 
    <td> Cognome 
      <input name="cognome" value="<%=Objrs("cognome")%>"readonly></td>
    <td> Nome 
      <input name="nome" value="<%=Objrs("nome")%>"readonly></td></td>
  </tr>
  <tr> 
    <td> Email 
      <input name="citta" value="<%=Objrs("email")%>"readonly></td>
    <td> citta 
      <input name="nome" value="<%=Objrs("citta")%>"readonly></td></td>
  </tr>
</table>

............ecc.. ecc...
nella stessa pagina ho anche questa form

parte 3
codice:
	<form action="formcdosys.asp" method="post" name="form1">
		<font face="Verdana" size="2">Compila il modulo per contattare</font> <input name="destinatario" id="destinatario" value="<%=Objrs("email")%>" size="20" maxlength="30"readonly>[/b]</font>[/b]</font>[/b]
  

  cognome 
  <input name="cognome_mail" type="text" id="cognome_mail">
  

  nome
<input name="nome_mail" type="text" id="nome_mail">
  

  email 
  <input type="text" name="email">
  

  <textarea name="messaggio_mail" cols="33" rows="5" wrap="VIRTUAL" id="messaggio_mail"></textarea>
        
		<input type="submit" name="Submit" value="Invia">
	</form>
che mi rimanda al file formcdosys.asp

parte 4

codice:
DIM corpoMessaggio, numeroCampi, invioA, invioDa
invioA = request.Form(destinatario)  
invioDa = "info@miosito.it"

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
...... ecc...ecc....


codice:
Request object error 'ASP 0102 : 80004005' 

Expecting string input 

/public/visualizza/formcdosys.asp, line 13 

The function expects a string as input.
(in rosso sopra la linea 13)