Ошибка Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

@pipok · Регистрация: 21.04.2007

Author24 — интернет-сервис помощи студентам

Существует скрипт для новостей, я захотел сделать так, чтобы при вводе смайлика, вылетала картинка с рожей и написал следующее:

Visual Basic

Function smile(string)
String = replace(String, ';)', '<img src='imgsmileswink.gif' width='15' height='15' align='middle'>')
String = replace(String, ':(', '<img src='imgsmilesfrown.gif' width='15' height='15' align='middle'>')  
String = replace(String, ':p', '<img src='imgsmiles ongue.gif' width='15' height='15' align='middle'>') 
String = replace(String, ':)', '<img src='imgsmilessmile.gif' width='15' height='15' align='middle'>')
String = replace(String, ':o', '<img src='imgsmileslush.gif' width='15' height='15' align='middle'>')
String = replace(String, '8)', '<img src='imgsmilescool.gif' width='15' height='15' align='middle'>')   
String = replace(String, '%)', '<img src='imgsmilescrazy.gif' width='15' height='15' align='middle'>')  
String = replace(String, ':D', '<img src='imgsmileslaugh.gif' width='15' height='15' align='middle'>')
String = replace(String, ':<', '<img src='imgsmilesmad.gif' width='15' height='15' align='middle'>')
String = replace(String, ':0', '<img src='imgsmilesshocked.gif' width='15' height='15' align='middle'>')
smile = String
End Function

и ещё

Visual Basic

Case 'doit' 'Создание новости
' ################################################
chk
sql = 'INSERT INTO News (subject, news, author, type) '
sql = sql & 'values ('' & request.form('subject') & '', '' & smile(request.form('news')) & '', '' & Session('id') & '', '' & request.form('type') & '')'
my_conn.Execute(sql)
Response.Write '<font size='2' face='' & AttentionFace & '' color='green'><b>Новость опубликована.</b></font>'
'End 'doit'
' ################################################

Вылетает следующее:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Äðàéâåð ODBC Microsoft Access] Îøèáêà ñèíòàêñèñ&agrav e; (ïðîïóùåí îïåðàòî&eth

â âûðàæåíèè çàïðîñà ''<img src='imgsmileswink.gif' width='15' height='15' align='middle'>''.

/enclave/news.asp, line 146

Покажите на ошибку!

@Oswald · 19.05.2007, 07:34

Скорее всего из-за того, что одинарный апостроф пишешь в БД. Попробуй ставить 2 апострофа

20.05.2007, 15:27

Problem mozhet neskol'ko:
- vo pervyh String eto zarezervirovannoye slovo s VB, na ASP eto tozhe moget vliyat' (mozhet i net, no zachem tak delat'???)

- vo vtoryh, rekomenduetsya rabotat' s peremennymi, t.e. vmesto
'...& smile(request.form('news')) & ...'
stoit pisat':
sNews = request.form('news')
...& smile(sNews) & ...'
(po analogii vse ostal'nye object zagnat' v peremennye)

a function 'smile' stoit pereisat' tak:
Function smile(myStr)
if Len(Trim(myStr)) > 0 then
myStr= replace(myStr, ...
end if
smile = myStr
End Function

Cheerz

@Oswald 0 / 0 / 0 Регистрация: 21.03.2007 Сообщений: 78
	19.05.2007, 07:34	2
	Скорее всего из-за того, что одинарный апостроф пишешь в БД. Попробуй ставить 2 апострофа 0

Rider
	20.05.2007, 15:27	3
	Problem mozhet neskol'ko: - vo pervyh String eto zarezervirovannoye slovo s VB, na ASP eto tozhe moget vliyat' (mozhet i net, no zachem tak delat'???) - vo vtoryh, rekomenduetsya rabotat' s peremennymi, t.e. vmesto '...& smile(request.form('news')) & ...' stoit pisat': sNews = request.form('news') ...& smile(sNews) & ...' (po analogii vse ostal'nye object zagnat' v peremennye) a function 'smile' stoit pereisat' tak: Function smile(myStr) if Len(Trim(myStr)) > 0 then myStr= replace(myStr, ... end if smile = myStr End Function Cheerz