Multi billeder i mail form?
Nogen der kan hjælpe mig med at få indsat en funktion, hvor brugeren kan vælge et eller flere billeder man ønsker at sende med formularen. Det skal også være sådanne så man IKKE skal med sende billeder, dette skal være valgfrit.På forhånd tak
<%if request.querystring("fejl") = "1" then
Response.Write "Der skete en fejl og bedømmelse kunne ikke blive afsendt. Prøv igen."
elseif request.querystring("sendt") = "2" then
Response.Write "Bedømmelse er modtaget og den vil komme med i den næste vurdering af rejsebureaue.<br>Mange tak for hjælpen. Med venlig hilsen EyeForTravel.dk"
end if
%>
<form method="post" action="selskabsform.asp">
<table width="450" border="0" align="center" cellpadding="10">
<tr bgcolor="#336699">
<td colspan="2"><font color="#F2F2F2"><strong>Rejse
beskrivelse</strong></font></td>
</tr>
<tr bgcolor="#F2F2F3">
<td width="200">Rejsebureaue</td>
<td width="214"><input name="selskab" type="text" id="selskab"></td>
</tr>
<tr>
<td>Destinations land</td>
<td><select name="land" id="land">
<option>Vælge</option>
<option>Bulgarien</option>
<option>Canada</option>
<option>Finland</option>
<option>Frankrig</option>
<option>Grønland</option>
<option>Italien</option>
<option>Norge</option>
<option>Polen</option>
<option>Schweiz</option>
<option>Slovakiet</option>
<option>Slovenien</option>
<option>Sverige</option>
<option>Tjekkiet</option>
<option>Tyskland</option>
<option>USA</option>
<option>Østrig</option>
<option>Ingen af dem</option>
</select></td>
</tr>
<tr>
<td>Destinations by</td>
<td><input name="by" type="text" id="by"></td>
</tr>
<tr>
<td>Afrejse uge</td>
<td><select name="uge" id="uge">
<option>Vælge</option>
<option>Uge 1</option>
<option>Uge 2</option>
<option>Uge 3</option>
<option>Uge 4</option>
<option>Uge 5</option>
<option>Uge 6</option>
<option>Uge 7</option>
<option>Uge 8</option>
<option>Uge 9</option>
<option>Uge 10</option>
<option>Uge 11</option>
<option>Uge 12</option>
<option>Uge 13</option>
<option>Uge 14</option>
<option>Uge 15</option>
<option>Uge 16</option>
<option>Uge 17</option>
<option>Uge 18</option>
<option>Uge 19</option>
<option>Uge 20</option>
<option>Uge 21</option>
<option>Uge 22</option>
<option>Uge 23</option>
<option>Uge 24</option>
<option>Uge 25</option>
<option>Uge 26</option>
<option>Uge 27</option>
<option>Uge 28</option>
<option>Uge 29</option>
<option>Uge 30</option>
<option>Uge 31</option>
<option>Uge 32</option>
<option>Uge 33</option>
<option>Uge 34</option>
<option>Uge 35</option>
<option>Uge 36</option>
<option>Uge 37</option>
<option>Uge 38</option>
<option>Uge 39</option>
<option>Uge 40</option>
<option>Uge 41</option>
<option>Uge 42</option>
<option>Uge 43</option>
<option>Uge 44</option>
<option>Uge 45</option>
<option>Uge 46</option>
<option>Uge 47</option>
<option>Uge 48</option>
<option>Uge 49</option>
<option>Uge 50</option>
<option>Uge 51</option>
<option>Uge 52</option>
<option>Uge 53</option>
<option>Uge 54</option>
</select></td>
</tr>
<tr>
<td>Rejsen varighed</td>
<td><select name="rejselang" id="rejselang">
<option>Vælge</option>
<option>1 uge</option>
<option>2 uger</option>
<option>3 uger</option>
<option>4 uger</option>
<option>5 uger</option>
<option>6 uger</option>
<option>7 uger</option>
<option>8 uger</option>
<option>9 uger</option>
<option>10 uger</option>
<option>11 uger</option>
<option>12 uger</option>
<option>13 uger</option>
<option>14 uger</option>
<option>15 uger</option>
<option>16 uger</option>
<option>17 uger</option>
<option>18 uger</option>
<option>19 uger</option>
<option>20 uger</option>
<option>21 uger</option>
<option>22 uger</option>
<option>23 uger</option>
<option>24 uger</option>
<option>25 uger</option>
<option>26 uger</option>
<option>27 uger</option>
<option>28 uger</option>
<option>29 uger</option>
<option>30 uger</option>
<option>Under 1 uge</option>
<option>Længere en 31 uge</option>
</select></td>
</tr>
<tr>
<td>Transport form</td>
<td><select name="transport" id="transport">
<option>Vælge</option>
<option>Kør selv</option>
<option>Bus</option>
<option>Tog</option>
<option>Fly</option>
<option>Andet</option>
</select></td>
</tr>
<tr align="left">
<td>Rejsens pris (Pr. person)</td>
<td><input name="pris" type="text" id="pris"></td>
</tr>
<tr>
<td>Har de rejst med dette selskab før?</td>
<td>Ja hvor mange gange?
<select name="rejst" id="rejst">
<option>Vælge</option>
<option>1 gang</option>
<option>2 gange</option>
<option>3 gange</option>
<option>4 gange</option>
<option>5 gange</option>
<option>6 gange</option>
<option>7 gange</option>
<option>8 gange</option>
<option>9 gange</option>
<option>10 gange</option>
</select>
Nej
<input name="box" type="checkbox" id="box" value="checkbox"></td>
</tr>
<tr bgcolor="#336699">
<td colspan="2"><font color="#F2F2F2"><strong>Rejse
information</strong></font></td>
</tr>
<tr>
<td>Er rejsen købt over internettet?</td>
<td>Ja
<input type="checkbox" name="checkbox" value="checkbox">
Nej
<input type="checkbox" name="checkbox2" value="checkbox"></td>
</tr>
<tr>
<td>Blev der oplyst tilstrækkelig med oplysninger før
rejsen køb?</td>
<td>Karakter
<select name="info" id="info">
<option>Vælge</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
</select></td>
</tr>
<tr>
<td>Var den oplyste rejse som de forventet?</td>
<td>Karakter
<select name="forventet" id="forventet">
<option>Vælge</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
</select></td>
</tr>
<tr>
<td>Hvordan var pris niveauet for området?</td>
<td>Karakter
<select name="omraadet" id="omraadet">
<option>Vælge</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
</select></td>
</tr>
<tr>
<td>Var området børnevenligt?</td>
<td>Karakter
<select name="born" id="born">
<option>Vælge</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
</select> </td>
</tr>
<tr>
<td>Hvordan var skiterrænt?</td>
<td>Karakter
<select name="ski" id="ski">
<option>Vælge</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
</select></td>
</tr>
<tr>
<td>Hvordan var lifterne?</td>
<td>Karakter
<select name="lift" id="lift">
<option>Vælge</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
</select></td>
</tr>
<tr>
<td>Hvordan var afterski?</td>
<td>Karakter
<select name="afterski" id="afterski">
<option>Vælge</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
</select></td>
</tr>
<tr bgcolor="#336699">
<td colspan="2"><font color="#F2F2F2"><strong>Din historie m.m</strong></font></td>
</tr>
<tr>
<td colspan="2" valign="top"><textarea name="historie" cols="70" rows="15" id="historie"></textarea></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<INPUT TYPE="hidden" NAME ="submit" VALUE="true" >
<br>
<input name="submit" type="image" value="submit" src="opimages/site/Send_vurdering.gif" width="99" height="20">
</div></td>
</tr>
</table>
</form>
<%
If Request.form("submit") <> "" then
Sprog = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
Forbindelse = Request.ServerVariables("HTTP_CONNECTION")
komponenter = Request.ServerVariables("HTTP_ACCEPT")
Browser = Request.ServerVariables("HTTP_USER_AGENT")
IP = Request.ServerVariables("REMOTE_ADDR")
nu = Now()
Dato = FormatDateTime(nu,vbLongDate) & " kl. " & FormatDateTime(nu,vbLongTime)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Logging = True
JMail.Silent = True
JMail.Sender = "email adresse"
JMail.SenderName = "email adresse"
JMail.Subject = "Bedømmels af Rejsebureaue"
JMail.AddRecipient "email adresse"
JMail.ReplyTo = Email
' ********** Her starter selve email-en
JMail.Body = "Rejse bedømmelse." & Dato & vbCrLf
JMail.Body = JMail.Body & vbCrLf & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Rejsens beskrivelse" & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "------------------------------------------------------" & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Rejsebureaue = " & Request.Form("selskab") & vbCrLf
JMail.Body = JMail.Body & "Destinations land = " & Request.Form("land") & vbCrLf
JMail.Body = JMail.Body & "Destinations by = " & Request.Form("by") & vbCrLf
JMail.Body = JMail.Body & "Afrejse uge = " & Request.Form("uge") & vbCrLf
JMail.Body = JMail.Body & "Rejsen varighed = " & Request.Form("rejselang") & vbCrLf
JMail.Body = JMail.Body & "Transport form = " & Request.Form("transport") & vbCrLf
JMail.Body = JMail.Body & "Rejsens pris (Pr. person) = " & Request.Form("pris") & vbCrLf
if Request.Form("box") = "" then
JMail.Body = JMail.Body & "Rejst med rejsebureaue. (Antal gange før) = " & Request.Form("rejselang") & vbCrLf
else
JMail.Body = JMail.Body & "Det er føste gang der rejses med rejsebureaue." & vbCrLf
end if
JMail.Body = JMail.Body & vbCrLf & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Rejse informatoner: " & vbCrLf
JMail.Body = JMail.Body & "------------------------------------------------------" & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Er rejsen købt over internettet? = "
if Request.Form("checkbox") <> "" then JMail.Body = JMail.Body & "Ja" & vbCrLf & vbCrLf
if Request.Form("checkbox2") <> "" then JMail.Body = JMail.Body & "Nej" & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Tilstrækkelig med oplysninger før rejsen køb? = " & Request.Form("info") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Var den oplyste rejse som de forventet? = " & Request.Form("forventet") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Hvordan var pris niveauet for området? = " & Request.Form("omraadet") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Var området børnevenligt? = " & Request.Form("born") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Hvordan var skiterrænt? = " & Request.Form("ski") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Hvordan var lifterne? = " & Request.Form("lift") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Hvordan var afterski? = " & Request.Form("afterski") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & vbCrLf & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Afsenders historie: " & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "------------------------------------------------------" & vbCrLf & vbCrLf
JMail.Body = JMail.Body & Request.Form("historie") & vbCrLf
JMail.Body = JMail.Body & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Afsenders informationer og id: " & vbCrLf
JMail.Body = JMail.Body & "------------------------------------------------------" & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Afsenders IP.adresse: " & IP & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Afsenders browser: " & Browser & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Afsenders komponenter: " & komponenter & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Afsenders internet forbindelse: " & Forbindelse & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Afsenders sprog: " & Sprog & vbCrLf & vbCrLf
' ********** Her slutter selve email-en
If Not JMail.Execute Then
response.redirect("selskabsform.asp?fejl=1")
Else
response.redirect("selskabsform.asp?sendt=2")
End If
End If
%>
