chrismartz
06-13-2005, 09:29 AM
Does anyone see why the URL portion of this code would output an error of Microsoft OLE DB Provider for SQL Server error '80040e14'
Line 1: Incorrect syntax near 'asdf'.
notshowinglocation.asp, line 42
when I would type asdf?
<%
Dim blogtitle,dateposted,timeposted,strSQL,author,i,j,url,strlink
blogtitle = request.form("title")
message = Replace(message, chr(39), "'")
message = Replace(message, chr(34), """)
message = Replace(message, vbCrLf, "<br /><br />")
message = Replace(message, "", "<strong >")
message = Replace(message, "", "</strong >")
message = Replace(message, "", "<em>")
message = Replace(message, "", "</em>")
message = Replace(message, "", "<un>")
message = Replace(message, "", "</un>")
message = Replace(message, "", """)
message = Replace(message, "", """)
While instr(message, "[URI=") > 0
i = instr(message, "[URI=")
j = instr(i, message, "]")
strLink = mid(message, i, j-i)
url = split(strLink, "=")(1)
message = replace(message, strLink & "]", "<a href='" & url & "' title='" & url & "'>")
message = replace(message, "[/URL]", "</a>")
Wend
author = Session("username")
dateposted = date
timeposted = time
strSQL="INSERT INTO blog(blog_message,blog_title,date_posted,time_posted,author)"
strSQL=strSQL & " VALUES('" & message & "','" & blogtitle & "','" & dateposted & "','" & timeposted & "','" & author & "')"
objDC.execute(strSQL)
Line 1: Incorrect syntax near 'asdf'.
notshowinglocation.asp, line 42
when I would type asdf?
<%
Dim blogtitle,dateposted,timeposted,strSQL,author,i,j,url,strlink
blogtitle = request.form("title")
message = Replace(message, chr(39), "'")
message = Replace(message, chr(34), """)
message = Replace(message, vbCrLf, "<br /><br />")
message = Replace(message, "", "<strong >")
message = Replace(message, "", "</strong >")
message = Replace(message, "", "<em>")
message = Replace(message, "", "</em>")
message = Replace(message, "", "<un>")
message = Replace(message, "", "</un>")
message = Replace(message, "", """)
message = Replace(message, "", """)
While instr(message, "[URI=") > 0
i = instr(message, "[URI=")
j = instr(i, message, "]")
strLink = mid(message, i, j-i)
url = split(strLink, "=")(1)
message = replace(message, strLink & "]", "<a href='" & url & "' title='" & url & "'>")
message = replace(message, "[/URL]", "</a>")
Wend
author = Session("username")
dateposted = date
timeposted = time
strSQL="INSERT INTO blog(blog_message,blog_title,date_posted,time_posted,author)"
strSQL=strSQL & " VALUES('" & message & "','" & blogtitle & "','" & dateposted & "','" & timeposted & "','" & author & "')"
objDC.execute(strSQL)