Heres one problem - line 1227
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & ChkString(Trim(regPhoto_URL),"SQLString") & "'"
end if strsql = strsql & ", M_AVATAR_URL = '" & ChkString(regAvatar_Image,"SQLString") & "'"
should look like this
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & ChkString(Trim(regPhoto_URL),"SQLString") & "'"
end if
strsql = strsql & ", M_AVATAR_URL = '" & ChkString(regAvatar_Image,"SQLString") & "'"
another - around line 1464
if Trim(Request.Form("PHOTO_URL")) <> "" and lcase(trim(Request.Form("PHOTO_URL"))) <> "http://" and Trim(lcase(Request.Form("PHOTO_URL"))) <> "https://" then
regPhoto_URL = chkString(Request.Form("Photo_URL"),"SQLString")
else
regPhoto_URL = " "
end if regAvatar_Image = Request.Form("AVATAR_URL")
should look like this
if Trim(Request.Form("PHOTO_URL")) <> "" and lcase(trim(Request.Form("PHOTO_URL"))) <> "http://" and Trim(lcase(Request.Form("PHOTO_URL"))) <> "https://" then
regPhoto_URL = chkString(Request.Form("Photo_URL"),"SQLString")
else
regPhoto_URL = " "
end if
regAvatar_Image = Request.Form("AVATAR_URL")
last one :) - around line 1530
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & chkString(Trim(regPhoto_URL),"SQLString") & "'"
end if strsql = strsql & ", M_AVATAR_URL = '" & ChkString(Trim(regAvatar_Image),"SQLString") & "'"
should look like this
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & chkString(Trim(regPhoto_URL),"SQLString") & "'"
end if
strsql = strsql & ", M_AVATAR_URL = '" & ChkString(Trim(regAvatar_Image),"SQLString") & "'"
The readme says "after" maybe it should be "under"