FORMULAR =
http://www.web-byggeren.dk/fiskegrej/anmeldelse/eagleeye.asp:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Eagleeye's formular!</title>
</head>
<body>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'henter form felterne
navn = Replace(Request.form("navn"),"'","''")
dato = Replace(Request.form("dato"),"'","")
if isDate(dato) then
dato = year(dato) & "-" & month(dato) & "-" & day(dato)
end if
karakter = Replace(Request.form("karakter"),"'","")
beskriv = Replace(Request.form("beskriv"),"'","''")
beskriv = Replace(beskriv,vbCrLf,"<br>")
kategori = Replace(Request.form("kategori"),"'","")
aktiv = Replace(Request.form("aktiv"),"'","")
if aktiv <> "" then
aktiv = "true"
else
aktiv = "false"
end if
if navn="" or dato="" or beskriv="" or kategori="" 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, aktvi :Ja/Nej
sql = "insert into dittabelnavn (navn, dato, karakter, beskrivelse, kategori, aktiv) values ("
sql = sql & "'" & navn & "', "
sql = sql & "#" & dato & "#, "
sql = sql & "" & karakter & ", "
sql = sql & "'" & beskriv & "', "
sql = sql & "" & kategori & ", "
sql = sql & "" & aktiv & " "
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
%>
<%
set Conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db10.mdb")
Conn.Open strConn
SQL = "select * from kategorier"
Set rs = Conn.Execute(SQL)
katOptionList = ""
do while not rs.EOF
katOptionList=katOptionList & "<option value=""" & rs("id") & """>" & rs("katnavn") & "</option>"
rs.Movenext
loop
Conn.Close
%>
<script>
function validate(theform) {
if (theform.navn.value=='') {
alert ('Navn skal udfyldes.');
return false;
}
if (theform.dato.value=='') {
alert ('Dato 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.beskriv.value=='') {
alert ('Beskrivelse skal udfyldes');
return false;
}
if(theform.kategori.value=='' || theform.kategori.value=='---') {
alert ('Kategori skal vælges');
return false;
}
return true;
}
</script>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" onsubmit="return validate(this);">
<table>
<tr><td>Navn:</td><td><input type="text" name="navn"></td></tr>
<tr><td>Dato:</td><td><input type="text" name="dato"></td></tr>
<tr><td>Karakter:</td><td><input type="text" name="karakter"></td></tr>
<tr><td>Beskrivelse:</td><td><textarea name="beskriv" cols="50" rows="25"></textarea></td></tr>
<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>Aktiv:</td><td><input type="checkbox" name="aktiv"></td></tr>
<tr><td> </td><td><input type="submit" name="send" value="send"></td></tr>
</table>
</form>
</body>
</html>
KATEGORIER =
http://www.web-byggeren.dk/fiskegrej/anmeldelse/test.asp:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
katid=Request.Querystring("id")
set Conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db10.mdb")
Conn.Open strConn
SQL = "select * from kategorier"
Set rs = Conn.Execute(SQL)
do while not rs.EOF
Response.write "<a href=""vis.asp?id=" & rs("id") & """>" & rs("katnavn") & "</a> "
rs.Movenext
loop
Conn.Close
Set Conn=nothing
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
