Søg
Avatar billede sth Novice
25. maj 2000 - 21:58 Der er 47 kommentarer og
2 løsninger

UPDATE chekbox

Jeg har IGEN et problem med mine chekboxe !!

Jeg har nu fået
1. lavet en asp-side hvor man kan indtaste data

2. lavet en side hvor man kan se de indtastede data.

3. lavet en side hvor man kan rediger sine indtastede data.

Siden der bruges til at rediger data heder ret_i_data, og den viser også de allerede indtastede data rigtigt, problemet er så sår jeg skal have gemt mine redigerede data, siden der bruges til dette heder  gem_ret_data, men det der sker er at alle mine chekboxe bliver sat til Falsk, også selv om de var Sande da de blev vist i ret_i_data.


Hvad gør jeg forkert ?
I kan evt. prøve at se på http://sth.renny.dk


Min kode kommer her for filerne ” ret_i_data.asp” og for ”gem_ret_data.asp”


ret_i_data.asp:

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Adresser</title>
</head>

<body>

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")

SQLstmt = "SELECT * FROM fb_rap WHERE id = " & Request("id")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>
  <%
  id = rs("id")
  %>
<form method="POST" action="gem_ret_data.asp?id=<%=rs("id")%>">
  <table border="0" width="600" bgcolor="#000080" cellspacing="0" cellpadding="0" style="border: 1 solid #000000">
    <tr>
      <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
      <td valign="left" bgcolor="#000080" colspan="2" align="right" height="18" width="600"><font color="#FFFFFF" face="Arial" size="1">[<a href="default.asp" style="color: #FFFFFF">Til
        forsiden</a> ]</font></td>
    </tr>
    <tr>
     
  <td valign="top" bgcolor="#FFFFFF" colspan="3" align="right" height="1" width="600"><img border="0" src="1x1.gif" width="1" height="1"></td>
  <tr>
    <td valign="top" bgcolor="#000000" width="600" colspan="3" height="18"><font color="#FFFFFF" face="Arial" size="2"><b>Rediger forbedringsrapport</b></font></td>
</tr>
  <tr>
<td bgcolor="#FFFFFF" colspan="3" height="1" width="396"><img border="0" src="1x1.gif" width="1" height="1"></td>
  </tr>
  <tr>


    </tr>
    <tr>
    <tr>
  <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td valign="top" align="left" bgcolor="#000080" width="128"><font face="Arial" size="2" color="#FFFFFF"><b>Nr.</b></font></td>
    <td align="left" valign="top" bgcolor="#000080" width="255"><font face="Arial" size="2" color="#FFFFFF"><b><%=id%></b></font></td>
 
</tr>
  <tr>
  <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>     
<td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Beskrivelse</b></font></td>
      <td width="255"" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#000000"><b><input type="text" name="beskrivelse" size="60" value="<%=rs("beskrivelse")%>"></b></font></td>
  </tr>
    <tr>
  <td valign="top" bgcolor="#FFFFFF" colspan="3" align="right" height="1" width="600"><img border="0" src="1x1.gif" width="1" height="1"></td>
  <tr>
    <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Reklamation</b></font></td>
      <td width="255"" valign="top" bgcolor="#000080">
    <%



    IF RS("reklamation") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED>"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY>"
    END IF

    %>
    </tr>
    <tr>
    <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Kvalitetsbrist</b></font></td>
      <td width="255"" valign="top" bgcolor="#000080">
    <%

    IF RS("kvalitetsbrist") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED>"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY>"
    END IF

    %>
    </tr>
    <tr>
    <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Uheld</b></font></td>
      <td width="255"" valign="top" bgcolor="#000080">
    <%

    IF RS("uheld") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED>"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY>"
    END IF

    %>
    </tr>
    <tr>
    <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Ulykke eller tilløb til ulykke</b></font></td>
      <td width="255"" valign="bottom" bgcolor="#000080">
    <%

    IF RS("ulykke") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED>"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY>"
    END IF

    %>
    </tr>
    <tr>
    <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Arbejdsplads vurdering</b></font></td>
      <td width="255"" valign="bottom" bgcolor="#000080">
    <%

    IF RS("arbejdsplads") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED>"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY>"
    END IF

    %>
    </tr>
    <tr>


  <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Forbedringsforslag</b></font></td>
      <td width="255" valign="top" bgcolor="#000080">
    <%

    IF RS("forbedringsforslag") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED>"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY>"
    END IF

    %>
    </tr>
    <tr>

  <td valign="top" bgcolor="#FFFFFF" colspan="3" align="right" height="1" width="600"><img border="0" src="1x1.gif" width="1" height="1"></td>
  <tr>
   
    <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
<td width="128" valign="top" bgcolor="#000080"><b><font size="2" face="Arial" color="#000080"></font></b><font size="2" face="Arial"
color="#FFFFFF"><b>Problem / mulighed</b></font></td>
      <td width="255" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#000000"><b><textarea rows="10" name="problem_mulighed" cols="52"><%=rs("problem_mulighed")%></textarea></b></font></td>
    </tr>
    <tr>
   
  <td valign="top" bgcolor="#FFFFFF" colspan="3" align="right" height="1" width="600"><img border="0" src="1x1.gif" width="1" height="1"></td>
  <tr>

<td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Igangsat på grund af audit</b></font></td>
      <td width="255"" valign="bottom" bgcolor="#000080">
    <%

    IF RS("pga_audit") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED>"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY>"
    END IF

    %>
    </tr>
    <tr>

  <td valign="top" bgcolor="#FFFFFF" colspan="3" align="right" height="1" width="600"><img border="0" src="1x1.gif" width="1" height="1"></td>
  <tr>

<td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>     
<td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Supp. Info</b></font></td>
      <td width="255"" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#000000"><b><input type="text" name="info" size="60" value="<%=rs("info")%>"></b></font></td>
  </tr>
    <tr>


<td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>     
<td width="128" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#FFFFFF"><b>Henvisning</b></font></td>
      <td width="255"" valign="top" bgcolor="#000080"><font size="2" face="Arial" color="#000000"><b><input type="text" name="henvisning" size="60" value="<%=rs("henvisning")%>"></b></font></td>
  </tr>
    <tr>


   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
    <td bgcolor="#000000" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
      <td width="128" valign="top" bgcolor="#000000"><b><font size="2" face="Arial" color="#000000">_</font></b></td>
      <td valign="top" bgcolor="#000000">
        <p align="right"><font size="1" face="Arial" color="#FFFFFF">
      </td>
    </tr>
  </table>
  <input type="hidden" name="dato" value="<%=Now%>">
  <p><input type="submit" value="Send" name="B1"></p>
</form>
    <%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %>

</body>

</html>


Filen gem_ret_data.asp:


<%
response.buffer = true


<tr>
  <td bgcolor="#000080" width="9"><img border="0" src="1x1-trans.gif" width="1" height="1"></td>
    <td valign="top" align="left" bgcolor="#000080" width="128"><font face="Arial" size="2" color="#FFFFFF"><b>Reklamation</b></font></td>
    <td align="left" valign="top" bgcolor="#000080" width="255"><font face="Arial" size="2" color="#FFFFFF"><b><%Call reklamation%></b></font></td>
  </tr>
  <tr>
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ny side 2</title>
</head>

<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("adresse.mdb")









dim value
value = request.form("gift")

if value = "Sand" then
  SQLvalue = -1
else
  SQlvalue = 0
end if



SQLstmt = "UPDATE DISTINCTROW adresse SET  gift = "& SQlvalue &", navn = '" & request.form("navn")  & "' WHERE id = " & Request("id")

response.write sqlstmt

Conn.Execute (SQLstmt)



conn.Close
Set conn = nothing
Set SQLstmt = nothing







response.redirect ("default.asp")
%>

</body>

</html>

Avatar billede sth Novice
25. maj 2000 - 22:03 #1
Ups filen gem_ret_data.asp var den forkerte, det var denne jeg mente :)



<%
response.buffer = true
%>


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Gem rettelser i fordebringsrapport</title>
</head>
<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")

'DO WHILE NOT rs.EOF



Function CheckboxToDB(value)
  if value = "Sand" then
    CheckboxToDB = -1
  else
    CheckboxToDB = 0
  end if
END FUNCTION


  SQLstmt="UPDATE DISTINCTROW fb_rap SET  beskrivelse='"&request("beskrivelse")&"',reklamation=" & CheckboxToDB(request.form("reklamation"))&",kvalitetsbrist=" & CheckboxToDB(request.form("kvalitetsbrist"))&",uheld=" & CheckboxToDB(request.form("uheld"))&",ulykke=" & CheckboxToDB(request.form("ulykke"))&",arbejdsplads=" & CheckboxToDB(request.form("arbejdsplads"))&",forbedringsforslag=" & CheckboxToDB(request.form("forbedringsforslag"))&", problem_mulighed='"&request("problem_mulighed")&"',pga_audit=" & CheckboxToDB(request.form("pga_audit"))&",info='"&request("info")&"',henvisning='"&request("henvisning")&"' WHERE id = " & Request("id")




response.write sqlstmt

Conn.Execute (SQLstmt)



conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("default.asp")
%>

</body>

</html>
Avatar billede ricardo Nybegynder
25. maj 2000 - 22:08 #2
Prøv

if value = "on" then
Avatar billede sth Novice
25. maj 2000 - 22:10 #3
øhhh  hvor og hvordan , min access er access 2000 på dansk og så mener jeg at jeg skal bruge "Sand"  ??
Avatar billede phylox2 Nybegynder
25. maj 2000 - 22:11 #4
Du skal kalde dine checkbokse for noget !!

name="etellerandet" ... ellers kan den ikke finde den i SQL = "UPDATE ...."
Avatar billede sth Novice
25. maj 2000 - 22:13 #5
hej phylox2 igen og tak for den sidste hjælp jeg fik fra dig.

Kunne du prøve at skrive lidt kode, så jeg kan se hvad du mener jeg er noget ny i det her
Avatar billede phylox2 Nybegynder
25. maj 2000 - 22:18 #6
Du har jo nogle checkbokse :

IF RS("reklamation") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED>"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY>"
    END IF

Dem skal du også lige kalde for noget!

IF RS("reklamation") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED name="reklamation">"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY name="reklamation">">"
    END IF

Og så kan du kalde SQL = "UPDATE ..... " funktionen ...

Avatar billede phylox2 Nybegynder
25. maj 2000 - 22:20 #7
IF RS("reklamation") = "Sand" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED name="reklamation">"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY name="reklamation">
    END IF

That is!

Avatar billede sth Novice
25. maj 2000 - 22:29 #8
nå jeg mente lige at jeg svarede på phylox2 , men det kom åben bart ikke med.

Nå men det jeg skrev var, at jeg ønsker jo ikke at se resultatet af min chekboxe, for det virker, og det er med koden phylox2  lige kom med, det jeg ønsker er at få gemt de data der er blevet redigeret altså at få opdateret min database.
Avatar billede phylox2 Nybegynder
25. maj 2000 - 22:33 #9
Jeg syntes ikke lige jeg kan forstå det du skriver ?
Avatar billede sth Novice
25. maj 2000 - 22:39 #10
nå jeg havde ikke set dit svar kl 22:18:45, nå men her er min forklaring:

ok det jeg ønsker ar at gemme indholdet af en chekbox i databasen når / hvis den bliver opdateret, jeg har fundet ud af hvordan man gemmer indholdet af chekboxen hvis det er første gang man gemmer altså med SQLstmt="Insert Into.... men hvordan gør man med SQL = "UPDATE

men det var vel rigtig det du skrev kl 22:18:45 ?
Avatar billede phylox2 Nybegynder
25. maj 2000 - 22:51 #11
Skriv lige INSERT INTO løsningen, så skal jeg sige dig det!

Avatar billede sth Novice
25. maj 2000 - 22:52 #12
Det lyder godt, for som sagt jeg er ikke nogen ørn til dette, men vil meget gerne lære det
Avatar billede phylox2 Nybegynder
25. maj 2000 - 22:54 #13
:) Alle (selv jeg) har startet fra bunden ....

og husk, at : "Intet er umuligt for den, der bærer viljen i hjernen!"

*LOL*
Avatar billede sth Novice
25. maj 2000 - 22:54 #14
nå så læste jeg igen ikke det hele her er den


<%
response.buffer = true
info = request.form("info")
if info = "" then info = "ingen"
%>


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Opret ny fordedringsrapport</title>
</head>
<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")

'DO WHILE NOT rs.EOF

Function CheckboxToDB(value)
  if value = "Sand" then
    CheckboxToDB = -1
  else
    CheckboxToDB = 0
  end if
END FUNCTION

nr = 10
rettet = "23-05-00"

'SQL="Insert Into Tabel (beskrivelse,info) VALUES ('"&request("beskrivelse")&"'," & CheckboxToDB(request.form("info")) &")"

  SQLstmt="Insert Into fb_rap (op_rettet,beskrivelse,reklamation,kvalitetsbrist,uheld,ulykke,arbejdsplads,forbedringsforslag,problem_mulighed,pga_audit,info,henvisning) VALUES (#" & Now & "#,'"&request("beskrivelse")&"'," & CheckboxToDB(request.form("reklamation"))&"," & CheckboxToDB(request.form("kvalitetsbrist"))&"," & CheckboxToDB(request.form("uheld"))&"," & CheckboxToDB(request.form("ulykke"))&"," & CheckboxToDB(request.form("arbejdsplads"))&"," & CheckboxToDB(request.form("forbedringsforslag"))&",'"&request("problem_mulighed")&"'," & CheckboxToDB(request.form("pga_audit"))&",'"&request("info")&"','"&request("henvisning")&"')"

  Function CheckboxToDB(value)
  if value = "Sand" then
    CheckboxToDB = -1
  else
    CheckboxToDB = 0
  end if
END FUNCTION



response.write sqlstmt

Conn.Execute (SQLstmt)



conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("default.asp")
%>

</body>

</html>
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:01 #15
SQLstmt="UPDATE fb_rap SET (op_rettet,beskrivelse,reklamation,kvalitetsbrist,uheld,ulykke,arbejdsplads,forbedringsforslag,problem_mulighed,pga_audit,info,henvisning) VALUES (#" & Now & "#,'"&request("beskrivelse")&"'," & CheckboxToDB(request.form("reklamation"))&"," & CheckboxToDB(request.form("kvalitetsbrist"))&"," & CheckboxToDB(request.form("uheld"))&"," & CheckboxToDB(request.form("ulykke"))&"," & CheckboxToDB(request.form("arbejdsplads"))&"," & CheckboxToDB(request.form("forbedringsforslag"))&",'"&request("problem_mulighed")&"'," & CheckboxToDB(request.form("pga_audit"))&",'"&request("info")&"','"&request("henvisning")&"')"

Fortæl mig lige, om den virker ! (og glem det med at give dine checkbokse navne .. det er vist ikke nødvendigt alligevel)
Avatar billede sth Novice
25. maj 2000 - 23:03 #16
ikke for at gøre mig klog men skal der ikke være et

WHERE id = " & Request("id") til slut?




Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:04 #17
Ehm ... jo ... hvis du syntes :)
Avatar billede sth Novice
25. maj 2000 - 23:08 #18
jeg får denne fejl, jeg smed lige WHERE id = " & Request("id") til slut?

tegnet ^ står under W i WHERE
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'

Slut på sætning var ventet

/IISSamples/gem_ret_data.asp, linje 36

SQLstmt="UPDATE fb_rap SET (op_rettet,beskrivelse,reklamation,kvalitetsbrist,uheld,ulykke,arbejdsplads,forbedringsforslag,problem_mulighed,pga_audit,info,henvisning) VALUES (#" & Now & "#,'"&request("beskrivelse")&"'," & CheckboxToDB(request.form("reklamation"))&"," & CheckboxToDB(request.form("kvalitetsbrist"))&"," & CheckboxToDB(request.form("uheld"))&"," & CheckboxToDB(request.form("ulykke"))&"," & CheckboxToDB(request.form("arbejdsplads"))&"," & CheckboxToDB(request.form("forbedringsforslag"))&",'"&request("problem_mulighed")&"'," & CheckboxToDB(request.form("pga_audit"))&",'"&request("info")&"','"&request("henvisning")&"')" WHERE id = " & Request("id")
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^



Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:10 #19
SQLstmt="UPDATE fb_rap SET (op_rettet,beskrivelse,reklamation,kvalitetsbrist,uheld,ulykke,arbejdsplads,forbedringsforslag,problem_mulighed,pga_audit,info,henvisning) VALUES (#" & Now & "#,'"&request("beskrivelse")&"'," & CheckboxToDB(request.form("reklamation"))&"," & CheckboxToDB(request.form("kvalitetsbrist"))&"," & CheckboxToDB(request.form("uheld"))&"," & CheckboxToDB(request.form("ulykke"))&"," & CheckboxToDB(request.form("arbejdsplads"))&"," & CheckboxToDB(request.form("forbedringsforslag"))&",'"&request("problem_mulighed")&"'," & CheckboxToDB(request.form("pga_audit"))&",'"&request("info")&"','"&request("henvisning")&"') WHERE id = " & Request("id") & "

Avatar billede sth Novice
25. maj 2000 - 23:14 #20
jeg får fejlen:Strengkonstanten er uafsluttet

tegnet ^ står lige efter det sidste "
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:15 #21
SQLstmt="UPDATE fb_rap SET (op_rettet,beskrivelse,reklamation,kvalitetsbrist,uheld,ulykke,arbejdsplads,forbedringsforslag,problem_mulighed,pga_audit,info,henvisning) VALUES (#" & Now & "#,'"&request("beskrivelse")&"'," & CheckboxToDB(request.form("reklamation"))&"," & CheckboxToDB(request.form("kvalitetsbrist"))&"," & CheckboxToDB(request.form("uheld"))&"," & CheckboxToDB(request.form("ulykke"))&"," & CheckboxToDB(request.form("arbejdsplads"))&"," & CheckboxToDB(request.form("forbedringsforslag"))&",'"&request("problem_mulighed")&"'," & CheckboxToDB(request.form("pga_audit"))&",'"&request("info")&"','"&request("henvisning")&"') WHERE id = " & Request("id") & ""

Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:16 #22
Har du ICQ ?
Avatar billede sth Novice
25. maj 2000 - 23:20 #23
får nu denne fejl:
UPDATE fb_rap SET (op_rettet,beskrivelse,reklamation,kvalitetsbrist,uheld,ulykke,arbejdsplads,forbedringsforslag,problem_mulighed,pga_audit,info,henvisning) VALUES (#25-05-00 23:04:20#,'Test 8',0,0,0,0,0,0,'Problem eller mulighed ?',0,'','test af henvisning') WHERE id = 25
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i UPDATE-sætningen.

/IISSamples/gem_ret_data.asp, linje 57


som du kan se så er alle chekboxe sat til værdien 0, den sidste var slukket.

det jeg har gjort er at jeg tog filen med "INSERT INTO" løsningen, og så rettet med den nye kode du kommer med , det var da det jeg skulle ikke ?
Avatar billede sth Novice
25. maj 2000 - 23:25 #24
nej jeg har ikke ICQ , men har overvejet det meget
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:25 #25
Der er 13 felter, som der skal sættes noget ind i ik ? Der bliver kun sat 12 værdier ind via denne SQL sætning ... det kunne være fejlen!

ICQ ICQ ICQ ?
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:26 #26
Overvej det kraftigt lige nu! :)
Avatar billede sth Novice
25. maj 2000 - 23:34 #27
jeg mener nu kun der er 12, men 13 med id, og der bliver også sendt 12, det ene er bare tomt, den anden sidste,

min oprindelige kode virkede på alt minus chekboxe, de blev bare nul-stillet !

Jeeg fatter det ikke
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:36 #28
Hvis du tæller efter så er det 12 værdier der skal sættes ind, men kun 11, der bliver givet .... i det du har skrevet 25-05-00 23:20:43
Avatar billede sth Novice
25. maj 2000 - 23:41 #29
du har nok ret men jeg tæller 11 stk komma, og 12 der bliver givet, kan ske jeg skal gå i seng.
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:42 #30
Jeg tror jeg har fundet ud af noget - der er noget vedr info feltet
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:44 #31
Har du det ikke online, så JEG kan teste det ?!
Avatar billede sth Novice
25. maj 2000 - 23:45 #32
det mener jeg ikke det er, da det er tomt/blank der står ikke noget, skal jeg evt tillade nulmængde i access, jeg prøver lige, men værdierne i chekboxne er forkerte den ene er tændt, de andre er ikke, det er den sidste der er tændt
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:46 #33
http://sth.renny.dk

Er det her ? Jeg har lige testet ... det virker da fint ?
Avatar billede sth Novice
25. maj 2000 - 23:47 #34
infofeltet var sat til tiladnulængde !
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:48 #35
Lav det om til et almindeligt tal eller tekst felt

så laver du alle checkboksene om til dette :

IF RS("reklamation") = "1" THEN
    Response.Write "<INPUT TYPE='checkbox' READONLY CHECKED name="reklamation">"
    ELSE
    Response.Write "<INPUT TYPE='checkbox' READONLY name="reklamation">
    END IF

og Funktioen om til :

Function CheckboxToDB(value)
  if value = "Sand" then
    CheckboxToDB = 1
  else
    CheckboxToDB = 0
  end if
END FUNCTION

Ellers så må du sende det HELE til mig, så skal jeg teste det til imorgen .... eller teste det imorgen ...
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:51 #36
Function CheckboxToDB(value)
  if value = "1" then
    CheckboxToDB = 1
  else
    CheckboxToDB = 0
  end if
END FUNCTION

Send DATABASEN til mig !!! nu
Avatar billede sth Novice
25. maj 2000 - 23:52 #37
jeg når ikke at teste det it i aften men jeg kunne jeg sende det til dig nu, og så give dig besked hvis det virker, når jeg har afprøvet det i morgen aften ?
Avatar billede phylox2 Nybegynder
25. maj 2000 - 23:54 #38
Send Send Send
Avatar billede sth Novice
25. maj 2000 - 23:57 #39
jeg sender og går i seng, vi tales ved.
mvh sth

ps jeg skriver til : eksperten@blaa-bog.dk
Avatar billede sth Novice
27. maj 2000 - 00:39 #40
hej phylox2
jeg har prøvet det du skrev kl 23:51
men jeg kan ikke få det til at virke, har du prøvet at se på koden jeg sendte i går ? der er 100 point hvis du kan løse problemet.

Avatar billede sth Novice
27. maj 2000 - 12:45 #41
phylox2: det kan ske at det ville være en god ide at ændre ja/nej feltet til et tal/tekst felt, da mit "program" ikke virker ens når jeg køre det lokalt på min pc og når jeg køre det fra min hjemme side, jeg har fundet ud af at asp-filen der viser data, skal have true og ikke sand nå den køres fra min hjemmeside !

Avatar billede sth Novice
28. maj 2000 - 22:34 #42
nå ok, det kan være at 60 point er for lidt :)  er der nogen der kan løse problemet hvis de får 200 point for det
Avatar billede phylox2 Nybegynder
29. maj 2000 - 07:43 #43
Jeg regner med, at jeg kan løse det, jeg har god ikke haft tid til det grundet min søsters konformation - men jeg skal nok se på det !
Avatar billede sth Novice
29. maj 2000 - 07:51 #44
Hej igen phylox2

Jeg regnede med at du havde opgivet, nå men jeg håber at i havde en go´dag.
Avatar billede sth Novice
29. maj 2000 - 23:33 #45
jeg mener nu at have fundet den rigtige kode :)
det skulle være:
If RS("reklamation") = "Sand" Then
Response.write "<input type='checkbox' name='reklamation' value='Sand' checked>"
Else
Response.write "<input type='checkbox' name='reklamation' value='Sand'>"
End if
Avatar billede phylox2 Nybegynder
30. maj 2000 - 10:07 #46
Har du så fået det til at virke ?
Avatar billede sth Novice
30. maj 2000 - 13:32 #47
phylox2 :  Ja gu' virker det :)

Så nu vil jeg jo nå være så fræk at jeg kun vil give de oprindelige 60 point jeg havde udlovet for et svar !

Men ok du har ydet en flot indsats, så er det ok hvis du får 100 point ?

Avatar billede phylox2 Nybegynder
30. maj 2000 - 14:05 #48
Det er yderst gavmilt og venligt af dig!
Avatar billede sth Novice
30. maj 2000 - 20:48 #49
Det er da helt ok, det kunne jo også være at jeg fik brug for din hjælp en anden gang :))
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 går 01:00 Problemer med software til Power Walker UPS - Nødstrømsbatteri Af ErikHg i Andet software
01/1120:16 Snapchat Af made18 i Apps til iOS
31/1013:01 Måned og år på graf Af mort1 i Excel
31/1012:28 2 diske Af dcedata1977 i Andet hardware
31/1012:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
White papers
Flere white papers »