Ciao,
ho la seguente subroutine:+
Sub DisplayScrollNewsLinks(iTop, iCategory)
Dim oCn, oRs, rSQL
Dim titreNews, texteNews, dateNews, sCategory, sTitleCat
Set oCn = DBConnexion(DB_MAIN)
If iCategory <> "" and iCategory <> 0 Then
sCategory = "?cat=" & iCategory
rSQL = "SELECT cTitle FROM categories WHERE cID=" & iCategory
Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then sTitleCat = " - " & Server.HTMLEncode(oRs(0))
End If
rSQL = rSQL & "SELECT TOP " & iTop & " nID, nDate, nTitle FROM news, "
rSQL = rSQL & "versions WHERE nVersion=vID AND nDate < '" & DateTimeToString(Now()) & "' "
rSQL = rSQL & "AND nValid=1"
If sCategory <> "" Then rSQL = rSQL & " AND nCategory=" & iCategory
rSQL = rSQL & " ORDER BY nDate DESC"
Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then
While Not oRs.EOF
Response.Write "<span class=""rm"">" & GetDateLitteralDDMMYYYY(StringToDate(oRs("nDate")) ) & "</span>-" & vbCRLF
Response.Write "" & CodeMessage(oRs("nTitle"), False) & "" & vbCRLF
oRs.MoveNext
WEnd
Else
Response.Write GetTranslation("LANG_EMPTY_SECTION")
End If
oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End Sub
'End Display the top news list (links to news)
Quando la uso con MySQL viene restituito un errore di sintassi della query
rSQL = rSQL & "SELECT TOP " & iTop & " nID, nDate, nTitle FROM news, "
rSQL = rSQL & "versions WHERE nVersion=vID AND nDate < '" & DateTimeToString(Now()) & "' "
rSQL = rSQL & "AND nValid=1"
If sCategory <> "" Then rSQL = rSQL & " AND nCategory=" & iCategory
rSQL = rSQL & " ORDER BY nDate DESC"
Dove può essere l'errore?
Saluti,
carlostefano

Rispondi quotando
