Passare codice prodotto a form mail

[tommy84]

Salve, non essendo espertissimo di ASP, ho un problemino a trasportare una variabile "CodProd" in una form mail, vi spiego meglio:

con questa funzione richiamo dal DB un record "CodProd" che è un codice univoco di ogni prodotto:

<td width="130" height="50" align="center" valign="middle" bgcolor="#F5F5F5"><span class="style3"><%=(rsAero.Fields.Item("CodProd").V alue)%></span></td>

a questo punto ho già una forma mail che funziona per chiedere info sui prodotti, vorrei semplicemente con un link nella pagina del prodotto che quando clicco mi redirige a questo form con l'aggiunta da qualche parte del codice "CodProd", praticamente vorrei che quella mail che sarà inviata in automatico deve essere specificato il codice del prodotto da cui si è cliccato..

Non so se sono stato chiaro, comunque sia ringrazio tutti color che mi daranno una mano.
Grazie anticipatamente

[zazoom]

Se ho capito bene ti basta aggiungere CodProd all'url della pagina che invia la mail :
Dalla pagina dove leggi "CodProd" :
">form mail...
e nella pagina dove compili il form leggi il request : <%=Request.Querystring("codice")%>...
aggiungedolo come precompilato dove preferisci, tipo in oggetto o direttamente nel msg.
Ciao.

[tommy84]

Grandissimo consiglio, provato e perfettamente funzionante....
Grazie 1000 per l'aiuto

[tommy84]

Approfitto un altro pò della tua e vostra conoscenza, è possibile combinare in qualche modo

">Info request con Response.Redirect.("nomepagina")

cioè che in una determinata condizione mi parte il redirect e simultaneamente mi trasporta anche la variabile "CodProd"

Io ho provato ma non so se è possibile farlo, mi da sempre errori di sintassi

Grazie!

[zazoom]

Non riesco a capire cosà vuoi fare...che intendi con "combinare", spiegati meglio...
Ciao

[tommy84]

Allora ti spiego meglio, con quelle due righe che mi hai detto tu il tutto funziona perfettamente, adesso ho un'altra esigenza vediamo se riesco a spiegarmi bene


allora:

nella pagina1.asp io ho inserito : ">form mail

nella pagina2.asp inserisco <%=Request.Querystring("codice")%> e tutto OK il codice si vede ed è perfetto, a questo punto nella pagina2.asp per mezzo di un azione particolare con un controllo mi scatta in automatico un Response.Redirect("pagina3.asp").

Il problema sta nel fatto che quando scatta questo controllo e vengo rediretto alla pagina3.asp, non riesco a trosportare il "CodProd"...

Per questo ti ho chiesto se si può combinare Respose.Redirect con a href="pagina2.asp?codice=<%=(rsAero.Fields.Item("C odProd").Value)%>">form mail</a>, in modo che fa il redirect e nel frattempo trascina con se anche il "CodProd".

Spero di essere stato chiaro, per completezza ti posto il codice dove fa il controllo

prima ci sta altra roba........

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
Response.redirect("grazie.htm")

Else
Response.Redirect("pagina3.asp")

End if
End if
%>

[grandeorco]

appicica la queri string all' url
Response.Redirect("pagina3.asp?var="&variabile)

mi pare che si scriva cosi

[tommy84]

fa il redirect quando il codice captcha risulta errato....
questo è tutto il codece

<%
'CAPTCHA
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
%>
<%
Dim CaptchaAction
If (CStr(Request("Submit")) = "Send") Then
'TEST CAPTCHA
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
'============su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "asd@asd.com"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "asd@asd.com"

'------------fine modifiche necessarie------------------

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

'*rilevo i campi del form

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

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "asd@asd.com"
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
Response.redirect("grazie.htm")

Else
Response.Redirect("pagina3.asp")

End if
End if
%>

visto che mi trovo mi indicate come faccio ad inserire la variabile "codice" nel vorpo della form mail...Grazie..

[zazoom]

Capito...basta riaggiungere il request nel redirect :

...
Else
Response.Redirect("pagina3.asp?codice=<%=Request.Q uerystring("codice")%>")

e in pagina3.asp rileggi sempre <%=Request.Querystring("codice")%>

[zazoom]

Scusa grandeorco...avete postato mentre lo facevo anche io.
Cmq stesso succo.
Ciao