login  Naam:   Wachtwoord: 
Registreer je!
 Forum

ASP Formulier

Offline DeafBoy - 10/11/2004 09:57 (laatste wijziging 10/11/2004 10:25)
Avatar van DeafBoyHTML beginner Probleem met formulier verzenden.

Reserveren.html
php code - Bekijk de code zonder highlighting - Klap code in 
  1. <html>
  2. <head>
  3. </head>
  4. <body>
  5.  
  6. <form name="reserveringen via nederlandse website" action="mail.asp" method="post">
  7. 									<input name="mail-to" type="hidden" value="EMAILADRES INVOEREN">
  8. 									<input name="TGsubject" type="hidden" value="informatieformulier van website">
  9. 									<input name="TGredirect" type="hidden" value="bedankt.html">
  10. 									<input name="TGorder" type="hidden" value="realname, adres, postcode, plaats, land, telefoon, fax,e-mail, kenteken auto, aankomstdag, aankomstdag indien bezet, vertrekdag, vertrekdag indien bezet, aantal volwassenen, aantal kinderen vanaf 2 jaar, caravan, tent, vouwwagen, camper, hond, bijzettentje, bungalow huren, arrangement, opmerkingen">
  11. 									<table border="0" cellpadding="0" cellspacing="0" width="485"> 
  12. 										<tr>
  13. 											<td width="200">Naam:</td>
  14. 											<td width="245"><input type="text" name="realname" size="24"></td>
  15. 										</tr>
  16. 										<tr>
  17. 											<td width="200">Adres:</td>
  18. 											<td width="245"><input type="text" name="adres" size="24"></td>
  19. 										</tr>
  20. 										<tr>
  21. 											<td width="200">Postcode:</td>
  22. 											<td width="245"><input type="text" name="postcode" size="24"></td>
  23. 										</tr>
  24. 										<tr>
  25. 											<td width="200">Plaats:</td>
  26. 											<td width="245"><input type="text" name="plaats" size="24"></td>
  27. 										</tr>
  28. 										<tr>
  29. 											<td width="200">Land:</td>
  30. 											<td width="245"><input type="text" name="land" size="24"></td>
  31. 										</tr>
  32. 										<tr>
  33. 											<td width="200">Telefoon:</td>
  34. 											<td width="245"><input type="text" name="telefoon" size="15"></td>
  35. 										</tr>
  36. 										<tr>
  37. 											<td width="200">Fax:</td>
  38. 											<td width="245"><input type="text" name="fax" size="15"></td>
  39. 										</tr>
  40. 										<tr>
  41. 											<td width="200">E-mail</td>
  42. 											<td width="245"><input type="text" name="e-mail" size="24"></td>
  43. 										</tr>
  44. 										<tr>
  45. 											<td width="200">Kenteken auto:</td>
  46. 											<td width="245"><input type="text" name="kenteken auto" size="15"></td>
  47. 										</tr>
  48. 										<tr>
  49. 											<td width="200"><br>
  50. 												<br>
  51. 												<br>
  52. 											</td>
  53. 											<td width="240"></td>
  54. 										</tr>
  55. 										<tr>
  56. 											<td width="200">Aankomst datum: </td>
  57. 											<td width="240"><input type="text" name="aankomstdag" size="10" value="dd - mm - yy"></td>
  58. 										</tr>
  59. 										<tr>
  60. 											<td width="200">Indien bezet:</td>
  61. 											<td width="240"><input type="text" name="aankomstdag indien bezet" size="10" value="dd - mm - yy"></td>
  62. 										</tr>
  63. 										<tr>
  64. 											<td colspan="2"><br>
  65. 												<font color="#324395">(Alleen per week van zaterdag tot zaterdag in de periode van 30/6 tot 18/8)<br>
  66. 													<br>
  67. 													<br>
  68. 												</font></td>
  69. 										</tr>
  70. 										<tr>
  71. 											<td width="200">Vertrek datum:</td>
  72. 											<td width="240"><input type="text" name="vertrekdag" size="10" value="dd - mm - yy"></td>
  73. 										</tr>
  74. 										<tr>
  75. 											<td width="200">Indien bezet:</td>
  76. 											<td width="240"><input type="text" name="vertrekdag indien bezet" size="10" value="dd - mm - yy"></td>
  77. 										</tr>
  78. 										<tr>
  79. 											<td width="200"><br>
  80. 												<br>
  81. 											</td>
  82. 											<td width="240"></td>
  83. 										</tr>
  84. 										<tr>
  85. 											<td width="200">Aantal volwassenen: </td>
  86. 											<td width="240"><input type="text" name="aantal volwassenen" size="3"></td>
  87. 										</tr>
  88. 										<tr>
  89. 											<td width="200">Aantal kinderen vanaf 2 jaar:</td>
  90. 											<td width="240"><input type="text" name="aantal kinderen vanaf 2 jaar" size="3"></td>
  91. 										</tr>
  92. 										<tr>
  93. 											<td width="200"><br>
  94. 												<br>
  95. 												<br>
  96. 											</td>
  97. 											<td width="240"></td>
  98. 										</tr>
  99. 									</table>
  100. 									<table border="0" cellpadding="0" cellspacing="0" width="485">
  101. 										<tr>
  102. 											<td><br>
  103. 												Wij komen met een:<br>
  104. 												<br>
  105. 												<input type="checkbox" value="checkboxValue" name="caravan"> caravan - <input type="checkbox" value="checkboxValue" name="tent"> tent - <input type="checkbox" value="checkboxValue" name="vouwwagen"> vouwwagen - <input type="checkbox" value="checkboxValue" name="camper"> camper - <input type="checkbox" value="checkboxValue" name="hond"> hond - <input type="checkbox" value="checkboxValue" name="bijzettentje"> bijzettentje</td>
  106. 										</tr>
  107. 										<tr>
  108. 											<td><br>
  109. 												<input type="checkbox" value="checkboxValue" name="bungalow huren"> aanvinken indien u een kampeerbungalow wilt huren.</td>
  110. 										</tr>
  111. 										<tr>
  112. 											<td><br>
  113. 												Wij willen het volgende arrangement boeken: &nbsp; <select name="arrangement" size="1">
  114. 													<option value="voorjaarsarrangement">voorjaarsarrangement</option>
  115. 													<option value="paasarrangement">paasarrangement</option>
  116. 													<option value="mei-arrangement">mei-arrangement</option>
  117. 													<option value="juni-arrangement">juni-arrangement</option>
  118. 													<option value="nazomerarrangement">nazomerarrangement</option>
  119. 													<option value="herfstarrangement">herfstarrangement</option>
  120. 												</select><br>
  121. 											</td>
  122. 										</tr>
  123. 										<tr>
  124. 											<td><br>
  125. 												Opmerkingen:<br>
  126. 												<br>
  127. 												<textarea name="opmerkingen" cols="40" rows="4"></textarea></td>
  128. 										</tr>
  129. 										<tr>
  130. 											<td><br>
  131. 												<input type="submit" name="submitButtonName" value="aanvraag verzenden"></td>
  132. 										</tr>
  133. 									</table>
  134. 								</form>
  135.  
  136. </body>
  137. </html>


bedankt.htm
php code - Bekijk de code zonder highlighting - Klap code in 
  1. <html>
  2. <head>
  3. </head>
  4. <body>
  5. Er is een ontvangstbevestiging naar uw E-mail adres verstuurd.
  6. </body>
  7. </html>


mail.asp
php code - Bekijk de code zonder highlighting - Klap code in 
  1. <%
  2. Response.Buffer = True
  3. Set objFM = CreateObject("Scripting.Dictionary")
  4. Set objMailx = CreateObject("CDONTS.Newmail")
  5. Set objMailx = Nothing
  6. %>
  7.  
  8. <%
  9. strRcpt = Trim(request("mail-to"))
  10. strDefFrom = Trim(request("e-mail"))
  11. if strDefFrom = "" or len(strDefFrom) = 0 then
  12. 	strDefFrom = "Email adres invoeren"
  13. end if
  14. %>
  15.  
  16. <%
  17. ParseForm
  18. strOutX = SeqForm
  19. If Len(strOutX) < 1 Then
  20. strOutX = FormToString
  21. End If
  22.  
  23. strSubject = strDefSubject
  24. If objFM.Exists("TGsubject") Then
  25. strSubject = objFM.Item("TGsubject")
  26. End If
  27.  
  28. strFrom = strDefFrom
  29. If Len(strFromVar) > 0 Then
  30. If objFM.Exists(strFromVar) Then strFrom = objFM.Item(strFromVar)
  31. End If
  32.  
  33. SendMail strFrom,strRcpt,strSubject,strOutX
  34.  
  35. If objFM.Exists("TGredirect") = True Then
  36. If Len(objFM.Item("TGredirect")) > 0 Then
  37. Response.redirect(objFM.Item("TGredirect"))
  38. Response.End
  39. End If
  40. End If
  41. %>
  42.  
  43. <%
  44. Function IsValidEmail(Email)
  45. Dim Temp,Temp2
  46. End Function
  47. %>
  48.  
  49. <%
  50. Function SendMail(From,Rcpt,Subject,Body)
  51. Trim(From)
  52. Set objMailer = CreateObject("CDONTS.Newmail")
  53. objMailer.From = From
  54. objMailer.To = Rcpt
  55. objMailer.Subject = Subject
  56. objMailer.Body = Body
  57. objMailer.Send
  58. Set objMailer = Nothing
  59. End Function
  60. %>
  61.  
  62.  
  63. <%
  64. Function ParseForm()
  65. For Each Item in Request.Form
  66.  If objFM.Exists(Item) Then
  67.   objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
  68.    Else
  69.     objFM.Add Item,Request.Form(Item)
  70.  End If
  72. For Each Item in Request.QueryString
  73.  If objFM.Exists(Item) Then
  74.   objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
  75.    Else
  76.     objFM.Add Item,Request.QueryString(Item)
  77.  End If
  79. End Function
  80. %>
  81. <%
  82. Function SeqForm()
  83. Dim Temp,strTmp,strOrder,strOut
  84. If objFM.Exists("TGorder") = False Then
  85.  Exit Function
  86.   ElseIf isEmpty(objFM.Item("TGorder")) Then
  87.    Exit Function
  88. End If
  89. strOrder = objFM.Item("TGorder")
  90. Temp = Split(strOrder,",",-1,1)
  91. For Each strTmp in Temp
  92.  If objFM.Exists(strTmp) Then
  93.   strOut = strOut & strTmp & "=" & objFM.Item(strTmp) & Chr(10)
  94.  End If
  96. SeqForm = strOut
  97. End Function
  98. %>
  99.  
  100. <%
  101. Function FormToString()
  102. Dim strOut
  103. strKeys = objFM.Keys
  104. strValues = objFM.Items
  105. For intCnt = 0 To objFM.Count -1
  106.   strOut = strOut & strKeys(intCnt) & "=" & strValues(intCnt) & Chr(10)
  108. FormToString = strOut
  109. End Function
  110. %>
  111.  
  112. <%
  113. Function ReportError(strMess)
  114. Response.Clear
  115. %>
  116.  
  117. <%
  118. Credit
  119. Response.End
  120. End Function
  121. %>
  122.  
  123. <%Function Credit%>
  124. <%End Function%>


Het probleem is dat ik alleen de naam en de email doorkrijg in de mail. Verder ontgvang ik niets van het formulier. En dit heb ik zelf gescript. Wat doe ik fout? Kan iemand het voor me oplossen.

PS: (opmaak ziet er niet uit, maar heb weggehaald vanwege grootte script, en ftp van mij is niet goed meer. Dus moest hier wel posten.)

0 antwoorden

Gesponsorde links
Er zijn nog geen reacties op dit bericht.
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.357s