Thx op voorhand!
![Question Mark :???:](./images/smilies/icon_question.gif)
Code: Selecteer alles
<form method="post" action="http://users.belgacom.net/cgi-bin/formd.cgi" onsubmit="return(check(this));">
<input type="hidden" name="to" value="emailadres">
<input type="hidden" name="subject" value="onderwerp">
<input type="hidden" name="next" value="http://users.belgacom.net/joca/thx.html">
Code: Selecteer alles
<script language="JavaScript"><!--
function check(f)
{
if(f[3].value == '')
{
alert('|| mailform error || (missing emailaddress)\n\nGelieve uw emailadres in te vullen. Zonder deze gegevens kunnen wij geen contact met u opnemen betreffende de gestelde vraag.\nAdministrator.');
return(false);
}
if(f[4].value == '')
{
alert('|| mailform error || (missing name)\n\nGelieve uw naam in te vullen.\nAdministrator.');
return(false);
}
if(f[5].value == '')
{
alert('|| mailform error || (missing firstname)\n\nGelieve uw voornaam in te vullen.\nAdministrator.');
return(false);
}
if(f[6].value == '')
{
alert('|| mailform error || (missing address)\n\nGelieve uw adres in te vullen.\nAdministrator.');
return(false);
}
if(f[7].value == '')
{
alert('|| mailform error || (missing region)\n\nGelieve uw stad/regio in te vullen.\nAdministrator.');
return(false);
}
var s;
if(f[3].value.search(/ /) != '-1')
{
alert('|| mailform error || (error occured on verifying emailaddress)\n\nGelieve uw emailadres na te kijken op fouten. Spaties zijn binnen een emailadres niet toegelaten.\n\nAdministrator');
return(false);
}
s = f[3].value.split(/@/);
if((s.length != 2) || s[0]=='' || s[1]=='')
{
alert('|| mailform error || (error occured on verifying emailaddress)\n\nGelieve uw emailadres na te kijken op fouten. Uw emailadres zou moeten zijn van de vorm [email protected].\n\nAdministrator');
return(false);
}
return (true);
}
// --></script>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
Sub cmdVerzend_onclick
If formulier.txtNaam.value<>"" Then
If formulier.txtVoornaam.value<>"" Then
If formulier.txtStraat.value<>"" Then
If formulier.txtNr.value<>"" Then
If formulier.txtPostnr.value<>"" Then
If formulier.txtStad.value<>"" Then
If formulier.txtLand.value<>"" Then
If formulier.textarea.value<>"" Then
If formulier.submit() then
formulier.submit
Else
alert "Reageer A.U.B.!!!!"
formulier.textarea.focus
End if
Else
alert "Land invullen A.U.B.!!!!"
formulier.txtLand.focus
End if
Else
alert "stad of gemeente invullen A.U.B.!!!!"
formulier.txtStad.focus
End if
Else
alert "postcode invullen A.U.B.!!!!"
formulier.txtPostnr.focus
End if
Else
alert "Nr invullen A.U.B.!!!!"
formulier.txtNr.focus
End if
Else
alert "Straat invullen A.U.B.!!!!"
formulier.txtStraat.focus
End if
Else
alert "Voornaam invullen A.U.B.!!!!"
formulier.txtVoornaam.focus
End if
Else
alert "Naam invullen A.U.B.!!!!"
formulier.txtNaam.focus
End if
End Sub
-->
</script>