> Tech > Listings 5 & 6

Listings 5 & 6

Tech - Par iTPro - Publié le 24 juin 2010
email

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 gratuitement cette ressource

Comment sécuriser la Digital Workplace ?

Comment sécuriser la Digital Workplace ?

Avec le recours généralisé au télétravail, les entreprises ont ouvert davantage leur SI. En dépit des précautions prises, elles ont mécaniquement élargi leur surface d’exposition aux risques. Découvrez 5 axes à ne pas négliger dans ce Top 5 Sécurité du Télétravail.

Tech - Par iTPro - Publié le 24 juin 2010