Beste lezer,
bij het submitten van een form naar zichzelf "#" checkt deze code op lege velden. Echter zijn dan telkens de velden leeg bij een foutmelding. Iemand enig idee hoe je dit kunt voorkomen ? Zie code:
bij het submitten van een form naar zichzelf "#" checkt deze code op lege velden. Echter zijn dan telkens de velden leeg bij een foutmelding. Iemand enig idee hoe je dit kunt voorkomen ? Zie code:
Code:
<!--#include file ="includes/conn.asp"-->
<%
On Error Resume Next
if Request.Querystring("submit") = "1" Then
if Request.Form("incident_nummer") = "" Then
Response.Write("<p class='foutmelding'><img src='images\foutmelding.png'> Incidentnummer, mag niet leeg zijn!</p>")
Elseif Request.Form("incident_omschrijving") = "" Then
Response.Write("<p class='foutmelding'><img src='images\foutmelding.png'> Omschrijving, mag niet leeg zijn!</p>")
Elseif Request.Form("incident_uren") = "" Then
Response.Write("<p class='foutmelding'><img src='images\foutmelding.png'> Uren, mag niet leeg zijn!</p>")
Elseif Request.Form("incident_datum") = "" Then
Response.Write("<p class='foutmelding'><img src='images\foutmelding.png'> Datum, mag niet leeg zijn!</p>")
Elseif IsNumeric(Request.Form("incident_uren")) = FALSE then
Response.Write("<p class='foutmelding'><img src='images\foutmelding.png'> Uren, is geen numerieke waarde! (Geen comma's of punt of - / etc)</p>")
Else
SQL = "INSERT INTO REGISTRATIE (GEBRUIKERSNAAM, TAAKNAAM, INCIDENTNUM, OMSCHRIJVING, TIJD, DATUM, THUISWERKEN)" & _
"VALUES ('" & Session("SESSION_GEBRUIKERSNAAM") & "', 'INCIDENT', '" & Request.Form("incident_nummer") & "', '" & Request.Form("incident_omschrijving") & "', '" & Request.Form("incident_uren") & "', '" & Request.Form("incident_datum") & "', '" & Request.Form("incident_thuiswerken") & "')"
'Response.write SQL
rs.Open SQL, objConn
Response.Write("<p class='succes'><img src='images\succes.png'> Data is met succes ingevoerd.</p>")
End if
End if
If Err.Number <> 0 Then
Response.Write("<p class='foutmelding'>Er heeft een foutmelding plaatgevonden:<br><br>")
Response.Write("<b>" & Err.Description & "</b><br><br>")
Response.Write("Neem contact op <a href='mailto:removed@email'>de beheerder</a><br>Graag de foutmelding bij uw melding invoegen.<br><br><a href='javascript:history.go(-1)'>Ga terug</a>")
Response.End
End If
%>
<html>
<head>
<title>Incident</title>
<SCRIPT LANGUAGE="JavaScript" SRC="includes/CalendarPopup.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"> var cal = new CalendarPopup(); </SCRIPT>
</head>
<body>
<p style="padding-left:3px; font-family:arial; font-size:16"><b>Beheer
<img src="images/pijl_rechts.jpg"> Incident</b></p>
<table name="tabel" border="0" p class="arialklein" width="100%" align="left" style="">
<form name="frm" method="post" action="?submit=1" width="80%" p class="arialklein">
<tr>
<td width="100px">Incident nummer:</td>
<td><input type="text" size="16" maxlength="15" name="incident_nummer" style="border: 1px solid #000000;"></td>
</tr>
<tr>
<td valign="top">Omschrijving:</td>
<td><textarea rows="10" cols="40" style="border:1px solid black" style="font-family:arial" name="incident_omschrijving"></textarea></td>
</tr>
<tr>
<td>Gewerkt:</td>
<td><input type="text" size="10" maxlength="5" name="incident_uren" style="border: 1px solid #000000;"> (Minuten) - (<a href=javascript:popUp("bereken_minuten.asp")>Bereken</a>)</td>
</tr>
<tr>
<td>Datum:</td>
<td><input type="text" name="incident_datum" size="14" maxlength="20" style="border: 1px solid #000000;" readonly="readonly"> <img src="/images/datum.png" onClick="cal.select(document.forms['frm'].incident_datum,'anchor1','dd-MM-yyyy'); return false;" NAME="anchor1" ID="anchor1" title="Klik hier om de datum te selecteren"></img> </td>
</tr>
<tr>
<td valign="top">Thuiswerken:</td>
<td>
<input type="radio" name="incident_thuiswerken" value="Ja"> Ja <br>
<input type="radio" name="incident_thuiswerken" checked="true" value="Nee"> Nee
</td>
</tr>
<tr><td>*</td></tr>
<tr>
<td><INPUT type="submit" name="submit" value="Invoeren" class="red"></td>
</tr>
</form>
</table>
</body>
</html>
Laatst bewerkt:
