trubbel

sql= "select k.fnamn,k.enamn,k.adress,k.postnummer,k.ort,k.telefonnummer,k.epost,o.datum,o.antal,o.smak,o.storlek, p.vara, p.pris from kunder k, orderRad o, produkter p where k.epost = '" & epost & "'"

vad är fel i den koden får detta felet

SQLState: 37000
Native Error Code: -3100
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'k.epost = ''eva@amts.nu'''.

Hmm, jag tycker att din sql-fråga inte stämmer riktigt med felmeddelandet.

Kan du visa lite mer kod och lägga till en utskrift av sql-frågan och visa resultatet?

sql = "select k.fnamn,k.enamn,k.adress,k.postnummer,k.ort,k.telefonnummer,k.epost,o.datum,o.antal,o.smak,o.storlek, p.vara, p.pris " & _
" from kunder k, orderRad o, produkter p where k.epost = '" & epost & "'" 
response.write "SQL> " & sql & "<br>"
response.end

Har du inga joinvillkor med i frågan?

det var fel med fnuttarna i slutet på SQL satsen nu funkar den

Et annat problem

Nedan kod ska känna av om epostadressen redan finns bland kunderna och då inte skapa nån ny kund men detfunkar inte. jag får detta fel

"ADO Could not find the object in the collection corresponding to the name or ordinal reference requested by the collection. "

<%Sub Bestalla

sfnamn = request.querystring("fnamn")
senamn = request.querystring("enamn")
sadress = request.querystring("adress")
spostnummer = request.querystring("postnummer")
sort = request.querystring("ort")
stelefonnummer = request.querystring("telefonnummer")
sepost = request.querystring("epost")

session.lcid = 1053
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "xxxx"
set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select epost from kunder where epost = " & sepost & ""
response.write sepost

if isnull(rs("epost")) then

sql = "Insert Into kunder (fnamn, enamn, adress, postnummer, ort, telefonnummer, epost, datum) Values ('"&sfnamn&"','"&senamn&"', '"&sadress&"','"&spostnummer&"','"&sort&"','"&stelefonnummer&"','"&sepost&"', date())"

conn.execute(sql)

Else

session.lcid = 1053

set rs = Server.CreateObject("ADODB.Recordset")

sql = "Select * from tempKorg Where SessionID = " & sSession & ""

rs.open sql,conn

Do until rs.eof
smsmak = rs("smak")
ststorlek = rs("storlek")
sAid = rs("artikelID")
sAntal = rs("Antal")

sql="Insert Into orderRad(OrderID, Antal, smak, storlek, artikelID, epost, datum) Values ('"& sSession &"', '"& sAntal &"', '"& smSmak &"', '"& stStorlek &"', '"& sAid &"', '"& sepost &"', date())"
response.write sql
conn.execute(sql)

sql = "Delete * from tempKorg Where SessionID = " & sSession & ""
conn.execute(sql)
rs.movenext
loop
rs.close
conn.close

End if
End sub
%>

set rs = Server.CreateObject("ADODB.Recordset") 
sql = "Select epost from kunder where epost = " & sepost & "" 
response.write sepost 

if isnull(rs("epost")) then

Du öppnar aldrig rs i koden ovan.

sql = "Select epost from kunder where epost = '" & sepost & "'" 
set rs = conn.execute(sql)

if rs.eof then