Rette i egne informationer: checkbox

UNDSKYLD, der er jo mere der skal opdateres. Øjeblik ...

Du skal jo lige tjekke om din værdi fra DB er valgt eller ikke valgt.

Jeg plejer at gører således:

<input type="checkbox" value="<%=Server.HTMLEncode(RS("showlastseen"))%>" name="shwlstseen"<% if RS("showlastseen") = "sand" then %> checked<% end if %>>&nbsp;&nbsp;Jeg ønsker ikke vist hvornår jeg sidst har logget ind!

Hvis dit felt RS("showlastseen") er lig med "sand" så bliver den afkrydset.

Rasmus :-)

Hej Rasmus :o)

Så skal standardværdien være "Sand"?

Ja eller hvad du nu vælger at skrive ned i din DB, når du gemmer posterne :-)

Hmm? Jeg bruger denne linie til at opdatere med, men jeg kan ikke ændre noget i chekbox (som godt nok viser, om der er hakket af eller ej):

Conn.Execute "UPDATE profiles SET email='" & Trim(SQLEncode(Request.Form("email"))) & "', homepage='" & Trim(SQLEncode(Request.Form("homepage"))) & "', description='" & Trim(SQLEncode(Request.Form("description"))) & "', lastseen='" & Now() & "', lastIP='" & SQLEncode(Request.ServerVariables("REMOTE_ADDR")) & "' WHERE username='" & SQLEncode(Session("username")) & "'"

Jeg har prøvet med dette:

showlastseen='" & Trim(SQLEncode(Request.Form("showlastseen"))) & "'

- men det giver en fejlmeddelelse :o(

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

edituser.asp, line 26

Linie 26 er denne:

Conn.Execute "UPDATE profiles SET email='" & Trim(SQLEncode(Request.Form("email"))) & "', homepage='" & Trim(SQLEncode(Request.Form("homepage"))) & "', showlastseen='" & Trim(SQLEncode(Request.Form("showlastseen"))) & "', description='" & Trim(SQLEncode(Request.Form("description"))) & "', lastseen='" & Now() & "', lastIP='" & SQLEncode(Request.ServerVariables("REMOTE_ADDR")) & "' WHERE username='" & SQLEncode(Session("username")) & "'"

Har du noget bud på denne fejlmeddelelse, Rasmus?

Værdien bliver hentet fint nok ud. Jeg prøvede at logge på en profil, hvor der ikke var hakket af i RS("showlastseen"), og på en anden, hvor der VAR hakket af. Der var hak, hvor der skulle være det, og der var ikke hak, hvor der IKKE skulle være det, så det er jo fint nok. Men denne her "Data type mismatch" .... :o/

Prøv at fjerne  value="<%=Server.HTMLEncode(RS("showlastseen"))%>" fra din checkbox. Det gør at når du submitter den form den er i hvis den så er afkrydset så har den værdien "on" - det kan du jo tjekke på og gemme i databasen.

Lige et spm. til:
SQLEncode er det en funktion/subrutine du benytter?

... den må skyldes linie26. Men hvad?

Prøv evt. at udskrive din SQL sætning inden du fyrer den af - gå så ind i din DB og kør den som en forespørgsel !! se hvad den siger.

Så skal jeg fjerne showlastseen='" & Trim(SQLEncode(Request.Form("showlastseen"))) & "' fra linie 26?

Jeg tror det har noget at gører med at du forsøger at gemme noget som tekst med '' i SQL og det kan ikke lade sig gører, tror det er showlastseen='" & Trim(SQLEncode(Request.Form("showlastseen"))) & "' den er gal med.

prøv at fjerne ' før og efter værdien

Ok, udskrive SQL-sætningen?

SQLEncode:
Function SQLEncode(strSQL)
    SQLEncode = Replace(strSQL,"'","''")
End Function

Jeg fjernede ' før og efter, men med det samme resultat

ja udskriv den så du kan se hvorledes den ser ud.

mySQLStr = "UPDATE profiles SET email='" & Trim(SQLEncode(Request.Form("email"))) & "', homepage='" & Trim(SQLEncode(Request.Form("homepage"))) & "', showlastseen='" & Trim(SQLEncode(Request.Form("showlastseen"))) & "', description='" & Trim(SQLEncode(Request.Form("description"))) & "', lastseen='" & Now() & "', lastIP='" & SQLEncode(Request.ServerVariables("REMOTE_ADDR")) & "' WHERE username='" & SQLEncode(Session("username")) & "'"

Conn.Execute mySQLstr

okay hvilken DB bruger du??

Jeg bruger Access

Okay udskriv din SQL streng gå ind i access og opret en tom forespørgsel og indsæt den SQL du har udskrevet. Kør nu forespørgslen og se hvor den melder fejl.

mySQLStr = "UPDATE profiles SET email='" & Trim(SQLEncode(Request.Form("email"))) & "', homepage='" & Trim(SQLEncode(Request.Form("homepage"))) & "', showlastseen='" & Trim(SQLEncode(Request.Form("showlastseen"))) & "', description='" & Trim(SQLEncode(Request.Form("description"))) & "', lastseen='" & Now() & "', lastIP='" & SQLEncode(Request.ServerVariables("REMOTE_ADDR")) & "' WHERE username='" & SQLEncode(Session("username")) & "'"
response.write mySQLstr
'Conn.Execute mySQLstr

Der skete ikke meget ved at udskrive mySQLStr

ok, øjeblik ...

Siden ser nøjagtig ud som før, men jeg kan jo så ikke rette i profilen.

Ups, hvad skal jeg kalde den tomme forespørgsel?

har den ikke udskrevet din SQL streng på siden hvor du opdatere??

Nej, det har den ikke. Hvad gør jeg galt?

kalder du en ny side når du skal gemme posten?

i edituser.asp set en kommentar tegn ' foran der hvor du sender brugeren tilbage til oversigten - sikekrt vha. en response.redirect - kør siden igen nu burde den udskrive SQL strengen

Nej, jeg bruger

Response.Redirect "edituser.asp?msg=Din+profil+er+blevet+rettet."

- hvilket er det samme dokument.

Ok

Så blev den udskrevet. Nu får jeg en fejlmeddelelse, der siger:

Microsoft VBScript runtime error '800a000d'

Type mismatch

edituser.asp, line 106

LINIE 106: <input type="text" name="email" size="<%=Size%>" value="<%=Server.HTMLEncode(RS("email"))%>" class="input"><br>

ja det er fordi at vi har udkommenteret conn.execute - det betyder ingenting nu - prøv at poste SQL sætningen her

Ok, jeg skjuler lige et par ting, men ellers ser den sådan her ud:

UPDATE profiles SET email='MinEmail@adresse.dk', homepage='www.MinHjemmeside.dk/', showlastseen='', description='Dette er en beskrivelse, som brugeren kan sætte på sin profil.', lastseen='10/17/2002 15:29:40', lastIP='xxx.xxx.xxx.xxx' WHERE username='MitProfilNavn'

Og andet står der ikke

Hvad type af felt i access er showlastseen ?

Det er Ja/Nej - Standardværdi = Falsk - Obligatorisk = Nej

okay så ligger fejlen i af feltet showlastseen forventer en værdi "Falsk" eller "Sand" - du forsøger bare at gemme '' det går ikke.

Prøv dette her:
Input feltet :
<input type="checkbox" name="shwlstseen"<% if RS("showlastseen") = "sand" then %> checked<% end if %>>&nbsp;&nbsp;Jeg ønsker ikke vist hvornår jeg sidst har logget ind

SQL :
<%
if Request.Form("showlastseen") = "on" then
    lastseen = true
else
    lastseen = false
end if
mySQLstr = "UPDATE profiles SET email='" & Trim(SQLEncode(Request.Form("email"))) & "', homepage='" & Trim(SQLEncode(Request.Form("homepage"))) & "', showlastseen=" & lastseen &", description='" & Trim(SQLEncode(Request.Form("description"))) & "', lastseen='" & Now() & "', lastIP='" & SQLEncode(Request.ServerVariables("REMOTE_ADDR")) & "' WHERE username='" & SQLEncode(Session("username")) & "'"
Conn.Execute
%>

Så får jeg denne fejl:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Execute'

edituser.asp, line 35



LINIE 35: Conn.Execute

undskyld glemte
Conn.Execute mySQLstr

Ok. Så er det denne fejl:

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

edituser.asp, line 35

Nej, øjeblik ...

Jeg troede

lastseen = true

skulle være

showlastseen = true

okay jeg bliver nødt til at gå nu - men den er gal med dit SQL kald - prøv at udskrive det på siden igen og kopiere det ind i Access og kør det som en forespørgsel...

Håber du finder ud af det - ellers kigger jeg senere

Rasmus :-)

Jeg kan opdatere uden nogen fejl, men jeg kan ikke sætte hak/fjerne hak

Ok. Foreløbigt 1000 tak for hjælpen :o)

Jeg har fundet ud af det, jeg poster svaret i morgen. Er det ok?

1000 tak for hjælpen, Rasmus :o)