ASP Contactformulier

Liejan · 27 feb 2007

Geachte deskundige,

Van ASP weet ik maar een heel klein beetje. Mijn voorganger, webmaster van www.paragamesbreda.eu, had iets in elkaar geknutseld dat toen al niet werkte. Ik heb het rood gekleurde stukje eraan toegevoegd, omdat CDONTS niet werkte. Ik krijg de foutmedling "Internal server error". Ik weet niet wat er verkeerd is. Hieronder staat de programmacode. Graag hulp.

Groetjes,

Liejan van Horen-Meeusen

<%@ LANGUAGE="JScript" %>
<%

function Goed()
{
%>
 
<%
}

function Fout()
{
%>
 invullen aub
<%
}

function Check(variabele)
{
if (sCommand=="Verzenden")
{
if(variabele=="")
{
Fout();
}
else
{
Goed();
}
}
}

if (Request.Form("cm").Count)
{
ExitCode=1;

sCommand=""+Request.Form("cm");
Voorletters=Request.Form("Voorletters");
Tussen=Request.Form("Tussen");
Achternaam=Request.Form("Achternaam");
Adres=Request.Form("Adres");
Postcode=Request.Form("Postcode");
Woonplaats=Request.Form("Woonplaats");
Geslacht=Request.Form("Geslacht");
Gebdag=Request.Form("Gebdag");
Gebmaand=Request.Form("Gebmaand");
Gebjaar=Request.Form("Gebjaar");
Telefoon=Request.Form("Telefoon");
Email=Request.Form("Email");
Tshirt=Request.Form("Tshirt");
Functie=Request.Form("Keuzedag");
Functie=Request.Form("Functie");
Opmerkingen=Request.Form("Opmerkingen");

if (Voorletters=="")
ExitCode=0;

if (Achternaam=="")
ExitCode=0;

if (Adres=="")
ExitCode=0;

if (Postcode=="")
ExitCode=0;

if (Woonplaats=="")
ExitCode=0;

if (Telefoon=="")
ExitCode=0;
}
else
{
sCommand="";
Voorletters="";
Tussen="";
Achternaam="";
Adres="";
Postcode="";
Woonplaats="";
Geslacht="";
Gebdag="";
Gebmaand="";
Gebjaar="";
Telefoon="";
Email="";
Tshirt="";
Keuzedag="";
Functie="";
Opmerkingen="";

}

if ( (sCommand!="") && (ExitCode==1) )

{
MAILBOX= "Formulier VRIJWILLIGERS" + "\n";
MAILBOX+= "________________________________________________________" + "\n";
MAILBOX+= "Ingevuld door:\n";
MAILBOX+= "Voorletters: "+Request.Form("Voorletters")+"\n";
MAILBOX+= "Tussenvoegsels: "+Request.Form("Tussen")+"\n";
MAILBOX+= "Achternaam: "+ Request.Form("Achternaam")+"\n";
MAILBOX+= "Adres: " + Request.Form("Adres")+"\n";
MAILBOX+= "Postcode: " + Request.Form("Postcode")+"\n";
MAILBOX+= "Woonplaats: " + Request.Form("Woonplaats")+"\n";
MAILBOX+= "Geslacht: " + Request.Form("Geslacht")+"\n";
MAILBOX+= "Geboortedatum: " + Request.Form("Gebdag")+" - " + Request.Form("Gebmaand")+" - " + Request.Form("Gebjaar")+"\n";
MAILBOX+= "Telefoon: "+ Request.Form("Telefoon")+"\n";
MAILBOX+= "Emailadres: " + Request.Form("Email")+"\n";
MAILBOX+= "Maat T-shirt: " + Request.Form("Tshirt")+"\n";
MAILBOX+= "________________________________________________________" + "\n";
MAILBOX+= "Dag van beschikbaarheid: " + "\n";
MAILBOX+= Request.Form("Keuzedag") + "\n";
MAILBOX+= "Functie: " + Request.Form("Functie")+"\n";
MAILBOX+= "________________________________________________________" + "\n";
MAILBOX+= "Opmerkingen:\n";
MAILBOX+= Request.Form("Opmerkingen")+"\n";
MAILBOX+= "________________________________________________________" + "\n";
MAILBOX+= "Einde formulier." + "\n";

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "84.244.149.60"
Flds(" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername ") = "secretariaat@paragamesbreda.eu"
Flds(" http://schemas.microsoft.com/cdo/configuration/sendpassword") = "paragames"
Flds("http://schemas.microsoft.com/cdo/configuration/sendemailaddress ") = "noreply@paragamesbreda.eu"
Flds.Update
Set iMsg.Configuration = iConf
iMsg.To = "secretariaat@paragamesbreda.eu"
iMsg.From = "noreply@paragamesbreda.eu"
iMsg.Subject = "Inschrijving"
strBody = MAILBOX
iMsg.HTMLBody = strBody
iMsg.Send

sCommand = "verstuurd";
}
%>
<html>

<head>
<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
<% if (sCommand == "verstuurd")
{%>
<meta http-equiv="refresh" content="3;url=vrijwilligers_send.html">
<% }%>
<title>ParaGamesBreda</title>
<link rel="stylesheet" href="huisstijl.css">
</head>

<body leftmargin="170" rightmargin="20" topmargin="10" marginheight="10" background="httpdocs/img/bg_beeldmain.gif" bgproperties="fixed" bgcolor="white">
<script type="text/javascript" src="milonic_src.js"></script>
<script type="text/javascript">

if(ns4)_d.write("<scr"+"ipt type=text/javascript src=mmenuns4.js><\/scr"+"ipt>");
else _d.write("<scr"+"ipt type=text/javascript src=mmenudom.js><\/scr"+"ipt>");

</script>
<script type="text/javascript" src="menu_data.js"></script>
<script type="text/javascript" src="keypress.js" ></script>
<form name="vrijwilliggersformulier" method="post" action="vrijwilligers.asp">
<input type="hidden">
<%
if (sCommand== "verstuurd")
{
%>


Uw aanvraag wordt verstuurd. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 


<%
}
%>


Vrijwilligers 
 


VRIJWILLIGERS GEZOCHT! 
Mede dankzij de inzet en enthousiaste medewerking van vrijwilligers wordt ParaGamesBreda! een succes! 
 
Stichting ParaGamesBreda! is daarom op zoek naar vrijwillige medewerkers, die zich willen inzetten om ons te helpen tijdens de uitvoering van ParaGamesBreda! 
 
In verschillende vrijwillige vormen kunt u uw bijdrage leveren. 
Van chauffeur tot begeleider van sporters en clinics. 
Van logistiek controller tot parkeercoördinator.
 
 
<img id="Portretfoto_van_twee_vrijwilligers" alt="Portretfoto van twee vrijwilligers" name="Portretfoto_van_twee_vrijwilligers" align="right" valign="top" src="httpdocs/img/vrijwilligers.jpg" style="padding: 3px" height="133" border="0" width="100">Meld u aan als vrijwilliger! 

Wilt u meewerken aan een nieuw evenement voor sporters met een lichamelijke beperking? 
Wilt u weten of u iets voor de stichting kunt betekenen, vult u dan onderstaand formulier in en u ontvangt zo spoedig mogelijk meer informatie. 
 
Persoonlijke gegevens: 
 
De met een * aangegeven velden zijn verplicht in te vullen. 
 

<table border="0" cellpadding="0" cellspacing="2">
<tr>
<td valign="middle" align="left">Voorletter(s) * 
</td>
<td valign="middle" align="left"><input type="text" name="Voorletters" size="24" value="<% =Voorletters %>"><%
Check(Voorletters);
%></td>
</tr>
<tr>
<td valign="middle" align="left">Tussenvoegsel 
</td>
<td valign="middle" align="left"><input type="text" name="Tussen" size="24" value="<% =Tussen %>"></td>
</tr>
<tr>
<td valign="middle" align="left">Achternaam * 
</td>
<td valign="middle" align="left"><input type="text" name="Achternaam" size="24" value="<% =Achternaam %>"><%
Check(Achternaam);
%></td>
</tr>
<tr>
<td valign="middle" align="left">Adres * 
</td>
<td valign="middle" align="left"><input type="text" name="Adres" size="24" value="<% =Adres %>"><%
Check(Adres);
%></td>
</tr>
<tr>
<td valign="middle" align="left">Postcode * 
</td>
<td valign="middle" align="left"><input type="text" name="Postcode" size="24" value="<% =Postcode %>"><%
Check(Postcode);
%></td>
</tr>
<tr>
<td valign="middle" align="left">Woonplaats * 
</td>
<td valign="middle" align="left"><input type="text" name="Woonplaats" size="24" value="<% =Woonplaats %>"><%
Check(Woonplaats);
%></td>
</tr>
<tr>
<td valign="middle" align="left">Geboortedatum * 
</td>
<td valign="middle" align="left"><input type="text" name="Gebdag" size="3" value="<% =Gebdag %>"> - <input type="text" name="Gebmaand" size="3" value="<% =Gebmaand %>"> - <input type="text" name="Gebjaar" size="5" value="<% =Gebjaar %>"> (dag-maand-jaar) 
</td>
</tr>
<tr>
<td valign="middle" align="left">Geslacht * 
</td>
<td valign="middle" align="left"><input type="radio" value="Man" name="geslacht">man   <input type="radio" value="Vrouw" name="geslacht">vrouw 
</td>
</tr>
<tr>
<td valign="middle" align="left">Telefoonnummer * 
</td>
<td valign="middle" align="left"><input type="text" name="Telefoon" size="24" value="<% =Telefoon %>"><%
Check(Telefoon);
%></td>
</tr>
<tr>
<td valign="middle" align="left">E-mailadres 
</td>
<td valign="middle" align="left"><input type="text" name="Email" size="24" value="<% =Email %>"></td>
</tr>
<tr>
<td valign="middle" align="left">Maat T-shirt 
</td>
<td valign="middle" align="left"><select name="Tshirt" size="1">
<option value="niets gekozen" selected>Kies</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select></td>
</tr>
<tr>
<td valign="middle" align="left"> 
</td>
<td valign="middle" align="left"></td>
</tr>
<tr>
<td valign="middle" align="left" colspan="2">Op welke dagen bent u beschikbaar 
</td>
</tr>
<tr>
<td valign="middle" align="left" colspan="2"><input type="checkbox" value="zaterdag 14 oktober 2007" name=""> zaterdag 13 oktober 
<input type="checkbox" value="zondag 15 oktober 2007" name="Keuzedag"> zondag 14 oktober 
</td>
</tr>
<tr>
<td valign="middle" align="left"> 
</td>
<td valign="middle" align="left"></td>
</tr>
<tr>
<td valign="middle" align="left">Functie 
</td>
<td valign="middle" align="left"><select name="Functie" size="1">
<option value="niets gekozen" selected>Kies</option>
<option value="Begeleider sporten">Begeleider sporten</option>
<option value="Begeleider clinics">Begeleider clinics</option>
<option value="Logistiek controller">Logistiek controller</option>
<option value="Verkeersregelaar">Verkeersregelaar</option>
<option value="Medewerker verzorging">Medewerker verzorging</option>
<option value="Medewerker op- en afbouw">Medewerker op- en afbouw</option>
<option value="Geen voorkeur">Geen voorkeur</option>
</select></td>
</tr>
<tr>
<td valign="middle" align="left">Opmerkingen 
</td>
<td valign="middle" align="left"><textarea name="Opmerkingen" cols="40" rows="4"></textarea></td>
</tr>
<tr>
<td valign="middle" align="left"> 
</td>
<td valign="middle" align="left"> 
</td>
</tr>
<tr>
<td valign="top" align="left"></td>
<td valign="middle" align="left"><input type="reset" name="cm" value="Wissen"><input type="submit" name="cm" value="Verzenden"></td>
</tr>
</table>
</form>
 
 
</body>

</html>

ASP Contactformulier

Liejan

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy