Et eksempel kunne være:
<html>
<TITLE>Oprettelse af profil</TITLE>
<BASEFONT FACE=\"Comic Sans MS\" COLOR=\"DarkBlue\">
<h2>OPRETTELSE AF PROFIL</h2>
<Script language=\"JavaScript\">
<!--
//global variable for error flag
var errfound = false;
//længde af text streng
function ValidLength(item, len) {
return (item.length >= len);
}
// email adresse kontrol
function gyldigEmail(email) {
ugyldigeTegn = \" /:,;\"
// Må ikke være tom
if (email == \"\") {
return false
}
// Indeholder den ugyldige tegn?
for (i=0; i<ugyldigeTegn.length; i++) {
fejlTegn = ugyldigeTegn.charAt(i)
if (email.indexOf(fejlTegn,0) > -1) {
return false
}
}
// Der skal være et @-tegn
paaPos = email.indexOf(\"@\",1)
if (paaPos == -1) {
return false
}
// Og kun et @-tegn
if (email.indexOf(\"@\",paaPos+1) != -1) {
return false
}
punktumPos = email.indexOf(\".\",paaPos)
// og mindst et punktum efter @-tegnet
if (punktumPos == -1) {
return false
}
// der skal være mindst 2 tegn efter punktummet
if (punktumPos+3 > email.length) {
return false
}
return true
}
// Postnr kontrol?
function erTal(afgivetVaerdi) {
if (afgivetVaerdi == \"\") {
return false
}
for (i=0; i<afgivetVaerdi.length; i++) {
if (afgivetVaerdi.length < 4) {
return false
}
if (afgivetVaerdi.charAt(i) > \"9\") {
return false
}
}
return true
}
// fejlmeddelelse
function error(elem, text) {
// stop hvis fejl
if (errfound) return;
window.alert(text);
elem.select();
elem.focus();
errfound = true;
}
// kontrolfunktion
function Validate() {
errfound = false;
if (!ValidLength(document.form.fornavn.value,2))
error(document.form.fornavn,\"Ugyldig fornavn!\");
if (!ValidLength(document.form.efternavn.value,3))
error(document.form.efternavn,\"Ugyldig efternavn!\");
if (!ValidLength(document.form.adresse.value,8))
error(document.form.adresse, \"Ugyldig adresse!\");
if (!erTal(document.form.postnr.value))
error(document.form.postnr,\"Postnummeret er ugyldigt\");
if (!ValidLength(document.form.bynavn.value,4))
error(document.form.bynavn, \"Ugyldig bynavn!\");
if (!gyldigEmail(document.form.email.value))
error(document.form.email, \"Ugyldig email adresse!\");
if (document.form.kvalifikationer.selectedIndex == -1)
error(document.form.kvalifikationer, \"Du skal vælge mindst én kvalifikation\");
return !errfound; /* sand hvis ingen error fundet */
}
// -->
</script>
</head>
<body >
<FORM NAME=\"form\" onSubmit=\"return Validate();\" ACTION=\"vispro.asp\" METHOD=\"post\">
<table border=\"0\">
<tr>
<td><font size=\"4\">Fornavn</font></td>
<td><font size=\"4\"><input type=\"text\" size=\"35\" name=\"fornavn\"></font></td>
</tr>
<tr>
<td><font size=\"4\">Efternavn</font></td>
<td><font size=\"4\"><input type=\"text\" size=\"35\" name=\"efternavn\"></font></td>
</tr>
<tr>
<td><font size=\"4\">Adresse</font></td>
<td><font size=\"4\"><input type=\"text\" size=\"35\" name=\"adresse\"></font></td>
</tr>
<tr>
<td><font size=\"4\">Postnummer og by</font></td>
<td><font size=\"4\">
<SELECT NAME=\"postnr\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"postnr.mdb\") & \";UID=admin;PWD=;\"
Set rs = Conn.execute(\"select * from postnr\")
do until rs.eof %>
<OPTION VALUE=\"<%=rs(\"postnummer\") %>\"><%=rs(\"postnummer\") %></OPTION>
<%
rs.movenext
loop
set rs = nothing
conn.close
set conn = nothing %>
</SELECT>
<input type=\"text\" size=\"28\" name=\"bynavn\"></font></td>
</tr>
<tr>
<td><font size=\"4\">Uddannelse</font></td>
<td><font size=\"4\"><input type=\"text\" size=\"35\" name=\"uddannelse\"></font></td>
</tr>
<tr>
<td><font size=\"4\">E-mail</font></td>
<td><font size=\"4\"><input type=\"text\" size=\"35\" name=\"email\"></font></td>
<td><font size=\"4\">bruges som din brugerID</font></td>
</tr>
<TR>
<TD><font size=\"4\">Arbejdssted:</font></TD>
<TD><select name=\"arbejdssted\">
<OPTION VALUE=\"\" selected>
<OPTION VALUE=\"Hjemme\">Hjemme
<OPTION VALUE=\"Arbejdsplads\">Arbejdsplads
<OPTION VALUE=\"Begge\">Begge
</SELECT></TD>
</TR>
<BR><BR>
<TR>
<TD><font size=\"4\">Kvalifikationer:</font></TD>
<TD><SELECT NAME=\"kvalifikationer\" SIZE=5 MULTIPLE>
<OPTION VALUE=\"ASP\">ASP
<OPTION VALUE=\"PHP\">PHP
<OPTION VALUE=\"JAVA\">JAVA
<OPTION VALUE=\"XML\">XML
<OPTION VALUE=\"PERL\">PERL
<OPTION VALUE=\"HTML\">HTML
<OPTION VALUE=\"ACCESS\">ACCESS
<OPTION VALUE=\"MS SQL\">MS SQL
<OPTION VALUE=\"COBOL\">COBOL
<OPTION VALUE=\"CORBA\">CORBA
<OPTION VALUE=\"DELPHI\">DELPHI
<OPTION VALUE=\"C++\">C++
<OPTION VALUE=\"JAVA SCRIPT\">JAVA SCRIPT
<OPTION VALUE=\"CGI\">CGI
<OPTION VALUE=\"WWW\">WWW
<OPTION VALUE=\"OPERATIV SYSTEMER\">OPERATIV SYSTEMER
<OPTION VALUE=\"DISTRIBUERDE SYSTEMER\">DISTRIBUERDE SYSTEMER
<OPTION VALUE=\"MULTIMEDIA\">MULTIMEDIA
<OPTION VALUE=\"NETVÆRK\">NETVÆRK
<OPTION VALUE=\"DB2\">DB2
<OPTION VALUE=\"OOAD\">OOAD
<OPTION VALUE=\"SAD\">SAD
</SELECT>
</TD>
</TR>
</table>
<table border=\"0\">
<tr>
<td colspan=\"2\" align=\"left\" valign=\"top\">
<font size=\"4\">Erhvervsfaglig uddannelse: </font>
</td>
</tr>
<tr>
<td >
<textarea rows=\"5\" cols=\"48\" wrap=\"virtual\" name=\"Erhvervsuddbox\"></textarea>
</td>
</tr>
<tr>
<td colspan=\"2\" align=\"left\" valign=\"top\">
<font size=\"4\">Øvrige informationer: </font>
</td>
</tr>
<tr>
<td >
<textarea rows=\"5\" cols=\"48\" wrap=\"virtual\" name=\"Øvrigeinfobox\"></textarea>
</td>
</tr>
</table>
<table >
<tr>
<td width=\"33%\"></td>
<td><input type=\"submit\" value=\"Opret\"></td>
<td><INPUT TYPE=Reset VALUE=\" Reset \"></td>
<td width=\"45%\"></td>
</tr>
</table>
</form>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
