Fejl i min formular !
Jeg har en eller flere fejl i denne formular, men jeg kan desværre ikke selv finde den - kan I ?<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Bedømmelse formular!</title>
<style type="text/css">
<!--
.bag {
border: 1px dotted #333333;
background-color: #E4E4E4;
width: 50%;
padding: 10px;
}
-->
</style>
</head>
<body>
<h3 align="center">
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'henter form felterne
navn = Replace(Request.form("navn"),"'","''")
kategori = Replace(Request.form("kategori"),"'","")
produkt = Replace(Request.form("produkt"),"'","")
pris = Replace(Request.form("pris"),"'","")
karakter = Replace(Request.form("karakter"),"'","")
mail = Replace(Request.form("mail"),"'","''")
url = Replace(Request.form("url"),"'","''")
beskriv = Replace(Request.form("beskriv"),"'","''")
beskriv = Replace(beskriv,vbCrLf,"<br>")
if navn="" or kategori="" or produkt="" or mail="" or beskriv="" or not isNumeric(karakter) or not isnumeric(kategori) then
Response.Write "Fejl i indtastningen."
Response.End
else
'kolonne typerne : navn :tekst, dato :date/time, karakter :tal, beskrivelse :notat/tekst
sql = "insert into dittabelnavn (navn, kategori, produkt, pris, karakter, mail, url, beskrivelse ) values ("
sql = sql & "'" & navn & "', "
sql = sql & "'" & kategori & "', "
sql = sql & "'" & produkt & "', "
sql = sql & "'" & pris & "', "
sql = sql & "" & karakter & ", "
sql = sql & "'" & mail & "' "
sql = sql & "'" & url & "' "
sql = sql & "'" & beskriv & "' "
sql = sql & ")"
set Conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db10.mdb")
Conn.Open strConn
Conn.Execute(sql)
Conn.Close
Set conn=nothing
Response.Write "<center><h2>Data er tilføjet</h2></center><br>"
end if
end if
%>
<script>
function validate(theform) {
if (theform.navn.value=='') {
alert ('Navn skal udfyldes.');
return false;
}
if(theform.kategori.value=='' || theform.kategori.value=='---') {
alert ('Kategori skal vælges');
return false;
}
if (theform.produkt.value=='') {
alert ('Produkt skal udfyldes');
return false;
}
str = theform.karakter.value;
if(!str.match(/^(\d)+$/i)) {
alert ('Karakter skal udfyldes og være et tal');
return false;
}
if (theform.mail.value=='') {
alert ('Email skal udfyldes');
return false;
}
if(theform.beskriv.value=='') {
alert ('Beskrivelse skal udfyldes');
return false;
}
return true;
}
</script>
<font face="Verdana">B</font><font face="Verdana">edømmelse </font></h3>
<p align="center"><font size="2" face="Verdana">Udfyld venligst alle nedestående
felter</font></p>
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" class="bag" onsubmit="return validate(this);">
<div align="center">
<table width="50%" align="center">
<tr>
<td>Kategori:</td>
<td><select name="kategori">
<option value="---">--Vælg kategori--</option>
<option value="1">Hjul</option>
<option value="2">Stang</option>
<option value="3">Fiskesæt</option>
<option value="4">Endegrej</option>
<option value="5">Beklædning</option>
</select></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td>Produkt :</td>
<td><input type="text" name="produkt"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td>Karakter:</td>
<td><input type="text" name="karakter">
bruge et tal mellem 1-10 ( <font size="2">10 er bedst</font> )</td>
</tr>
<tr>
<td valign=top">Beskrivelse:</td>
<td rowspan="2"><textarea name="beskriv" cols="50" rows="25"></textarea></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>Pris:</td>
<td><input type="text" name="pris"></td>
</tr>
<tr>
<td>Indsendt af:</td>
<td><input type="text" name="navn"></td>
</tr>
<tr>
<td>E-mail :</td>
<td><input type="text" name="mail"></td>
</tr>
<tr>
<td>URL : </td>
<td><input type="text" name="url"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="send" value="send"></td>
</tr>
</table>
</div>
</form></td>
</tr>
</table>
<p align="center"> </p>
</body>
</html>
