Opzione di scelta nei form

**sgcast** · 07-03-2008, 17:03

Ciao, ho un problema, io ho questo form dove ho la possibilità di selezionare un'opzione. Il mio problema è che nella seconda pagina non so come inserire il codice per poter visualizzare l'opzione selezionata quando mi arriva la risposta via mail.
inserisco i codici delle due pagine.
CODICE FORM:

<table border="0" width="760" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="1" height="100%" align="center" rowspan="14">
<table border="0" width="1" cellspacing="0" cellpadding="0" height="100%">
<tr>
</tr>
</table>
<tr>
<td class="TestiFORM" align="right" width="200" height="46" rowspan="2">
Installatore</td>
<td width="390" height="23" align="left" class="TestiFORM" style='{padding-left: 6;}'>

<input type="checkbox" name="opzione" value="si">Si</td>
</tr>
<tr>
<td width="390" height="23" align="left" class="TestiFORM" style='{padding-left: 6;}'>
<input type="checkbox" name="opzione" value="no">No</td>
</tr>
<tr>
<td width="200" height="35" valign="middle" class="TestiFORM" align="right">
Cognome</td>
<td width="390" height="35" valign="middle" class="testoTimes" align="left" style='{padding-left: 10;}'>
<input type="text" name="Cognome" size="40" maxlength="50" class="TESTIbOLD"></td>
</tr>
<tr>
<td width="200" height="35" class="TestiFORM" align="right">
Nome:</td>
<td width="390" height="35" align="left" class="testoTimes" style='{padding-left: 10;}'>
<input type="text" name="Nome" size="40" maxlength="50" class="TESTIbOLD"></td>
</tr>
<tr>
<td width="200" class="TestiFORM" align="right" height="35">
Nome dell'Azienda/Attivita':</td>
<td width="390" align="left" height="35" style='{padding-left: 10;}'>
<input type="text" name="REA" size="40" maxlength="150" class="TESTIbOLD"></td>
</tr>
<tr>
<td width="200" class="TestiFORM" align="right" height="35">
Via:</td>
<td width="390" height="35" style='{padding-left: 10;}'>
<input type="text" name="Via" size="40" maxlength="60" class="TESTIbOLD"></td>
</tr>
<tr>
<td class="TestiFORM" width="200" align="right" height="35">
Citta':</td>
<td width="390" height="35" style='{padding-left: 10;}'>
<input type="text" name="Citta" size="40" maxlength="60" class="TESTIbOLD"></td>
</tr>
<tr>
<td width="200" class="TestiFORM" align="right" height="35">
Prov.:</td>
<td width="390" height="35" style='{padding-left: 10;}'>
<select size="1" name="provincia" class="TESTIbOLD">
<option selected> </option>
<option>AG</option>
<option>AL</option>
<option>AN</option>
<option>AO</option>
<option>AR</option>
<option>AP</option>
<option>AT</option>
<option>AV</option>
<option>BA</option>
<option>BL</option>
<option>BN</option>
<option>BG</option>
<option>BI</option>
<option>BO</option>
<option>BZ</option>
<option>BS</option>
<option>BR</option>
<option>CA</option>
<option>CL</option>
<option>CB</option>
<option>CE</option>
<option>CT</option>
<option>CZ</option>
<option>CH</option>
<option>CO</option>
<option>CS</option>
<option>CR</option>
<option>KR</option>
<option>CN</option>
<option>EN</option>
<option>FE</option>
<option>FI</option>
<option>FG</option>
<option>FC</option>
<option>FR</option>
<option>GE</option>
<option>GO</option>
<option>GR</option>
<option>IM</option>
<option>IS</option>
<option>SP</option>
<option>AQ</option>
<option>LT</option>
<option>LE</option>
<option>LC</option>
<option>LI</option>
<option>LO</option>
<option>LU</option>
<option>MC</option>
<option>MN</option>
<option>MS</option>
<option>MT</option>
<option>ME</option>
<option>MI</option>
<option>MO</option>
<option>NA</option>
<option>NO</option>
<option>NU</option>
<option>OR</option>
<option>PD</option>
<option>PA</option>
<option>PV</option>
<option>PG</option>
<option>PU</option>
<option>PE</option>
<option>PC</option>
<option>PI</option>
<option>PT</option>
<option>PN</option>
<option>PZ</option>
<option>PO</option>
<option>RG</option>
<option>RA</option>
<option>RC</option>
<option>RE</option>
<option>RI</option>
<option>RN</option>
<option>RM</option>
<option>RO</option>
<option>SA</option>
<option>SS</option>
<option>SV</option>
<option>SI</option>
<option>SR</option>
<option>SO</option>
<option>TA</option>
<option>TE</option>
<option>TR</option>
<option>TO</option>
<option>TP</option>
<option>TN</option>
<option>TV</option>
<option>TS</option>
<option>UD</option>
<option>VA</option>
<option>VE</option>
<option>VB</option>
<option>VC</option>
<option>VR</option>
<option>VV</option>
<option>VI</option>
<option>VT</option>
</select></td>
</tr>
<tr>
<td class="TestiFORM" width="200" align="right" height="35">
E-Mail:</td>
<td width="390" height="35" style='{padding-left: 10;}'>
<input type="text" name="mail" size="40" maxlength="50" class="TESTIbOLD"></td>
</tr>
<tr>
<td class="TestiFORM" width="200" align="right" height="35">
Tel.</td>
<td width="390" height="35" style='{padding-left: 10;}'>
<input type="text" name="telefono" size="40" maxlength="30" class="TESTIbOLD"></td>
</tr>
<tr>
<td width="200" class="TestiFORM" align="right" height="35">
Cell.</span></td>
<td width="390" height="35" style='{padding-left: 10;}'>
<input type="text" name="cellulare" size="40" maxlength="30" class="TESTIbOLD"></td>
</tr>
<tr>
<td width="200" class="TestiFORM" align="right" height="120">
Specificare la richiesta:</td>
<td width="390" height="120" style='{padding-left: 10;}' align="left">
<textarea rows="6" name="txtCommenti" cols="31" class="TESTIbOLD"></textarea></td>
</tr>
<tr>
<td align="center" width="590" height="70" colspan="2">
<input type="submit" value="Invia" name="btnSubmit"><input type="reset" value="Cancella" name="txtReset"></td>
</tr>
</table>

CODICE SECONDA PAGINA:

<%@ Language=VBScript %>
<% option explicit %>
<%
'Invio Mail a XXXXXX
dim myAddress 'indirizzo dove inviare
myAddress="XXXX@XXXXX;"

' Dati Clientedim

dim NCognome ' Cognome
dim NNome ' Nome
dim NREA ' REA
dim NVia ' Via
dim NCitta ' Citta
dim NProvincia ' Provincia
dim NMail ' Mail
dim NTelefono ' Telefono
dim NCellulare ' Cellulare

dim xCommenti ' txtCommenti

' Invio E-Mail
dim objEMail ' oggetto sender E-Mail
dim strBody ' testo del body

dim k

NMail=Request("Mail")

' controlla se Mail è corretto (solo la presenza di @)
dim posizione
dim posizione1
posizione=InStr(NMail,"@")

if (posizione=0) then
Response.Redirect "contatti.asp?Err=1"
else
posizione1=InStr(posizione+1,NMail,"@")
if (posizione1>0) then
Response.Redirect "contatti.asp?Err=1"
end if
end if

NNome=Request("Nome")
NCognome=Request("Cognome")
NREA=Request("REA")
NVia=Request("Via")
NCitta=Request("Citta")
NProvincia=Request("Provincia")
NMail=Request("Mail")
NTelefono=Request("Telefono")
NCellulare=Request("Cellulare")
xCommenti=Request("txtCommenti")

'Invia l'E-Mail
set objEMail = server.CreateObject("CDO.Message")
objEMail.To = myAddress
objEmail.From = NMail
k="Avantgarde" & vbCrLf & vbCrLf

objEMail.subject = k

if (NCognome<>"") then
k=k & "Cognome: "
k=k & NCognome & vbCrLf
end if

if (NNome<>"") then
k=k & "Nome: "
k=k & NNome & vbCrLf
end if

if (NREA<>"") then
k=k & "Ragione Sociale: " & NREA & vbCrLf & vbCrLf
end if

if (NVia<>"") then
k=k & "Via: "
k=k & NVia & vbCrLf
end if

if (NProvincia<>"") then
k=k & "Provincia: "
k=k & NProvincia & vbCrLf
end if

if (NCitta<>"") then
k=k & "Citta': "
k=k & NCitta & vbCrLf & vbCrLf
end if

if (NCellulare<>"") then
k=k & "Cellulare: "
k=k & NCellulare & vbCrLf
end if

if (NTelefono<>"") then
k=k & "Telefono: " & NTelefono & vbCrLf
end if

k=k & "E-Mail: " & NMail & vbCrLf & vbCrLf

strBody=k
if (xCommenti<>"") then
strBody = strBody & vbCrLf & "Desidera Sapere: " & vbCrLf & xCommenti
end if

objEMail.TextBody=strBody

objEMail.send
set objEMail = nothing

%>

**Roby_72** · 07-03-2008, 17:16

Le opzioni SI/NO non ti conviene mostrarle con un radio piuttosto che un checkbox?
A quel punto quando recuperi il "name" del radio, se è valorizzato assume proprio il "value" che gli hai assegnato altrimenti nulla.

Roby

**sgcast** · 07-03-2008, 17:26

Ok, ho provato come mi hai detto ma non mi funziona. Ti dico che sono una neofita dell'asp e con il codice non ho molta dimistichezza... mi potresti scrivere il codive così cerco di capire dove sbaglio?

**Roby_72** · 07-03-2008, 17:39

Esempio:

codice:

<tr>
<td class="TestiFORM" align="right" width="200" height="46" rowspan="2">
Installatore</td>
<td width="390" height="23" align="left" class="TestiFORM" style='{padding-left: 6;}'>



<input type="checkbox" name="opzione" value="si">Si</td>
</tr>
<tr>
<td width="390" height="23" align="left" class="TestiFORM" style='{padding-left: 6;}'>
<input type="checkbox" name="opzione" value="no">No</td>
</tr>

Nell'altra pagina

codice:

Dim opzione
opzione = trim(request.form("opzione"))

e più sotto:

codice:

k = k &"Opzione = "& opzione

Roby

**sgcast** · 07-03-2008, 17:50

Grazie! sei il mio salvatore.
ora è tutto ok

Discussione: Opzione di scelta nei form

Strumenti discussione

Ricerca discussione

Visualizza

Opzione di scelta nei form

Permessi di invio