Opgave til eagleeye m.fl
Jeg har sammenbikset en formular og fundet upload form - disse to ting har jeg prøvet at sætte sammen uden den større succes, nu har jeg siddet kikket/arbejdet på det hele weekend uden held, så hvad siger I til det ???Formular :
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>FangstRapport</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.bold {
font-weight: bold;
}
-->
</style>
</head>
<body background="/fiskegrej/fangstrapport/baggrund.jpg" onload="parent.document.getElementById('indhold').style.height=((document.body.scrollHeight)?document.body.scrollHeight:document.body.offsetHeight)+'px'">
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
dato = Replace(Request.form("dato"),"'","''") 'dato og klokkeslæt
klokke = Replace(Request.form("klokke"),"'","''") ' tal
sted = Replace(Request.form("sted"),"'","''") ' tekst
vindretning = Replace(Request.form("vindretning"),"'","''") 'tekst
vindstyrke = Replace(Request.form("vindstyrke"),"'","") ' notat
vandstand = Replace(Request.form("vandstand"),"'","") ' notat
vandtemparatur = Replace(Request.form("vandtemparatur"),"'","") ' notat
art = Replace(Request.form("art"),"'","''") ' tekst
langde = Replace(Request.form("langde"),"'","") ' notat
vagt = Replace(Request.form("vagt"),"'","") ' notat
agn = Replace(Request.form("agn"),"'","") ' notat
farve = Replace(Request.form("farve"),"'","") ' notat
bemarkning = Replace(Request.form("bemarkning"),"'","") ' notat
bemarkning = Replace(bemarkning,vbCrLf,"<br>")
billede = Replace(Request.form("billede"),"'","''") ' tekst
if dato="" or sted="" or art="" or vagt="" then
Response.Write "Fejl i indtastningen."
Response.End
else
'kolonne typerne : navn :tekst, dato :date/time, karakter :tal, beskrivelse :notat/tekst
sql = "insert into skema (dato, klokke, sted, vindretning, vindstyrke, vandstand, vandtemparatur, art, langde, vagt, agn, farve, bemarkning, billede ) values ("
sql = sql & "'" & dato & "', "
sql = sql & "'" & klokke & "', "
sql = sql & "'" & sted & "', "
sql = sql & "'" & vindretning & "', "
sql = sql & "'" & vindstyrke & "', "
sql = sql & "'" & vandstand & "', "
sql = sql & "'" & vandtemparatur & "', "
sql = sql & "'" & art & "', "
sql = sql & "'" & langde & "', "
sql = sql & "'" & vagt & "', "
sql = sql & "'" & agn & "', "
sql = sql & "'" & farve & "', "
sql = sql & "'" & bemarkning & "', "
sql = sql & "'" & billede & "'"
sql = sql & ")"
set Conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("fang.mdb")
Conn.Open strConn
Conn.Execute(sql)
Conn.Close
Set conn=nothing
Response.redirect "sidstetest.asp"
end if
end if
%>
<script>
function validate(theform) {
if(theform.dato.value=='') {
alert ('Dato felt skal udfyldes');
return false;
if(theform.klokke.value=='') {
alert ('Klokken felt skal udfyldes');
return false;
if(theform.sted.value=='') {
alert ('Sted felt skal udfyldes');
return false;
}
if(theform.art.value=='') {
alert ('Art felt skal udfyldes');
return false;
}
if(theform.vagt.value=='') {
alert ('Vægt felt skal udfyldes');
return false;
}
return true;
}
</script>
<h3 align="center">FangstRapport !</h3>
<table width="50%" border="0" cellpadding="2" cellspacing="0">
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" ENCTYPE="multipart/form-data" onsubmit="return validate(this);">
<tr>
<td class="bold">Dato:</td>
<td><input type="text" name="dato"></td>
</tr>
<tr>
<td class="bold">Klokken:</td>
<td><input type="text" name="klokke"></td>
</tr>
<tr>
<td class="bold">Sted:</td>
<td><input type="text" name="sted"></td>
</tr>
<tr>
<td class="bold"> </td>
<td> </td>
</tr>
<tr>
<td valign="top" class="bold">Vindretning:</td>
<td><form name="form2" method="post" >
<select name="vindretning">
<option>Vælg vindretning</option>
<option value="N">N</option>
<option value="NØ">NØ</option>
<option value="Ø">Ø</option>
<option value="ØS">ØS</option>
<option value="S">S</option>
<option value="SV">SV</option>
<option value="V">V</option>
<option value="VN">VN</option>
</select></td></tr>
<tr>
<td valign="top" class="bold">Vindstyrke:</td>
<td><form name="form3" method="post" >
<select name="vindstyrke">
<option>Vælg vindstyrke</option>
<option value="stille">Stille</option>
<option value="svag">Svag</option>
<option value="let">Let</option>
<option value="jævn">Jævn</option>
<option value="frisk">Frisk</option>
<option value="hård">Hård</option>
<option value="kulling">Kulling</option>
<option value="storm">Storm</option>
</select></td></tr>
<tr>
<td class="bold">Vandstand:</td>
<td><input type="text" name="vandstand"></td>
</tr>
<tr>
<td class="bold">Vandtemperatur:</td>
<td><input type="text" name="vandtemparatur"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td class="bold">Art:</td>
<td><input type="text" name="art"></td>
</tr>
<tr>
<td class="bold">Længde:</td>
<td><input type="text" name="langde"></td>
</tr>
<tr>
<td class="bold">Vægt:</td>
<td><input type="text" name="vagt"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td class="bold">Agn:</td>
<td><input type="text" name="agn">
<span class="bold">Farve:</span>
<input type="text" name="farve"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td valign="top" class="bold">Bemærkning:</td>
<td><textarea name="bemarkning" cols="50" rows="20"></textarea>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td class="bold">Billede link:</td>
<td><input type="file" name="billede" size="50"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input type="submit" name="send" value="Send"></td>
<td><input type="reset" name="Reset" value=" Slet "></td>
</tr>
</table>
</td>
</tr></form>
</table>
</body>
</html>
