Søg
Avatar billede laserzap Nybegynder
21. februar 2001 - 15:41 Der er 11 kommentarer og
1 løsning

Den skriver til db, men uden man har trykket på ok ?

Hejza alle sammen,

Jeg har noget kode og en form der skriver til en db, og det virker også fint.
Men hvergang jeg besøger den side, hvor jeg har det kode, så skriver den til db\'en helt automatisk ! Der står selvfølgelig  ikke noget, men den indsætter bare nye kolonner hvergang jeg besøger eller opdatere siden:(
Er der nogen der kan hjælpe med at fjerne det problem, så den ikke gøre det før man har udfyldt formen og trykket på OK ??
Avatar billede netsrac Praktikant
21. februar 2001 - 15:42 #1
Må vi se noget kode ?
Avatar billede erikjacobsen Ekspert
21. februar 2001 - 15:45 #2
Ja, du skal sætte en if på

<%
  if request(\"trykket\")<>\"\" then
    opdater
  end if
%>

<form ....>

<input type=\"submit\" name=\"trykket\" value=\"opdater\">
</form>
Avatar billede eagleeye Praktikant
21. februar 2001 - 15:48 #3
Prøv at ændre if sætningen:

if request(\"trykket\")=\"opdater\" then

eller

if isempty(request(\"trykket\"))=false then
Avatar billede erikjacobsen Ekspert
21. februar 2001 - 15:50 #4
tror du ikke det virker?
Avatar billede laserzap Nybegynder
21. februar 2001 - 15:56 #5
erikjacobsen ->

Det virker ikke :(

Vil i se noget kode ???
Avatar billede erikjacobsen Ekspert
21. februar 2001 - 15:57 #6
Ja (det var bare en skitse...)
Avatar billede bjarke-b Nybegynder
21. februar 2001 - 15:57 #7
Du kan gøre følgende

<% if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then

Connection opdater o.s.v
end if %>
Avatar billede laserzap Nybegynder
21. februar 2001 - 15:58 #8
Ok her er koden:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\db\\vurdering\\db.mdb\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From tilmeldte\"
    rs.Open strSQL, Conn, 1, 3

      rs.AddNew
      rs(\"navn\") = request.form(\"navn\")
      rs(\"adresse\") = Request.form(\"adresse\")
      rs(\"postnr\") = Request.form(\"postnr\")
      rs(\"by\") = Request.form(\"by\")
      rs(\"kon\") = Request.form(\"kon\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

%>
<form method=\'POST\' action=\'default.asp?mode=step2\'>
<input type=\'text\' name=\'navn\' size=\'20\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'><br>
<input type=\'text\' name=\'adresse\' size=\'20\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'><br>
<input type=\'text\' name=\'postnr\' size=\'20\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'><br>
<input type=\'text\' name=\'by\' size=\'20\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'><br>
<select size=\"1\" name=\"kon\" style=\"background-color: #FF6600; font-family: Verdana; font-size: 8 pt; color: #000000; font-weight: bold; border: 1 solid #000000\">
<option selected>Køn :</option>
<option value=\"Mand\">Mand</option>
<option value=\"Kvinde\">Kvinde</option>
</select>
<input type=\'submit\' value=\'opdater\' name=\'submit\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'>
<input type=\'hidden\' name=\'what\' value=\'submit\'>
</form>
Avatar billede bjarke-b Nybegynder
21. februar 2001 - 16:00 #9
<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\db\\vurdering\\db.mdb\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From tilmeldte\"
    rs.Open strSQL, Conn, 1, 3

      rs.AddNew
      rs(\"navn\") = request.form(\"navn\")
      rs(\"adresse\") = Request.form(\"adresse\")
      rs(\"postnr\") = Request.form(\"postnr\")
      rs(\"by\") = Request.form(\"by\")
      rs(\"kon\") = Request.form(\"kon\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
else
%>
<form method=\'POST\' action=\'default.asp?mode=step2\'>
<input type=\'text\' name=\'navn\' size=\'20\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'><br>
<input type=\'text\' name=\'adresse\' size=\'20\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'><br>
<input type=\'text\' name=\'postnr\' size=\'20\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'><br>
<input type=\'text\' name=\'by\' size=\'20\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'><br>
<select size=\"1\" name=\"kon\" style=\"background-color: #FF6600; font-family: Verdana; font-size: 8 pt; color: #000000; font-weight: bold; border: 1 solid #000000\">
<option selected>Køn :</option>
<option value=\"Mand\">Mand</option>
<option value=\"Kvinde\">Kvinde</option>
</select>
<input type=\'submit\' value=\'opdater\' name=\'submit\' style=\'background-color: #FF6600; color: #000000; font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 dashed #000000\'>
<input type=\'hidden\' name=\'what\' value=\'submit\'>
</form>
<% end if %>
Avatar billede erikjacobsen Ekspert
21. februar 2001 - 16:01 #10
if request.form(\"what\")=\"submit\" then

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From tilmeldte\"
rs.Open strSQL, Conn, 1, 3

rs.AddNew
rs(\"navn\") = request.form(\"navn\")
rs(\"adresse\") = Request.form(\"adresse\")
rs(\"postnr\") = Request.form(\"postnr\")
rs(\"by\") = Request.form(\"by\")
rs(\"kon\") = Request.form(\"kon\")
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

end if
Avatar billede eagleeye Praktikant
21. februar 2001 - 16:01 #11
if Request.QueryString(\"mode\") = \"step2\" then
  OPDATAER DATABASE
end if

Udskriv FORM
Avatar billede laserzap Nybegynder
21. februar 2001 - 16:04 #12
Ok, nu virker det :)

Jeg brugte Bjarke-b\'s eksembel :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »