Har gjort en test-sida där man ska skriva in namn och lite annan informtion. Men första gången jag startar upp sidan och ställer mig i första rutan skapas en post i databasen utan att jag har tryckt på submit. Om jag har tryckt submit och skriver in en ny post så blir det rätt. Jag har kollat koden flera gånger och tycker att den ser rätt ut. Vore ganska bra ifall vi fick se koden... Här kommer koden..... Jag har inte läst allt, men jag tror du ska lägga en if-sats runt den första koden så att den inte körs varje gång sidan visas... Då blir det såhär (första stycket): Varför inte göra en koll Tack för alla förslag jag har fåttVarför gör den en ny post fast man inte har tryckt submit?
Är det någon som har förslag på vad man kan ha gjort om man har skrivit för mycket eller för lite kod för att det ska bli så.
/JessicaSv: Varför gör den en ny post fast man inte har tryckt submit?
Sv: Varför gör den en ny post fast man inte har tryckt submit?
<!--#include file="adovbs.inc"-->
<%
ID=request.form("ID")
namn=request.form("namn")
ort=request.form("ort")
telefon=request.form("telefon")
email=request.form("email")
datum=request.form("datum")
set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Cirkel"
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT * FROM BOCKER", Connect, adOpenDynamic, adLockOptimistic
RS.AddNew
RS("namn")=namn
RS("ort")=ort
RS("telefon")=telefon
RS("email")=email
RS("datum")=date()
RS.Update
RS.Close
Connect.Close
%>
<html>
<head>
<title>Böcker</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFCA" link="#800000" vlink="#800000" alink="#FF00FF">
<CENTER>
<H1><P><FONT FACE="Comic Sans MS">BÖCKER</FONT></P></H1>
<P><FONT FACE="Comic Sans MS">I denna cirkel tänkte vi köpa in lite böcker som man får
sätta upp sig på för att läsa. Man kan se det lite som ett bibliotek. För er som vill vara med
kommer vi vilja ha en summa på 50kr för att deltaga i cirkeln. Cirkeln håller på under hela hösten
och när vi lackar mot jul så för varje deltagare välja en bok att behålla. Vi tar gärna in önskemål
om vilka böcker vi ska köpa in. Begränsat antal är satt till 10, så först till kvarn.....</P>
<BR><BR>
<form method="post" action="Bockar.asp" name="">
<p>Anmälan görs här nere:</p>
<TABLE WIDTH="400" BORDER=0>
<TR>
<TD ALIGN="CENTER" WIDTH="5%" >Namn:</TD>
<TD width="35%" >
<input type="text" name="Namn" size="35" value"<%=namn%>">
</TD>
</TR>
<tr>
<td align="CENTER" width="29%">Ort: </td>
<td width="25%">
<select name="ort">
<option><%=ort%></option>
<option>Hela landet</option>
<option>Göteborg</option>
<option>Linköping</option>
<option>Lund</option>
<option>Stockholm</option>
<option>Umeå</option>
<option>Uppsala</option>
</select>
</td>
</tr>
<TR>
<TD ALIGN="CENTER" WIDTH="5%" >Telefon:</TD>
<TD width="35%" >
<input type="text" name="Telefon" size="20" value"<%=telefon%>">
</TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="10%" >E-mailadress:</TD>
<TD width="35%" >
<input type="text" name="Email" size="35" value"<%=email%>">
</TD>
</TR>
<TR>
<TD ALIGN="right" width="35%" ROWSPAN="2">
<input type="submit" name="Submit" value="Anmäl">
</TD>
</TR>
</TABLE>
<input type="Hidden" name="ID" value="<%=ID%>"
<%
set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Cirkel"
set RS = Connect.Execute("SELECT * FROM BOCKER order by namn desc")
%>
<%do until RS.EOF
n=n+1
RS.MoveNext
loop
%>
<%if n>5 then%>
<b>Nu är det fullbokat, du plaseras som reserv.</B>
<%end if
%>
</FORM>
</FONT>
</CENTER>
</BODY>
</HTML>Sv: Varför gör den en ny post fast man inte har tryckt submit?
<%
If request.form("Submit")="Anmäl" then
ID=request.form("ID")
namn=request.form("namn")
ort=request.form("ort")
telefon=request.form("telefon")
email=request.form("email")
datum=request.form("datum")
set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Cirkel"
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT * FROM BOCKER", Connect, adOpenDynamic, adLockOptimistic
RS.AddNew
RS("namn")=namn
RS("ort")=ort
RS("telefon")=telefon
RS("email")=email
RS("datum")=date()
RS.Update
RS.Close
Connect.Close
End if
%>
/JohanSv: Varför gör den en ny post fast man inte har tryckt submit?
if namn="" then
rs.close
set rs = nothing
cn.close
set cn=nothing
end ifSv: Varför gör den en ny post fast man inte har tryckt submit?