du får lige hele koden
<html>
<head>
<link href="../../general/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="../general/styles.css" type="text/css">
<style>
body
{
scrollbar-3dlight-color:white;
scrollbar-arrow-color:black;
scrollbar-base-color:#E2CD97 scrollbar-darkshadow-color:#E2CD97; scrollbar-face-color:#E2CD97;
scrollbar-highlight-color:#F7F9F3;
scrollbar-shadow-color:black;
color: #F3E5C2;
}
.style1 {color: #000000}
.style2 {color: #333333}
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function Checkform(thisform) {
// Startværdier
strError = 'Der opstod følgende fejl:\n\n';
intError = 0;
if (thisform.navn.value == "")
{
strError = strError + 'navn - Du mangler at indtaste dit navn!\n '
intError = 1;
thisform.navn.focus();
}
if (thisform.efternavn.value == "")
{
strError = strError + 'Efternavn - Du mangler at indtaste dit efternavn\n '
intError = 1;
thisform.efternavn.focus();
}
if (thisform.firmanavn.value == "")
{
strError = strError + 'Firmanavn - Du mangler at indtaste dit firmanavn\n '
intError = 1;
thisform.firmanavn.focus();
}
if (thisform.adresse.value == "")
{
strError = strError + 'Adresse - Du mangler at indtaste din adresse\n '
intError = 1;
thisform.adresse.focus();
}
if (thisform.postnr.value == "")
{
strError = strError + 'Postnummer - Du mangler at indtaste dit Postnummer\n '
intError = 1;
thisform.postnr.focus();
}
if (thisform.email.value == "")
{
strError = strError + 'Email - Du mangler at indtaste din email\n '
intError = 1;
thisform.email.focus();
}
if (thisform.kontrol.value == "")
{
strError = strError + 'Email - Du mangler at indtaste din email\n '
intError = 1;
thisform.email.focus();
}
if (intError == 1) {
alert(strError)
return false;
}
}
-->
</SCRIPT>
</head>
<body>
<%
dim conn
function OpenConn( DBName )
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"
end function
OpenConn("guestbook.mdb")
if request ("mode") = "opret" then
SQL = "insert into guestbook (navn, efternavn, bynavn, postnr, comments, email, firmanavn, CVR, adresse, pers1, pers2, kontrol) values ('" & replace(request("navn"),"'","''") & "','" & replace(request("efternavn"),"'","''") & "','" & replace(request("bynavn"),"'","''") & "','" & replace(request("postnr"),"'","''") & "','" & replace(request("comments"),"'","''") & "','" & replace(request("email"),"'","''") & "','" & replace(request("firmanavn"),"'","''") & "','" & replace(request("CVR"),"'","''") & "','" & replace(request("adresse"),"'","''") & "','" & replace(request("pers1"),"'","''") & "','" & replace(request("pers2"),"'","''") & "','" & replace(request("kontrol"),"'","''") & "')"
Conn.execute( SQL )
Besked = "<font size=2>Tak! Vi har modtaget din tilmelding. Du vil høre fra os snarest</font>"
end if
%>
<html>
<head>
<title>Tilmeldingsformular</title>
<link rel="stylesheet" type="text/css" href="
file:///W|/html/general/styles.css"></head>
<body bgcolor="white">
<p class="ny_broed">
<% = besked %>
<% = besked2 %>
<% if request ("mode") = "" then %>
</p>
<p class="broed">Velkommen til MBTI tilmelding</p>
<p class="broed">Indtast venligst dine data i nedenstående formular. <br>
<br>
Felter med * skal udfyldes
</p>
<form action="tilmelding2.asp" name=action METHOD="post" ONSUBMIT="return Checkform(this);">
<p>
<input type="hidden" Name="Mode" Value="opret">
<input type="hidden" Name="guest_id" Value="<% = Request("guest_id")%>">
<span class="menu">Fornavn: </span><br>
<INPUT type="text" name=navn>
<span class="style1">*</span><br>
<br>
<span class="menu">Efternavn : </span><br>
<input type="text" name=efternavn>
<span class="style1"><span class="style2">*
</span><br>
<br>
</span><span class="menu">Firmanavn</span><span class="style1"><br>
<INPUT name=firmanavn type="text" id="firmanavn">
*<br>
<br>
<span class="menu">CVR</span><br>
<INPUT name=CVR type="text" id="CVR">
<br>
<br>
</span><span class="menu">Adresse <br>
</span><span class="style1">
<INPUT name=adresse type="text" id="adresse">
* </span></p>
<table width="50%" border="0">
<tr>
<td width="35%"><span class="menu">Postnr</span> <input name=postnr type="text" id="postnr" size="4" maxlength="4"> <span class="style1">*
</span></td>
<td width="65%"><span class="menu">Bynavn</span> <input name=bynavn type="text" id="bynavn2">
</td>
</tr>
</table>
<p><span class="menu">E-mail : </span><br>
<INPUT type="text" name=email>
<span class="style1">*</span></p>
<p><span class="menu">Gentag din email adresse til kontrol</span><br>
<input name=kontrol type="text" id="kontrol" value="" size="40">
<span class="style1">*</span></p>
<p> <span class="menu">Navn på tilmeldte person 1</span> <br>
<INPUT name=pers1 type="text" id="pers1" value="" size="40">
<br>
<br>
<span class="menu">Navn på tilmeldte person 2
</span><br>
<INPUT name=pers2 type="text" id="pers2" value="" size="40">
<br>
<br>
<span class="menu">Kommentar : </span><br>
<TEXTAREA rows=4 cols=35 name=comments>
</TEXTAREA>
</p>
<p> <input type="Submit" Value="Send" name=Submit1>
<input type="Reset" Value="Slet" name=Reset1>
<br>
</p>
</form>
<% End If
Conn.Close
%>
</body>
</html>
