Can anyone advise me how could i solve this problem??? I got the below error msg when i try running my script
[u]ERROR</u>
UPDATE [Users] SET [uEmail] = '
[email protected]', [RealName] = 'qwer', [uAge] = '12', [Gender] = '1', [uContact] = '', [uModel] = '', [uPlate] = '', [location] = '', [website] = '', [icq] = '', [msn] = '', [aol] = '', [yahoo] = '', [interests] = '', [sig] = ' ', [Avatar] = '', [HideEmail] = 'False', WHERE uID = 14
Microsoft JET Database Engine error '80040e14'
Syntax error in UPDATE statement.
/revolnip/Discussion/UpdateProfile.asp, line 99
[u]SCRIPT</u>
<% Dim profile, rsUsers, pdon, apos, elen, postContent, postSubject, topic, avatar, abortUpdate, img, i, rsForums
if not intUID = 0 then Conn.Execute("UPDATE [Users] SET [LastActivePlace] = ""profile.asp?profile=" & Request("profile") & """, [LastLoggedIn]= now(), [IP] = '" & GetIP & "' WHERE [uID]=" & intUID)
if intUID <> 0 then 'if someone has requested a profile
Set rsUsers = Conn.Execute("SELECT * From [Users] WHERE [uID] = " & intUID)
Else
Set Conn = nothing
rsUsers.close
response.redirect "default.asp"
end if
If Request("update") = "true" then
function FormatString(x)
x = replace(x, "'", "''")
'x = replace(x, """", """""")
x = Replace(x, "<", "<")
x = Replace(x, ">", ">")
x = Replace(x, vbCrLf, "<br>")
FormatString = x
end function
'get data, validate it
dim strSQL, dbpass, email, RealName, uage, Gender, uContact, uModel, uPlate, location, website, aol, icq, msn, yahoo, interests, sig, HideEmail
email = Replace(Request("email"), "'", "''")
if len(email) < 6 then elen = true
if instr(email, "@") = 0 then elen = true
'response.write instr("asd", "@") & " : " & instr("asd@asd", "@")
realname = FormatString(Request("realname"))
uage = FormatString(Request("uage"))
gender = FormatString(Request("Gender"))
uContact = FormatString(Request("uContact"))
uModel = FormatString(Request("uModel"))
uPlate = FormatString(Request("uPlate"))
location = FormatString(Request("location"))
website = FormatString(Request("website"))
If len(website) > 1 then
If lCase(Left(website, 4)) <> "http" then website = "http://" & website
End If
aol = FormatString(Request("aol"))
icq = FormatString(Request("icq"))
msn = FormatString(Request("msn"))
yahoo = FormatString(Request("yahoo"))
interests = FormatString(Request("interests"))
sig = Request("sig")
postContent = sig
Set rsForums = Conn.Execute("SELECT General.*, PER_TEMPLATE.* From [General] INNER JOIN PER_TEMPLATE ON General.PER" & intGroup & " = PER_TEMPLATE.TEMPLATE_ID") 'should hopefully stop errors occuring in formatpost.asp
dim POST_HTML, POST_BB, POST_SMILIE, POST_IMG
POST_HTML = false
POST_BB = true
POST_SMILIE = true
POST_IMG = true
%>
<%
sig = postContent
avatar = FormatString(Request("avatar"))
HideEmail = Request("hideemail")
if HideEmail = "true" then HideEmail = true else HideEmail = false
'update record
if not abortUpdate = true then 'if all good then
strSQL = "UPDATE [Users] SET "
if not elen = true then
strSQL = strSQL & "[uEmail] = '" & email & "', "
end if
strSQL = strSQL & "[RealName] = '" & realname & "', "
strSQL = strSQL & "[uAge] = '" & uage & "', "
strSQL = strSQL & "[Gender] = '" & gender & "', "
strSQL = strSQL & "[uContact] = '" & uContact & "', "
strSQL = strSQL & "[uModel] = '" & uModel & "', "
strSQL = strSQL & "[uPlate] = '" & uPlate & "', "
strSQL = strSQL & "[location] = '" & location & "', "
strSQL = strSQL & "[website] = '" & website & "', "
strSQL = strSQL & "[icq] = '" & icq & "', "
strSQL = strSQL & "[msn] = '" & msn & "', "
strSQL = strSQL & "[aol] = '" & aol & "', "
strSQL = strSQL & "[yahoo] = '" & yahoo & "', "
strSQL = strSQL & "[interests] = '" & interests & "', "
strSQL = strSQL & "[sig] = '" & sig & "', "
if Application("AV_ENABLED") = true then
strSQL = strSQL & "[Avatar] = '" & avatar & "', "
end if
strSQL = strSQL & "[HideEmail] = '" & HideEmail & "', "
strSQL = strSQL & "WHERE uID = " & intUID
Response.Write (strSQL)
Conn.Execute (strSQL)
end if
end if
rsUsers.Requery
intOffSet = rsUsers("Offset")
%>
Microsoft JET Database Engine error '80040e14'
