fejl i sqlsætning
jeg en kodesnip der henter noget tekst fra en htmlside - alt mellem bodytags og skriver den ud på en side, samtidig vil jeg gerne ha den til at inserte det i en database.Her kommer koden:
function getHTML(strContent, strStartTag, strEndTag)
strText = strContent
intStart = instr(1, strText, left(strStartTag, len(strStartTag)-1), vbtextcompare)
if intStart <> 0 then
intStart = instr(intStart+1, strText, right(strStartTag,1), vbtextcompare)
intEnd = inStr(intStart, strText, strEndTag, vbtextcompare)
getHTML = Mid(strText, intStart + 1, intEnd - intStart - 1)
else
getHTML = " "
end if
end function
const fsoForReading = 1
strFilNavn2 = server.mappath("/edb2/politik/kvalitetsblade/upload/" & objRS(1))
set objFSO = Server.CreateObject("Scripting.FilesystemObject")
set objTextStream = objFSO.OpenTextFile(strFilNavn2, fsoForReading)
txtFilIndhold = objTextStream.ReadAll
objTextStream.Close
temp = getHTML(txtFilIndhold, "<body>", "</body>")
tal = 2
response.write temp
SQL = "Insert into tekst (text, gnyf) values('" & temp & "', '" & tal & "')"
set oCon = server.createobject("ADODB.Connection")
oCon.Open strConnectpolitik
oCon.Execute SQL
oCon.Close
Set oCon = nothing
Response.write "Posten er oprettet <a href=Sogning.asp>Tilbage</a>"
set objFSO = nothing
%>
den giver fejlen syntax error in INSERT INTO statement????
