default.asp:
----------------------
<!-- #include file="Main.asp" -->
<script language="JavaScript" type="text/JavaScript">
<!--
function Email(email) {
ugyldigeTegn = " /:,;<>"
for (i=0; i<ugyldigeTegn.length; i++) {
fejlTegn = ugyldigeTegn.charAt(i)
if (email.indexOf(fejlTegn,0) > -1) {
return false
}
}
paaPos = email.indexOf("@",1)
if (paaPos == -1) {
return false
}
if (email.indexOf("@",paaPos+1) != -1) {
return false
}
punktumPos = email.indexOf(".",paaPos)
if (punktumPos == -1) {
return false
}
if (punktumPos+3 > email.length) {
return false
}
return true
}
function tilmeld(form) {
if (form.navn.value == "" ) {
alert("Du skal indtaste dit navn.")
form.navn.focus()
return false
}
for (var i = 0; i < form.navn.value.length; i++) {
var _123 = form.navn.value.substring(i, i + 1);
if((((((((((_123 < "a" || "z" < _123)
&& (_123 < "A" || "Z" < _123)) && _123 != ' ')
&& _123 != 'æ')
&& _123 != 'ø')
&& _123 != 'å')
&& _123 != 'Æ')
&& _123 != 'Ø')
&& _123 != 'Å')
&& _123 != '.')
{
alert("Indtast venligst dit navn korrekt.")
form.navn.focus()
form.navn.select()
return false
}
}
if (form.email.value == "") {
alert("Indtast venligst din e-mail adresse.")
document.formular1.email.focus()
return false
}
if (!Email(form.email.value)) {
alert("Ugyldig e-mail adresse.")
form.email.focus()
form.email.select()
return false
}
}
//-->
</script>
<table width="100%" border="0" cellpadding="0" cellspacing="10">
<tr>
<td>
<h1>Velkommen til infosiden for HTX VIBY 3.X.</h1>
<p>Efter den første gamle elevfest var blevet afholdt, tænkte jeg
om det ikke ville være en god ide, at have en side hvorpå man kunne
finde indformationer om hvad de forskellige gamle klassekammerater
går og laver. Det blev grundlag for denne side, hvorpå man
i fremtiden vil kunne se klasselisten som indeholder informationer
som, navn. adresse, beskæftigelse og tlf mm. Ud over klasselisten
vil der også komme et forum hvor folk vil hav mulighed for
at snakke om det de nu har lyst til. </p>
<table width=100% border=0 cellpadding=0 cellspacing=0>
<tr>
<td align="center">
<form name ="formular1" method="post" action="bruger.asp" onSubmit="return tilmeld(this)">
<table width="175" border="0" cellspacing="10" cellpadding="0" valign="top">
<tr>
<td align="right" valign="top"> <b>Navn:</b>
</td>
<td align="left" valign="top"> <input type="text" name="navn" maxlength="50" style="border:1px solid #337D9D;width:100px;height:18px;font-size:9px;color:#000000;background-color: #FFFFFF;" value="Indtast Navn">
</td>
<tr>
<td align="right" valign="top"><input type="image" src="email.gif" border="0" name="Submit" alt="Tilmeld E-mail"></td>
<td align="left" valign="top"><input type="text" name="email" maxlength="50" style="border:1px solid #337D9D;width:100px;height:18px;font-size:9px;color:#000000;background-color: #FFFFFF;" value="din@e-mail.dk"></td>
</table>
</form><br><br>
<img src="klassefoto.jpg" name="klassen" border="1" id="klassen">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
------------------
Main.asp:
------------------
<% @language=javascript %>
<html>
<head>
<title>HTX</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="Style.css" rel="stylesheet" type="text/css">
<style>
.streg2 { border-width: 0px 0px 0px 1px; border-style: solid; border-color: #337D9D; }
.streg1 { border-width: 0px 1px 0px 0px; border-style: solid; border-color: #337D9D; }
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100%" rowspan="2" background="tile.jpg" bgcolor="#CCCCCC" class="streg1"> </td>
<td width="690" height="100"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="
http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="690" height="100">
<param name="movie" value="logo.swf">
<param name="quality" value="low">
<embed src="logo.swf" quality="low" pluginspage="
http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="690" height="100"></embed></object></td>
<td height="100%" rowspan="2" background="tile.jpg" bgcolor="#CCCCCC" class="streg2"> </td>
</tr>
<tr>
<td width="690" align="left" valign="top">
---------------
bruger.asp:
---------------
<!-- #include file="Main.asp" -->
<%
//læs opl fra form
email = Request("email");
Navn = Request("navn");
//åbn DBforbindelse
conn = Server.CreateObject("ADODB.Connection");
DBPath = "DBQ=" + Server.mappath("nyheder.mdb");
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " + DBPath);
// lås appl
Application.Lock;
//find største NyId og læg 1 til
rs = conn.Execute("SELECT MAX(brugerid)AS x FROM Bruger");
if(!rs.EOF){
brugerid = rs.Fields("x");
brugerid = brugerid + 1;
}
//Indsæt i DB:
conn.Execute("INSERT INTO Bruger VALUES ("+brugerid+",'"+Navn+"','"+email+"')");
// lås appl op
Application.Unlock;
// bekræftelse
rsx = conn.Execute("SELECT * FROM Bruger WHERE brugerid ="+brugerid);
%> <b>Følgende email er blevet tilmeldt nyhedsbrevet: </b><br>
<p><b>Navn: </b><%=rsx.Fields("Navn")%> <b>E-mail: </b><%=rsx.Fields("email")%></p>
<%
//luk DBforbindelse
conn.Close();
%> </body>
</html>
