hjælp til SQL sætninger

conn2.execute("UPDATE dog SET health = '" & health & "', hungry = '" & hungry & "', iq = '" & iq & "', fun = '" & fun & "', clean = '" & clean & "', comfort = '" & comfort & "' WHERE owneremail =" & owneremail)

En update skal hvade denne syntax

UPDATE tabelnavn SET kolonne1 = 'data', kolonne2='data', kolonne3='data' where kolonne4=noget

Så din linje skal være noget som denne:

conn2.execute("UPDATE dog SET health = '" & health & "', hungry = '" & hungry & "', iq = '" & iq & "', fun = '" & fun & "', clean = '" & clean & "', comfort = '" & comfort & "' WHERE owneremail =" & owneremail)

Det kan godt være den er rigtig nu, men der er stadig en fejl på dette stykke, kan i se hvad det er. Det er en sql fejl...

elseif(funktion="opdater") then

  set conn2 = server.createobject("adodb.connection")
  strConnection2 = "driver={MySQL};server=localhost;uid=xxxxxxx;database=xxxxxxxx;option=NUM"
  conn2.Open strConnection1
  strSQL = "UPDATE dog SET health = '" & health & "', hungry = '" & hungry & "', iq = '" & iq & "', fun = '" & fun & "', clean = '" & clean & "', comfort = '" & comfort & "' WHERE owneremail =" & owneremail
  response.write(strSQL)
  conn2.execute(strSQL)
  conn2.close
  set conn2 = nothing


'hent fra database

elseif(funktion = "hent") then

    Dim objRS       
    Set objConn = Server.CreateObject("ADODB.Connection")
    strConnection = "driver={MySQL};server=localhost;uid=xxxxxxxx;database=xxxxxxxx;option=NUM"
    objConn.Open strConnection
    strQuery = "SELECT name, dayofbirth, weight, health, hungry, iq, fun, clean, comfort FROM dog WHERE owneremail=" & owneremail
    Set objRS = objConn.Execute(strQuery)

    response.write("name=" & objRS(name))
    response.write("&dayofbirth=" & objRS(dateofbirth))
        response.write("&weight=" & objRS(weight))
    response.write("&health=" & objRS(health))
    response.write("&hungry=" & objRS(hungry))
    response.write("&iq=" & objRS(iq))
    response.write("&fun=" & objRS(fun))
    response.write("&clean=" & objRS(clean))
    response.write("&comfort=" & objRS(comfort))

    objRS.close
    objConn.close
    Set objRS = Nothing
    Set objConn = Nothing

end if


:) Håber i kan se hvad der er galt

hvis owneremail er en tekst kolonne skal der ' omkring i strSQL sådan her:

  strSQL = "UPDATE dog SET health = '" & health & "', hungry = '" & hungry & "', iq = '" & iq & "', fun = '" & fun & "', clean = '" & clean & "', comfort = '" & comfort & "' WHERE owneremail = '" & owneremail & "'"

Jeg tror sql sætningerne er på plads nu, men den melder fejl i mit resultset...

Set objRS = objConn.Execute(strQuery)

    response.write("name=" & objRS(name))
    response.write("&dayofbirth=" & objRS(dateofbirth))
        response.write("&weight=" & objRS(weight))
    response.write("&health=" & objRS(health))
    response.write("&hungry=" & objRS(hungry))
    response.write("&iq=" & objRS(iq))
    response.write("&fun=" & objRS(fun))
    response.write("&clean=" & objRS(clean))
    response.write("&comfort=" & objRS(comfort))

    objRS.close
    objConn.close
    Set objRS = Nothing
    Set objConn = Nothing


hvad er der galt der ??

Der skal lige " omkring kolonne navne i objRS:
objRS(name)  --> objRS("name")

det gælder for alle de linjer:

    response.write("name=" & objRS("name"))
    response.write("&dayofbirth=" & objRS("dateofbirth"))
        response.write("&weight=" & objRS("weight"))
    response.write("&health=" & objRS("health"))
    response.write("&hungry=" & objRS("hungry"))
    response.write("&iq=" & objRS("iq"))
    response.write("&fun=" & objRS("fun"))
    response.write("&clean=" & objRS("clean"))
    response.write("&comfort=" & objRS("comfort"))

Det er den godt nok ligeglad med, der er stadig fejl i linie 102 siger den...

linie 102 =

response.write("name=" & objRS("name"))

ovenover står der nu:

Dim objRS       
    Set objConn = Server.CreateObject("ADODB.Connection")
    strConnection = "driver={MySQL};server=localhost;uid=xxxxxx;database=xxxxxx;option=NUM"
    objConn.Open strConnection
    strQuery = "SELECT name, dayofbirth, weight, health, hungry, iq, fun, clean, comfort FROM dog WHERE owneremail='" & owneremail &"'"
    Set objRS = objConn.Execute(strQuery)


Har du et bud mere ?? .... jeg smækker lige lidt flere points på til dig :)

Hvilken fejl kommder den med?

Jeg har rodet lidt med det og brugt dine råd... Og nu virker det hele sør'me :)) Bortset fra at den ikke vil sende mails.. Men det må blive et andet spørgsmål. Måske kan du være behjælpelig der også.