fiks faks

Hvad bruger du til at sende oplysninger med?

<input type="submit" value="Gem" name="B1">
<%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "select * from lektier"
Set rs = Conn.Execute(strSQL)

%><%
'Tjek om form er send til seid så gem i databasen:
if request.servervariables("REQUEST_METHOD") = "POST" then
 
  dag = Replace(Request.Form("dag"),"'", "''")
  fag = Replace(Request.Form("fag"),"'","''")
  opgave = Replace(Request.Form("opgave"),"'","''")
  ugenummer = Replace(Request.Form("ugenummer"),"'","''")
  sql = "INSERT INTO lektier (dag, fag, opgave, ugenummer) VALUES ('" & dag & "',  '" & fag & "', '" & opgave & "', '" & ugenummer & "')"
  Conn.execute(sql) 'Så er det gemt i databsen.
end if
%><%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "select * from lektier"
Set rs = Conn.Execute(strSQL)

%><%
'Tjek om form er send til seid så gem i databasen:
if request.servervariables("REQUEST_METHOD") = "POST" then
 
  dag = Replace(Request.Form("dag"),"'", "''")
  fag = Replace(Request.Form("fag"),"'","''")
  opgave = Replace(Request.Form("opgave"),"'","''")
  ugenummer = Replace(Request.Form("ugenummer"),"'","''")
  sql = "INSERT INTO lektier (dag, fag, opgave, ugenummer) VALUES ('" & dag & "',  '" & fag & "', '" & opgave & "', '" & ugenummer & "')"
  Conn.execute(sql) 'Så er det gemt i databsen.
end if
%>

Nogen ide jpj ?

undskyld den lange svar tid.
Har lige fået en søn Onsdag aften, så det har været lidt begrænset med tid.

Er ok..

men kan du hjælpe

Du taster først lektier ind.
De nye lektier skal så vises når du trykker på "Vis Lektier" ???

ja men det gør de ikke, de vises først ved næste entring på siden eller ved at gå frem og tilbage... de burde bare stå der med det samme.

Bruger du noget session eller noget andet der husker hvor el. hvilke sider du har været på

Du skal have knappen "Vis lektie" til at lave et nyt kald til DB.
inden den viser alle lektierne til den uge, Så er den opdateret, og kan vise de sidst indtastede lektier.

hvilke sider jeg har været på hmmm ? det bruger jeg ikke... Jamen hvordan laver jeg endnu et kald ?

Dette er et kald,

<%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "select * from lektier"
Set rs = Conn.Execute(strSQL)

%>

Hvordan ser starten af din side ud.
Med kald og det hele

skal jeg prøve at sende dig siden ?

ja tak
Du kan lægge den her eller sende den til
jpj@hilleroed-hk.dk

sendt

okay kom ikke videre...