errore durante invio mail

[Mr.Fabio]

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

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

<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

	<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

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....

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)

[deivnet]

La stringa che hai messo tu va scritta

invioA = request.Form("destinatario") e non invioA = request.Form(destinatario)

[Mr.Fabio]

non cambia nulla mi da sempre lo stesso errore

[deivnet]

Con la forma che ti ho dato io, fai un Response.write di InvioA e dimmi cosa ti mostra

[Mr.Fabio]

tutto ok ma adesso mi dice

ADODB.Fields error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/public/visualizza/formcdosys.asp, line 49

<%
dim prova 
prova = request.Form("a")
response.Write(prova)
%>
<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

invioA = request.Form("a")
invioDa = "info@miosito.it"

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR") 
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

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
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>