select case problem
Hej..Lille problem her.. min hukommelse er væk..
Denne her select case er bare væk.
Det som jeg ikke lige kan huske at gøre er :
Når man har valgt en person på listen så skal der sendes en mail til ham via JMail.
Det først man udfylder er følgende.
PS: nu er der ikke lige taget højde fra designet/opstilling.
<table border="0" cellpadding="1" frame="" cellspacing="0">
<tr>
<td width="55" valign="middle"><span class="alm">Firma</span></td>
<td><input type="text" name="Firma" size="40"></td>
</tr>
<tr>
<td width="55"><span class="alm">Navn</span></td>
<td><input type="text" name="Navn" size="40" value="Skal udfyldes"></td>
</tr>
<tr>
<td width="55"><span class="alm">Stilling</span></td>
<td><input type="text" name="Stilling" size="40"></td>
</tr>
<tr>
<td width="55"><span class="alm">Adresse</span></td>
<td><input type="text" name="Adresse" size="40"></td>
</tr>
<tr>
<td width="55"><span class="alm">Postnr.</span></td>
<td><input type="text" name="Postnr" size="4" maxlength="4"></td>
</tr>
<tr>
<td width="55"><span class="alm">By</span></td>
<td><input type="text" name="By" size="40"></td>
</tr>
<tr>
<td width="55"><span class="alm">Telefon</span></td>
<td><input type="text" name="Telefon" size="20" value="Skal udfyldes"></td>
</tr>
<tr>
<td width="55"><span class="alm">Telefax</span></td>
<td><input type="text" name="Telefax" size="20"></td>
</tr>
<tr>
<td width="55"><span class="alm">E-mail</span></td>
<td><input type="text" name="Email" size="40"></td>
</tr>
</table>
<Select Name="Personer">
<Option value="Calle">Calle</Option>
<Option value="Thomas A. selected">Thomas A.</Option>
<Option value="Torben">Torben</Option>
</Select>
varmodtageremail = "HER SKAL STÅ MODTAGEREN FRA DROP DOWN LISTEN"
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "x@.dk"
msg.FromName = "X"
msg.AddRecipient varmodtageremail
msg.Subject = overskrift
msg.Body = body
If not msg.Send("mail.X.dk") then
Response.write msg.log
else
response.write "emailen blev ikke sendt"
end if
