Expected end of statement

[forte78]

vi mostro il codice

Response.Write "<td width=""200"" valign=""top""><p align='justify'>[img]<%=objrs("foto1")%>[/img]</td>"


mi da questo errore cosa non va


microsoft VBScript compilation error '800a0401'

Expected end of statement

/pregio.asp, line 269

Response.Write "<td width=""200"" valign=""top""><p align='justify'><img src='<%=objrs("foto1")
----------------------------------------------------------------------------------------^

[Alethesnake]

Response.Write "<td width=""200"" valign=""top""><p align=""justify"">[img][/img]</td>"

[forte78]

grazie 1000 funziona.
approfitto sfacciatamente della tua benevolenza ti chiedo questo ora mi da

l'errore

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/pregio.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.


questo il codice










<%

' PAGINAZIONE
Dim boolFound, intPageNum, intNumRows, intCount, intLinks, intPagina


strSQL = "SELECT * FROM immobili WHERE " &_
"dipregio = 'SI' AND internet = 'SI' AND visione = 'SI'"


strSQL = strsql &" ORDER BY codiceimmobile DESC"

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cn



'*** NUMERO DI RECORDS PER PAGINA ******
Const RECORDSPERPAGE = 4
'***************************************



objrs.PageSize = RECORDSPERPAGE

If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If

'Conteggio delle righe
intNumRows = objrs.RecordCount

If (intNumRows <> 0) Then
objrs.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To objrs.PageSize
%>




<table border="0" width="990" cellspacing="0" cellpadding="0">

<tr>
<td height="5">








<table border="0" cellpadding="2" cellspacing="3" width="980" class="normales">
<%

Dim nCol : nCol = 0
Do While Not objRS.EOF

If nCol=2 Then
Response.Write "</tr>"
nCol=0
End If

If nCol=0 Then
Response.Write "<tr>"
End If


Response.Write "<td width=""900"" valign=""top""><p align=""center"">[img][/img]</td>"

nCol = nCol + 1

Loop
objrs.Close
SET objrs = Nothing


%>
</table>
</td>
</tr>
</table>



<%
objrs.MoveNext
If ( objrs.EOF ) Then Exit For
Next
End If
%>


<% 'Navigazione sulle pagine
If ( intNumRows > 0 ) Then

Response.Write("<font size='1' color='black' face='Arial'>")
Response.Write "Pagina " & intPageNum & " di " & objrs.PageCount & "
"

'Pagina precedente
If ( intPageNum > 1 ) Then
Response.Write "&laquo;"
End If


'Numeri di pagina
For intLinks = 1 To objrs.PageCount
intPagina = intPagina + 1
If intPagina > 10 Then
intPagina = 1
Response.Write("
")
End If
If intLinks = intPageNum Then
Response.Write "<font color='black'>" & intLinks & "</font>"
Else
Response.Write "<font color='white'>" & intLinks & "</font>"
End If
Next

'Pagina successiva
If ( intPageNum < objrs.PageCount ) Then
Response.Write "&raquo;"
End If

Response.Write("</font>")

'Fine navigazione sulle pagine

End If


'Chiusura recordset
objrs.Close
Set objrs = Nothing
%>









fammi sapere se riesci

[forte78]

ho risolto in un altro modo ora se volessi affiancare all'immagine

una nuova colonna tipo inserire

Response.Write "


<table border="0" width="900" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0" width="900" cellspacing="0" cellpadding="0">
<tr>
<td width=""450"" valign=""top""><p align=""center"">[img][/img]</td>
<td width=""450"" valign=""top""><p align=""center"">"" & objrs("cognome") & ""></td>
</tr>
</table>
</td>
</tr>
</table>




"


Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/public/pregio.asp, line 261

Response.Write "
----------------^



fammi sapere

[Alethesnake]

Per la prima domanda stampi molti record? La pagina è molto grande?
Controlla se c'è un response.buffer = true/false in testa alla pagina, in alternativa prova un Response.Flush() prima del ciclo.

Per la seconda non puoi andare a capo in asp, a meno che non usi la concatenazione:

Response.Write("Ciao, " & _
                      " come va?")

(A dire il vero non ho mai provato con il response.write, ma dovrebbe funzionare lo stesso)