Unterminated string constant

[forte78]

<%
Dim nIndex : nIndex = 0
Dim nCol : nCol = 0
Do While (Not rec.EOF and nIndex < RECORDSPERPAGE)

If nCol=6 Then
Response.Write "</tr>" & VbCrLf
nCol=0
End If

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



Response.Write "<td width=""100"" valign=""top""><p align=""center"">



Dim sFoto
sFoto = GetLastFoto(rec("codiceimmobile"))
If sFoto<>"" Then



[img][/img]"" border=""0"" width=""100"">


</td>" & VbCrLf


End if



nCol = nCol + 1
nIndex = nIndex + 1
rec.MoveNext
Loop
rec.Close
SET rec = Nothing
%>




Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/test/webappartamenti.asp, line 193

Response.Write "<td width=""100"" valign=""top""><p align=""center"">
---------------------------------------------------------------------^




Come correggere questo errore ?

[maxmalici]

Response.Write "<td width='100' valign='top'><p align='center'>"
Max