> 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

Guide de facturation électronique, voie royale pour le DAF et la digitalisation de la fonction finance

Guide de facturation électronique, voie royale pour le DAF et la digitalisation de la fonction finance

Ce livre blanc expose les problématiques auxquelles sont confrontés les DAF modernes et souligne les bénéfices de la facturation électronique pour la trésorerie. Il dévoile également le processus de déploiement de ce projet de transformation digitale que la réglementation rendra bientôt obligatoire.

Tech - Par iTPro - Publié le 24 juin 2010