form tjek,
HejJeg har nedenstående side, som gemmer nogle data i en form.
Jeg vil gerne have formen tjekket, inden den bliver sendt til databasen, Jeg har prøvet med noget java script i starten, men det virker ikke... nogen der kan hjælpe.
<% mode = request("mode") %>
<% if mode = "" then %>
<HEAD>
<!-- Følgende script tjekker om alle felterne i form-mailen er udfyldt. -->
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
function validate(form1) {
//Navn-feltet
if (form1.navn.value == "") {
alert("Husk at angive dit navn!");
document.form1.navn.focus();
return false;
}
return true;
}
//Følgende sørger for cursoren står i første felt (navn)
function start() {
document.form1.katalognr1.focus();
return false;
}
</SCRIPT>
</HEAD>
<body bgcolor="#FFFFFF" text="#000000" background="../db/img/baggrund.gif" bgproperties="fixed">
<b><font face="Arial, Helvetica, sans-serif">Her kan du tilmelde dine effekter
til en auktion</font></b>.<br>
<form NAME="form1" method="POST" action="?mode=gemnybil">
<table width="90%" border="1">
<tr>
<td width="40%"><b>Firma / Privat:</b></td>
<td width="70%">
<input type="checkbox" name="firma" value="Firma">
Firma
<input type="checkbox" name="privat" value="Privat">
Privat </td>
</tr>
<tr>
<td width="40%"><b>Navn:</b></td>
<td width="70%">
<input type="text" name="navn" size="30">
</td>
</tr>
<tr>
<td width="40%"><b>Adresse:</b> </td>
<td width="70%">
<input type="text" name="Adresse" size="30">
</td>
</tr>
<tr>
<td width="40%"><b>Post Nr.:</b></td>
<td width="70%">
<input type="text" name="postnr" size="8">
</td>
</tr>
<tr>
<td width="40%"><b>By:</b> </td>
<td width="70%">
<input type="text" name="by" size="30">
</td>
</tr>
<tr>
<td width="40%"><b>Telefon:</b> </td>
<td width="70%">
<input type="text" name="telefon" size="30">
</td>
</tr>
<tr>
<td width="40%"><b>E-mail:</b></td>
<td width="70%">
<input type="text" name="email" size="30">
</td>
</tr>
<tr>
<td width="40%"><b>CVR nr.:</b></td>
<td width="70%">
<input type="text" name="cvr" size="30">
</td>
</tr>
<tr>
<td width="40%"><b>Bank forbindelse (reg. + konto nr)</b></td>
<td width="70%">
<input type="text" name="reg" size="10">
+
<input type="text" name="konto" size="30">
</td>
</tr>
<tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM auktionsliste")%>
<td width="40%"><b>Auktionsliste:</b> </td>
<td width="70%">
<select name="auktionsliste">
<option>Auktionskatalog</option>
<option>Konkurssalgskatalog</option>
<option>Bilauktionskatalog</option>
<option>Salg uden for auktion</option>
</select>
</td>
</tr>
<tr>
<td width="40%"><b>Forventet pris:</b> </td>
<td width="70%">
<input type="text" name="Pris" size="30">
Kr. </td>
</tr>
<tr>
<td width="40%"><b>Beskrivelse:</b></td>
<td width="70%">
<textarea name="beskrivelse" rows="5" cols="40"></textarea>
</td>
</tr>
</table>
<b>Har du et billede som du vil uploade til effekten?:</b><br>
Ja
<INPUT NAME="billede" TYPE="RADIO" VALUE="Ja">
Nej
<INPUT NAME="billede" TYPE="RADIO" VALUE="intet.jpg">
<br>
<br>
<input type="submit" value="Send" name="B1">
<input type="reset" value="Nulstil" name="B2">
</p>
</form><br>
<%else
end if %>
<%if mode = "gemnybil" then%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From salgsliste"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("navn") = Request.form("navn")
rs("adresse") = Request.form("adresse")
rs("postnr") = Request.form("postnr")
rs("by") = Request.form("by")
rs("telefon") = Request.form("telefon")
rs("e-mail") = Request.form("email")
rs("pris") = Request.form("pris")
rs("beskrivelse") = Request.form("beskrivelse")
rs("billede") = Request.form("billede")
rs("firma") = Request.form("firma")
rs("privat") = Request.form("privat")
rs("reg") = Request.form("reg")
rs("konto") = Request.form("konto")
rs("liste") = Request.form("auktionsliste")
rs("cvr") = Request.form("cvr")
rs.Update
If Request.form("billede") = "Ja" Then
Response.Redirect("uploadbil.asp?id=" & rs("id") & "")
End If
%>
<b><font size="3" face="Verdana">Effekten er nu gemt!</font></b><br>
<% end if %>
