costante string senza terminazione

**desperado98** · 04-01-2007, 20:13

ragazzi sapreste aiutarmi non riesco a capire dov'è l'errore:

mi da costante stringa senza terminazione

<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")

'set connession to database
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

Set rs = Server.CreateObject("ADODB.Recordset")

nometabella= "news"

SQL = "select * from "& nometabella &""

'apro il rs
rs.Open sql, objConn
stringa = ""
do until rs.eof

For Each campo in rs.Fields
if not (campo.name = "id") then
'non stampa i campi non richiesti
stringa = stringa & campo &""
end if
next

rs.movenext
loop

'chiudo tutto
rs.close
set rs=nothing

objConn.close

grazie

set objconn=nothing
%>

**optime** · 04-01-2007, 20:25

e tu terminala, no? mostra la riga dell'errore

**desperado98** · 04-01-2007, 20:35

nometabella= "news"

**optime** · 04-01-2007, 20:36

pare corretta....

**desperado98** · 04-01-2007, 21:04

ma di fatto mi da un'errore o meglio mi carica la pagina ma con errori

guarda tu stesso

http://www.stadioradio.it/public/new...lling_news.asp

**desperado98** · 04-01-2007, 22:39

forse le informazioni da visualizzare sono troppe??!!

stavo provando a far visualizzare solo i record inseriti in data odierna

ma mi da questo errore

Engine error '80040e10'

No value given for one or more required parameters.

/public/news/scrolling_news.asp, line 31

ho provato a fare così

<%
dim adesso, oggi, giorno, mese, anno
adesso= (now)
giorno= DatePart("d",adesso)
mese= DatePart("m",adesso)
anno= DatePart("YYYY",adesso)

oggi= giorno&"/"&mese&"/"&anno

response.write oggi
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
'set connession to database
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from news where data=oggi"

'apro il rs
rs.Open sql, objConn
stringa = ""
do until rs.eof

For Each campo in rs.Fields
if not (campo.name = "id") then
'non stampa i campi non richiesti
stringa = stringa & campo &""
end if
next

rs.movenext
loop

'chiudo tutto
rs.close
set rs=nothing

objConn.close
set objconn=nothing
%>

**optime** · 05-01-2007, 10:37

non si scrivono così le query

SQL = "select * from news where data=oggi"

ma così

SQL = "select * from news where data=#" & oggi & "#"

**desperado98** · 05-01-2007, 16:34

niente da fare sempre lo stesso errore

riga 21 carattere 50

addirittura anche se sta riga 21 è diversa, nel senso che ho inserito altre righe, e nella riga 21 non c'è alcuna costante, ba

spero che qualcuno mi possa aiutare inserisco di seguito l'intero codice

codice:

<html> 
<head> 
<title>Scrolling news</title> 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
</head> 

<BODY> 


 
<% 
dim adesso, oggi, giorno, mese, anno
adesso= (now)
giorno= DatePart("d",adesso)
mese= DatePart("m",adesso)
anno= DatePart("YYYY",adesso)

oggi= giorno&"/"&mese&"/"&anno

response.write oggi

cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb") 
'set connession to database 
Set objConn=Server.CreateObject("ADODB.Connection") 

'open connession to database 
objConn.Open cstring 
Set rs = Server.CreateObject("ADODB.Recordset") 
SQL = "select * from news where data=#" & oggi & "#"
'apro il rs 
rs.Open sql, objConn 
stringa = "" 
do until rs.eof 

For Each campo in rs.Fields 
if not (campo.name = "id") then 
'non stampa i campi non richiesti 
stringa = stringa & campo &"" 
end if 
next 

rs.movenext 
loop 

'chiudo tutto 
rs.close 
set rs=nothing 

objConn.close 
set objconn=nothing 
%> 


<script language="JavaScript1.2"> 
//Larghezza del testo scorrevole(in pixels) 
var marqueewidth=700 
//Altezza del testo scorrevole (in pixels, solo Netscape) 
var marqueeheight=20 
//Velocit? 
var speed=1 
//Contenuto 
var marqueecontents='<font face="Arial"> 
<big><%=stringa%></big></font>' 

if (document.all) 
document.write('<center><marquee scrollAmount='+speed+' style="width:'+marqueewidth+'">'+marqueecontents+'</marquee></center>') 

function regenerate(){ 
window.location.reload() 
} 

function regenerate2(){ 
if (document.layers){ 
setTimeout("window.onresize=regenerate",450) 
intializemarquee() 
} 
} 

function intializemarquee(){ 
document.cmarquee01.document.cmarquee02. 
document.write('<nobr>'+marqueecontents+'</nobr>') 
document.cmarquee01.document.cmarquee02.document.close() 
thelength=document.cmarquee01. 
document.cmarquee02.document.width 
scrollit() 
} 

function scrollit(){ 
if (document.cmarquee01.document.cmarquee02.left>=thelength*(-1)){ 
document.cmarquee01.document.cmarquee02.left-=speed 
setTimeout("scrollit()",100) 
} 
else{ 
document.cmarquee01.document.cmarquee02.left=marqueewidth 
scrollit() 
} 
} 

window.onload=regenerate2 
</script> 


<ilayer width=&{marqueewidth}; height=&amp;{marqueeheight}; name="cmarquee01"> 
<layer name="cmarquee02"></layer> 
</ilayer> 


</body> 
</html> 



</body>

</html>

**optime** · 05-01-2007, 16:44

ma le righe me le devo contare io?

dai....

**wallrider** · 05-01-2007, 16:55

Originariamente inviato da optime
ma le righe me le devo contare io? ...

mi sa di si

Discussione: costante string senza terminazione

Strumenti discussione

Ricerca discussione

Visualizza

costante string senza terminazione

Permessi di invio