> Tech > Listings 5 & 6

Listings 5 & 6

Tech - Par Renaud ROSSET - Publié le 24 juin 2010

Listing 5 : Sous-routine ValidationError

Sub ValidationError(DataFieldsInError)
Response.Write “<html><head><title>Data Validation Error</title></head>”
Response.Write “<body><h3><font face='Verdana' color='red'>Error: Data Missing From Required Field</font></h3>”
Response.write “<br><br><br>”
Response.Write “<p><font face='Verdana' size='2'>Please provide data for the following field(s):</font></p><br></font>”
Response.Write “<blockquote>”
for k=0 to ubound(DataFieldsInError)
 if DataFieldsInError(k)<>”” then
  if isnumeric(datafieldsinerror(k)) then
   Response.Write “<p><font face='Verdana' size='2'><b>” & oAuth.DisplayPreDefinedQuestion(DataFieldsInError(k))

Listings 5 & 6

& _
“</b></font></p><br></font>”
else
if datafieldsinerror(k)=”C” then
Response.Write “<p><font face=’Verdana’ size=’2′><b>Custom Challenge
Question</b></font></p><br></font>”
else
Response.Write “<p><font face=’Verdana’ size=’2′><b>Response to Custom Challenge
Question</b></font></p><br></font>”
end if
end if
end if
next
End sub

Listing 6 : Code pour collecter l’information utilisateur

<td><font face=”Verdana” size=”2”><b>What is your user id?:</b><br><small>Enter
Domain\Username or Username@Domain.com</small></font></td>
<td><font face=”Verdana” size=”2”><input type=”text” name=”UserName”
size=”25”></font></td>
</tr>

Téléchargez cette ressource

Microsoft 365 Tenant Resilience

Microsoft 365 Tenant Resilience

Face aux failles de résilience des tenants M365 (configurations, privilèges, sauvegarde). Découvrez 5 piliers pour durcir, segmenter et surveiller vos environnements afin de limiter l’impact des attaques. Prioriser vos chantiers cyber et améliorer la résilience de vos tenants Microsoft 365.

Les plus consultés sur iTPro.fr

A lire aussi sur le site

À la une de la chaîne Tech