Lille submit fejl
HejJeg kan ikke finde ud af, hvorfor denne form, som submitter til den samme side, som den selv befinder sig på, ikke virker. Følgende bliver aldrig sandt, hvorfor der ikke kan blive indsat et element i databasen:
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
HELE KODEN:
<!--#include file ="../database/databaseConn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title></title>
</head>
<body>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<form method="post" name="insert" action="insert.asp">
<br>
<fieldset style="padding: 2">
<legend align="center">Indsæt ny artikel </legend>
<blockquote>
<p>Titel <br>
<input type="text" name="Titel" size="20"></p>
<p>Forfatter<br>
<input type="text" name="Forfatter" size="20"></p>
<p>Beskrivelse<br>
<input type="text" name="Beskrivelse" size="20"></p>
<p>Filnavn<br>
<input type="text" name="Filnavn" size="20"></p>
<p>Sektion<br>
<select size="1" name="Sektion">
<option>Artikler</option>
</select></p>
<p>Emne<br>
<select size="1" name="Emne">
<option>Den menneskelige krise</option>
</select></p>
<p align="left"><input type="submit" value="Ok" name="Insert">
<input type="reset" value="Annuller" name="Insert"></p>
</blockquote>
<p> </p>
</fieldset></form>
<p> </p>
</blockquote>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strSQL = "select * from ARTIKLER WHERE TITEL = '" & Request.form("titel") & "'"
set rs = Conn.execute(strSQL)
if rs.EOF then
Session.LCID = 1030
strSQL = "INSERT INTO ARTIKLER (titel, forfatter, beskrivelse, filnavn, sektion, emne, dato) VALUES ('" & Request.form("titel") & "','" & Request.form("forfatter") & "','" & Request.form("beskrivelse") & "','" & Request.form("filnavn") & "','" & Request.form("sektion") & "','" & Request.form("emne") & "','" & Now() & "')"
set rs = Conn.execute(strSQL)
response.write("OK")
else
response.write"<script>alert('Denne artikel eksisterer allerede!');</script>"
end if
Conn.close
response.redirect ("oversigt.asp")
end if
%>
</body>
</html>
