Tjek valg

<%
Dim showfullname
If LCase(Request.Form("showfullname")) = "1" Then
    showfullname = 1
ElseIf Request.Form("showfullname") = "2" Then
    showfullname = 2
ElseIf Request.Form("showfullname") = "3" Then
    showfullname = 3
End If
%>

Alt hvad der kommer tilbage til serveren via Request.Form(...) kommer som tekst.

Hej nielle :) Nu er jeg røget ud i endnu en "Check the manual that corresponds to your MySQL server version for the right syntax to use near ...". Vender tilbage om et øjeblik ...

Selvfølgelig, jeg havde glemt "X" :o/

Har du tid/lyst til at kigge dette igennem? Jeg tror jeg har stirret mig blind på det :o/

        If SQLEncode(Request.Form("newpass")) <> "" Then
            mySQLstr = "UPDATE profiles SET pass='" & _
                "'" & Trim(SQLEncode(Request.Form("newpass"))) & "', " & _
                "'" & showlastseen & "' , " & _
                "'" & showstatus & "', " & _
                "'" & showfullname & "', " & _
                "'" & showfirstname & "', " & _
                "'" & Trim(SQLEncode(Request.Form("firstname"))) & "', " & _
                "'" & showmiddlename & "', " & _
                "'" & Trim(SQLEncode(Request.Form("middlename"))) & "', " & _
                "'" & showlastname & "', " & _
                "'" & Trim(SQLEncode(Request.Form("lastname"))) & "', " & _
                "'" & showaddress1 & "', " & _
                "'" & Trim(SQLEncode(Request.Form("address1"))) & "', " & _
                "'" & showaddress2 & "', " & _
                "'" & Trim(SQLEncode(Request.Form("address2"))) & "', " & _
                "'" & showzip & "', " & _
                "'" & Trim(SQLEncode(Request.Form("zip"))) & "', " & _
                "'" & showemail & "', " & _
                "'" & Trim(SQLEncode(Request.Form("email"))) & "', " & _
                "'" & showphoneathome & "', " & _
                "'" & Trim(SQLEncode(Request.Form("phoneathome"))) & "', " & _
                "'" & showcellphone1 & "', " & _
                "'" & Trim(SQLEncode(Request.Form("cellphone1"))) & "', " & _
                "'" & showcellphone2 & "', " & _
                "'" & Trim(SQLEncode(Request.Form("cellphone2"))) & "', " & _
                "'" & showphoneatwork & "', " & _
                "'" & Trim(SQLEncode(Request.Form("phoneatwork"))) & "', " & _
                "'" & showcellphoneatwork & "', " & _
                "'" & Trim(SQLEncode(Request.Form("cellphoneatwork"))) & "', " & _
                "'" & Trim(SQLEncode(Request.Form("description"))) & "', " & _
                "'" & lastIP & "' WHERE username='" & SQLEncode(Session("username")) & "'"
                Response.Write "DEBUG: " & mySQLstr & "<br>"
            Conn.Execute mySQLstr
            Conn.Close
        Else

            mySQLstr = "UPDATE profiles SET showlastseen='" & _
                "'" & showlastseen & "', " & _
                "'" & showstatus & "', " & _
                "'" & showfullname & "', " & _
                "'" & showfirstname & "', " & _
                "'" & Trim(SQLEncode(Request.Form("firstname"))) & "', " & _
                "'" & showmiddlename & "', " & _
                "'" & Trim(SQLEncode(Request.Form("middlename"))) & "', " & _
                "'" & showlastname & "', " & _
                "'" & Trim(SQLEncode(Request.Form("lastname"))) & "', " & _
                "'" & showaddress1 & "', " & _
                "'" & Trim(SQLEncode(Request.Form("address1"))) & "', " & _
                "'" & showaddress2 & "', " & _
                "'" & Trim(SQLEncode(Request.Form("address2"))) & "', " & _
                "'" & showzip & "', " & _
                "'" & Trim(SQLEncode(Request.Form("zip"))) & "', " & _
                "'" & showemail & "', " & _
                "'" & Trim(SQLEncode(Request.Form("email"))) & "', " & _
                "'" & showphoneathome & "', " & _
                "'" & Trim(SQLEncode(Request.Form("phoneathome"))) & "', " & _
                "'" & showcellphone1 & "', " & _
                "'" & Trim(SQLEncode(Request.Form("cellphone1"))) & "', " & _
                "'" & showcellphone2 & "', " & _
                "'" & Trim(SQLEncode(Request.Form("cellphone2"))) & "', " & _
                "'" & showphoneatwork & "', " & _
                "'" & Trim(SQLEncode(Request.Form("phoneatwork"))) & "', " & _
                "'" & showcellphoneatwork & "', " & _
                "'" & Trim(SQLEncode(Request.Form("cellphoneatwork"))) & "', " & _
                "'" & Trim(SQLEncode(Request.Form("description"))) & "', " & _
                "'" & lastIP & "' WHERE username='" & SQLEncode(Session("username")) & "'"
                Response.Write "DEBUG: " & mySQLstr & "<br>"
            Conn.Execute mySQLstr
            Conn.Close
        End If

PS: Sætter point op

Hvor brokker den sig? Og hvad siger den?

Jeg kan da se et par fejl med det samme:

mySQLstr = "UPDATE profiles SET pass='" & _
                "'" & Trim(SQLEncode(Request.Form("newpass"))) & "', " & _

... du får hele to '-tegn foran dit password. Og den samme gentages længere nede.

Og du har:

SET pass='ngfvfdjdf'

- for den aller første værdi i din UPDATE. De efterfølgende mangler imidlertid den første del:

"DitShowlastseenFelt='" & showlastseen & "' , " & _

Ret dem, det skal nok hjælpe en god del. Hvis den stadig brokker sig bagefter så tager vi den derfra.

Kommentar: nielle 29/06-2005 22:02:24: Jeg har før dette dimensioneret de forskellige variabler:

        Dim showfullname
        If LCase(Request.Form("showfullname")) = "1" Then
            showfullname = 1
        ElseIf Request.Form("showfullname") = "2" Then
            showfullname = 2
        ElseIf Request.Form("showfullname") = "3" Then
            showfullname = 3
        End If

        Dim showfirstname
        If Lcase(Request.Form("showfirstname")) = "on" Then
            showfirstname = 1
        Else
            showfirstname = 0
        End If

osv., osv...



Din debug fra det andet spørgsmål:

DEBUG: UPDATE profiles SET showlastseen='1', '1', '1', '0', 'MitFornavn', '0', 'MitMellemnavn', '0', 'MitEfternavn', '0', 'MinAdresse', '0', 'MitStednavn', '0', 'MitPostnummer', '0', 'min@e-mail.dk', '0', 'MinTelefon', '1', 'MinMobil', '0', '', '0', 'ArbejdsTelefon', '0', '', 'Dette er en midlertidig test-profil. Mere profiltekst kommer senere.', 'Min_IPadrsse_xxx.xxx.xxx.xxx' WHERE username='mit_profilnavn'

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 3.51 Driver][mysqld-4.0.18-nt]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near ''1', '1', '0', 'MitFornavn', '0', 'MitMellemnavn', '0', 'MitEfternavn', '0',

PS: Det øverste script tjekker om der er ændringer i password. Hvis det ikke er tilfældet, skal det nederste script eksekveres:

TJEK FOR ÆNDRING I PASSWORD:

        If SQLEncode(Request.Form("newpass")) <> "" Then
            mySQLstr = "UPDATE profiles SET pass='" & _
                "'" & Trim(SQLEncode(Request.Form("newpass"))) & "', " & _
                "'" & showlastseen & "' , " & _
                "'" & showstatus & "', " & _
                "'" & showfullname & "', " & _
                "'" & showfirstname & "', " & _

        .............


        Else

            mySQLstr = "UPDATE profiles SET showlastseen='" & _
                "'" & showlastseen & "', " & _
                "'" & showstatus & "', " & _
                "'" & showfullname & "', " & _
                "'" & showfirstname & "', " & _
                "'" & Trim(SQLEncode(Request.Form("firstname"))) & "', " & _
                "'" & showmiddlename & "', " & _
                "'" & Trim(SQLEncode(Request.Form("middlename"))) & "', " & _
                "'" & showlastname & "', " & _

        .............

        End If

Din nuværende UPDATE:

UPDATE profiles SET showlastseen='1', '1', '1', '0', 'MitFornavn', '0', 'MitMellemnavn', '0', 'MitEfternavn', '0', 'MinAdresse', '0', 'MitStednavn', '0', 'MitPostnummer', '0', 'min@e-mail.dk', '0', 'MinTelefon', '1', 'MinMobil', '0', '', '0', 'ArbejdsTelefon', '0', '', 'Dette er en midlertidig test-profil. Mere profiltekst kommer senere.', 'Min_IPadrsse_xxx.xxx.xxx.xxx' WHERE username='mit_profilnavn'

- skal se sådan her ud

UPDATE profiles SET showlastseen='1', EtFeltIDatabasen01='1', EtFeltIDatabasen02='1', EtFeltIDatabasen03='0', EtFeltIDatabasen04='MitFornavn', EtFeltIDatabasen05='0', EtFeltIDatabasen06='MitMellemnavn', EtFeltIDatabasen07='0', EtFeltIDatabasen08='MitEfternavn', EtFeltIDatabasen09='0', EtFeltIDatabasen10='MinAdresse', EtFeltIDatabasen11='0', EtFeltIDatabasen12='MitStednavn', EtFeltIDatabasen13='0', EtFeltIDatabasen14='MitPostnummer', EtFeltIDatabasen15='0', EtFeltIDatabasen16='min@e-mail.dk', EtFeltIDatabasen17='0', EtFeltIDatabasen18='MinTelefon', EtFeltIDatabasen19='1', EtFeltIDatabasen20='MinMobil', EtFeltIDatabasen21='0', EtFeltIDatabasen22='', EtFeltIDatabasen23='0', EtFeltIDatabasen24='ArbejdsTelefon', EtFeltIDatabasen25='0', EtFeltIDatabasen26='', EtFeltIDatabasen27='Dette er en midlertidig test-profil. Mere profiltekst kommer senere.', EtFeltIDatabasen28='Min_IPadrsse_xxx.xxx.xxx.xxx' WHERE username='mit_profilnavn'

- hvor du vel at mærke retter mine EtFeltIDatabasenXX til det felt der skal opdateres.

Du må nok også hellere SQLEncode(...)'e nogle af de andre felter.

Jeg er da virkelig kørt sur i det. Kan du prøve at skrive det korrekt? Jeg har lavet det mange gange før, kan vist ikke se recordsettet for bare data :o/

nielle, jeg tror jeg har fundet fejlen: Jeg har det med at blive overbebyrdet på arbejdet, og har kun sovet 2-4 timer hver nat de sidste 10-12 dage. Så jeg tror jeg har nået et punkt, hvor det konstruktive er hørt op :oD

Kigger på det på et tidspunkt i morgen.

Jeg ved jo ikke hvad du har kaldt felterne i din database - så nej det kan jeg desværre ikke :^|

Sovl godt :^)

userID
created
showlastseen
showstatus
username
showfullname
showfirstname
firstname

etc.

Jeg vender tilbage i morgen. Og tak, i lige måde, når du når til det :)

Den første UPDATE:

mySQLstr = "UPDATE profiles SET " & _
    "pass='" & Trim(SQLEncode(Request.Form("newpass"))) & "', " & _
    "showlastseen='" & showlastseen & "', " & _
    "showstatus='" & showstatus & "', " & _
    "showfullname='" & showfullname & "', " & _
    "showfirstname='" & showfirstname & "', " & _
    "firstname='" & Trim(SQLEncode(Request.Form("firstname"))) & "', " & _
    "showmiddlename='" & showmiddlename & "', " & _
    "middlename='" & Trim(SQLEncode(Request.Form("middlename"))) & "', " & _
    "showlastname='" & showlastname & "', " & _
    "lastname='" & Trim(SQLEncode(Request.Form("lastname"))) & "', " & _
    "showaddress1='" & showaddress1 & "', " & _
    "address1='" & Trim(SQLEncode(Request.Form("address1"))) & "', " & _
    "showaddress2='" & showaddress2 & "', " & _
    "address2='" & Trim(SQLEncode(Request.Form("address2"))) & "', " & _
    "showzip='" & showzip & "', " & _
    "zip='" & Trim(SQLEncode(Request.Form("zip"))) & "', " & _
    "showemail='" & showemail & "', " & _
    "email='" & Trim(SQLEncode(Request.Form("email"))) & "', " & _
    "showphoneathome='" & showphoneathome & "', " & _
    "phoneathome='" & Trim(SQLEncode(Request.Form("phoneathome"))) & "', " & _
    "showcellphone1='" & showcellphone1 & "', " & _
    "cellphone1='" & Trim(SQLEncode(Request.Form("cellphone1"))) & "', " & _
    "showcellphone2='" & showcellphone2 & "', " & _
    "cellphone2='" & Trim(SQLEncode(Request.Form("cellphone2"))) & "', " & _
    "showphoneatwork='" & showphoneatwork & "', " & _
    "phoneatwork='" & Trim(SQLEncode(Request.Form("phoneatwork"))) & "', " & _
    "showcellphoneatwork='" & showcellphoneatwork & "', " & _
    "cellphoneatwork='" & Trim(SQLEncode(Request.Form("cellphoneatwork"))) & "', " & _
    "description'" & Trim(SQLEncode(Request.Form("description"))) & "', " & _
    "lastIP='" & lastIP & "' " & _
    "WHERE username='" & SQLEncode(Session("username")) & "'"

Response.Write "DEBUG: " & mySQLstr & "<br>"

Conn.Execute mySQLstr
Conn.Close

- og den anden skal bare rettes til efter samme mønster.

Jeg mener at checkboxe og radiobuttons får værdien "ON", når der er "kryds" i dem..

Dvs: if UCase(request.form("navnet på checkbox eller radiobutton")) = "ON" then

Brug altid enten LCase (LowerCase, små bogstaver) eller UCase (UpperCase, STORE BOGSTAVER) når du sammenligner..

/theSurfer

thesurfer> Hvis der er en value på en checkbox, så er det ikke "on" men derimod værdien af denne som sendes.

nielle: Flot, havde ikke regnet med, at du havde lavet det hele, bare lige starten :)

thesurfer: Jeg dimensionerer det længere oppe: 29/06-2005 22:06:49

Nu er jeg imidlertid rendt i en "The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.", men jeg har ikke tid før i aften. Hvis I har tid/lyst til den også, forøger jeg point igen.


.................En hel masse

                "description='" & Trim(SQLEncode(Request.Form("description"))) & "', " & _
                "lastIP='" & lastIP & "' " & _
                "WHERE username='" & SQLEncode(Session("username")) & "'"

                Response.Write "DEBUG: " & mySQLstr & "<br>"

            Conn.Execute mySQLstr
            Conn.Close

        End If

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

    Else

        Set RS = Conn.Execute("SELECT * FROM profiles WHERE username = '" & SQLEncode(Session("username")) & "'")

        If RS.EOF Then
            Response.Redirect "/error.asp?msg=Der+skete+en+fejl.+Log+venligst+ind+igen."
        End If

    End If

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
....................
</html>


Det er Response.Redirect, der giver problemet:

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

Jeg må hellere komme afsted, håber vi kan kigge på det i aften.

AH! Det var jo Response.Write "DEBUG: " & mySQLstr & "<br>", der lige skulle fjernes :)

Smid et svar - og tak for hjælpen, drenge/piger :)

Svar :^)

Tak for hjælpen, nielle :)