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
  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
  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
  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
  71. For Each Item in Request.QueryString
  72. If objFM.Exists(Item) Then
  73. objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
  74. Else
  75. objFM.Add Item,Request.QueryString(Item)
  76. End If
  77. End Function
  78. %>
  79. <%
  80. Function SeqForm()
  81. Dim Temp,strTmp,strOrder,strOut
  82. If objFM.Exists("TGorder") = False Then
  83. Exit Function
  84. ElseIf isEmpty(objFM.Item("TGorder")) Then
  85. Exit Function
  86. End If
  87. strOrder = objFM.Item("TGorder")
  88. Temp = Split(strOrder,",",-1,1)
  89. For Each strTmp in Temp
  90. If objFM.Exists(strTmp) Then
  91. strOut = strOut & strTmp & "=" & objFM.Item(strTmp) & Chr(10)
  92. End If
  93. SeqForm = strOut
  94. End Function
  95. %>
  96.  
  97. <%
  98. Function FormToString()
  99. Dim strOut
  100. strKeys = objFM.Keys
  101. strValues = objFM.Items
  102. For intCnt = 0 To objFM.Count -1
  103. strOut = strOut & strKeys(intCnt) & "=" & strValues(intCnt) & Chr(10)
  104. FormToString = strOut
  105. End Function
  106. %>
  107.  
  108. <%
  109. Function ReportError(strMess)
  110. Response.Clear
  111. %>
  112.  
  113. <%
  114. Credit
  115. Response.End
  116. End Function
  117. %>
  118.  
  119. <%Function Credit%>
  120. <%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.221s