Ciao a tutti, il codice che segue è per leggere la news da db access, il codice funziona, ho inserito il tasto condividi di facebook nella parte html della pagina, la condivisione avviene ma non riporta la descrizione della news, ho inserito in fondo al codice il campo
response.write "<meta name=""description"" content=" & newsbody & "/>" in modo da far apparire come descrizione la news, ma purtroppo non funziona, ho provato in vari modi ma questo è l'unico che non rilancia errori, ma niente non funziona...
potete aiutarmi?? grazie
<%
id = request("id")
if id < 1 then
response.write (errormsg)
response.end
end if
Set dConn = Server.CreateObject("ADODB.Connection")
dConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & database_path
'========================================
if request.form("ispostback") = 1 then
set updateRS = Server.CreateObject("ADODB.RecordSet")
updateSQL = "SELECT * from tblnews where ID = " & ID & ";"
updateRS.Open updateSQL,dConn, 1,3
urecordcount = updateRS.recordcount
if urecordcount <> 1 then
updateRS.Close
Set updateRS = Nothing
response.redirect("default.asp?norecord")
end if
updateRS("newsdate") = checkdate(request.form("newsdate"))
updateRS("expire") = checkdate(request.form("expire"))
updateRS("newstitle") = Presubmit2(request.form("newstitle"))
updateRS("newsbody") = Presubmit2(request.form("newsbody"))
updateRS("newsimage") = Presubmit2(request.form("newsimage"))
updateRS("active") = request.form("active")
updateRS.update
updateRS.Close
set updateRS = Nothing
message = "
<font color='#FF0000'>Update Successful</font></p>"
end if
'========================================
strSQL = "SELECT expire, id, newsdate, newstitle, newsbody, newsimage, active from tblnews where ID = " & ID & ";"
Set newsRS = Server.CreateObject("ADODB.recordset")
newsRS.Open strSQL, dConn, 1, 3
recordcount = newsrs.recordcount
if recordcount < 1 then
newsRS.close
set newsRS = nothing
dConn.close
set dConn = nothing
response.write (errormsg)
Response.end
end if
For fnum = 0 To newsRS.Fields.Count-1
execute(newsRS.Fields(fnum).Name & " = newsRS(" & CHR(34) & newsRS.Fields(fnum).Name & CHR(34) & ")")
Next
if newsbody <> "" then
newsbody = undo(newsbody)
end if
%>
<table body bgcolor="F5F5F5" border=0 bordercolor="#CCCCFF" CELLSPACING=5 CELLPADDING=4>
<%
' Loop through the records (second dimension of the array)
response.write "<tr>" & _
"<td>" & newsdate & "</td>" & _
"<td>" & newstitle & " </td>" & _
"</tr>" & _
"<tr>" & _
"<td> <img src= "& newsimage & " width=""150"" height=""125""> </td>" & _
"<td>" & newsbody & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td></td>" & _
"<td></td>" & _
"</tr>"
response.write "<meta name=""description"" content=" & newsbody & "/>"
%>
Rispondi quotando
stranissimo... 
