impaginazione con asp

**nataw** · 19-02-2008, 18:31

salve a tutti, ho un problema vorrei impaginare un breve commento stabilendo che ogni 75 lettere o spazi bisogna andare a capo. Ho creato il codice:

<%@language=vbscript%>

<%dim objconn, strconn
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/mdb-database/pino.mdb")
set objconn= server.createobject("adodb.connection")
objconn.open strconn
indenti=request("indentify")
dim strsql
strsql="select indiriz, posiz, descr, serv, cas, parch, ascens, acces, lavanderia, ar, sau, asciug, ba, bt, t, i, dc, imag, luo, post, telegr, phone, stel, man from tblex where id = " & indenti & ""
set rs= objconn.execute(strsql)
strquer="select sole, matrie, dope, ddo, trie, quae, lue from prezzo where codic = " & indenti & ""
set otr= server.createobject("adodb.recordset")
otr.open strquer,objconn,3,3
yuy=otr("sole")
yiy=otr("matrie")
gug=otr("dope")
frit=otr("ddo")
grur=otr("trie")
vgru=otr("quae")
hguf=otr("lue")

if yuy="kj" then
bbhgen1=0
bbhf=0
else
bbhgen=split(yuy,"s",-1,1)
bbhgen1=bbhgen(0)
bbhfeb=split(yuy,"f",-1,1)
bbhfe=split(bbhfeb(0),"s",-1,1)
bbhf=bbhfe(1)
end if
if yiy= "kj" then
mbbhgen1=0
mbbhf=0
else
mbbhgen=split(yiy,"s",-1,1)
mbbhgen1=mbbhgen(0)
mbbhfeb=split(yiy,"f",-1,1)
mbbhfe=split(mbbhfeb(0),"s",-1,1)
mbbhf=mbbhfe(1)
end if
if gug="kj" then
bhgen1=0
bhf=0
else
bhgen=split(gug,"s",-1,1)
bhgen1=bhgen(0)
bhfeb=split(gug,"f",-1,1)
bhfe=split(bhfeb(0),"s",-1,1)
bhf=bhfe(1)
end if
if frit="kj" then
vbbhgen1=0
vbbhf=0
else
vbbhgen=split(frit,"s",-1,1)
vbbhgen1=vbbhgen(0)
vbbhfeb=split(frit,"f",-1,1)
vbbhfe=split(vbbhfeb(0),"s",-1,1)
vbbhf=vbbhfe(1)
end if
if grur="kj" then
hbhgen1=0
hbhf=0
else
hbhgen=split(grur,"s",-1,1)
hbhgen1=hbhgen(0)
hbhfeb=split(grur,"f",-1,1)
hbhfe=split(hbhfeb(0),"s",-1,1)
hbhf=hbhfe(1)
end if
if vgru="kj" then
ubbhgen1=0
ubbhf=0
else
ubbhgen=split(vgru,"s",-1,1)
ubbhgen1=ubbhgen(0)
ubbhfeb=split(vgru,"f",-1,1)
ubbhfe=split(ubbhfeb(0),"s",-1,1)
ubbhf=ubbhfe(1)
end if
if hguf="kj" then
ybbhgen1=0
ybbhf=0
else
ybbhgen=split(hguf,"s",-1,1)
ybbhgen1=ybbhgen(0)
ybbhfeb=split(hguf,"f",-1,1)
ybbhfe=split(ybbhfeb(0),"s",-1,1)
ybbhf=ybbhfe(1)
end if
indi=rs("indiriz")
misur=len(indi)
divis=misur/75
if rs.eof then
response.redirect "avvertenza3.htm"
else%>
<html>
<title>Untitled Document</title>
<body bgcolor="#FFFFFF">
<table width="102%" height="68%" border="0" cellspacing="0" bordercolor="#FF9900">
<tr>
<td width="49%" height="121" bordercolor="#009900"><font face=" arial, helvetica,sans-serif" color="#999999" size="3">
</font>[img]file1/<%response.write rs([/img]" width="366" height="114"></td>
<td width="51%" align="center" valign="middle" bordercolor="#FF9900"> <font face=" arial, helvetica,sans-serif" size="4">
<%response.write rs("man")%>
</font></td>
</tr>
<tr>
<td height="241" bordercolor="#FF9900" bgcolor="#FFFFFF">
<div align="justify"><font face=" arial, helvetica,sans-serif" color="#999999" size="3">
<%if divis <= 1 then response.write (indi) else for i =0 to divis ch= 76 + i a =mid(indi,ch,75) response.write(a&"
") next end if %> (questo è il rigo che mi provoca l'errore)
</font></div>
</td>
<td bordercolor="#009900" height="241">
<table width="100%" border="0" bordercolor="#009900">

<tr>
<td width="13%" bordercolor="#FF6600">
<div align="center"><font color="#FF6600" size="2">stelle</font></div>
</td>
<td width="21%" nowrap bordercolor="#FF9900"><font color="#666666">
<%response.write rs("stel")%>
</font></td>
<td width="30%" bordercolor="#FF6600">
<div align="center"><font color="#666666"><font size="2" color="#FF9900">back</font></font></div>
</td>
<td width="36%" nowrap bordercolor="#FF6600">
<div align="center"><font color="#666666" size="2"><a href="visualizza.asp?inden=<%response.write (indenti)%>"><font color="#FF9900">foto</font>
</a></font></div>
</td>
<%end if%>
</tr>
<tr>
<td bordercolor="#FF9900" width="13%">
<div align="center"><font color="#FFFFFF"><font color="#666666"></font></font></div>
</td>
<td bordercolor="#FF6600" width="21%">
<div align="center"><font color="#FFFFFF"><font color="#666666"></font></font></div>
</td>
<td bordercolor="#FF6600" width="30%">
<div align="center"><font color="#FF6600" size="4">prezzi</font></div>
</td>
<td width="36%">
<div align="center"><font color="#666666" size="2"><a href="mappa.asp?indentify=<%response.write (indenti)%>"><font color="#FF9900">mappa
ed ulteriori informazioni</font></a></font></div>
</td>
</tr>
<tr bordercolor="#FF6600">
<td colspan="4" height="130">
<table width="105%" border="0">
<tr>
<td width="25%"></td>
<td width="35%">
<div align="center"><font color="#666666">minimo</font></div>
</td>
<td width="40%">
<div align="center"><font color="#666666">massimo</font></div>
</td>
</tr>
<tr>
<td width="25%"><font color="#FF6600">singola</font></td>
<td width="35%">
<div align="center"><font color="#666666">
<%response.write(bbhgen1)%>
</font></div>
</td>
<td width="40%">
<div align="center"><font color="#666666">
<%response.write(bbhf)%>
</font></div>
</td>
</tr>
<tr>
<td width="25%"><font color="#FF6600">matrimoniale</font></td>
<td width="35%">
<div align="center"><font color="#666666">
<%response.write(mbbhgen1)%>
</font></div>
</td>
<td width="40%">
<div align="center"><font color="#666666">
<%response.write(mbbhf)%>
</font></div>
</td>
</tr>
<tr>
<td width="25%"><font color="#FF6600">doppia</font></td>
<td width="35%">
<div align="center"><font color="#666666">
<%response.write(bhgen1)%>
</font></div>
</td>
<td width="40%">
<div align="center"><font color="#666666">
<%response.write(bhf)%>
</font></div>
</td>
</tr>
<tr>
<td width="25%"><font color="#FF6600">doppia uso singolo</font></td>
<td width="35%">
<div align="center"><font color="#666666">
<%response.write(vbbhgen1)%>
</font></div>
</td>
<td width="40%">
<div align="center"><font color="#666666">
<%response.write(vbbhf)%>
</font></div>
</td>
</tr>
<tr>
<td width="25%"><font color="#FF6600">tripla</font></td>
<td width="35%">
<div align="center"><font color="#666666">
<%response.write(hbhgen1)%>
</font></div>
</td>
<td width="40%">
<div align="center"><font color="#666666">
<%response.write(hbhf)%>
</font></div>
</td>
</tr>
<tr>
<td width="25%"><font color="#FF6600">quadrupla</font></td>
<td width="35%">
<div align="center"><font color="#666666">
<%response.write(ubbhgen1)%>
</font></div>
</td>
<td width="40%">
<div align="center"><font color="#666666">
<%response.write(ubbhf)%>
</font></div>
</td>
</tr>
<tr>
<td width="25%"><font color="#FF6600">suit</font></td>
<td width="35%">
<div align="center"><font color="#666666">
<%response.write(ybbhgen1)%>
</font></div>
</td>
<td width="40%">
<div align="center"><font color="#666666">
<%response.write(ybbhf)%>
</font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="2" colspan="4" bordercolor="#009900">
<div align="center"> </div>
</td>
</tr>
<tr>
<td height="3" width="13%">[img]spacer7.gif[/img]</td>
<td width="21%">[img]spacer7.gif[/img]</td>
<td width="30%">[img]spacer7.gif[/img]</td>
<td width="36%">[img]spacer7.gif[/img]</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="83" bordercolor="#009900">[img]file2/<%response.write rs([/img]"width="367" height="80"></td>
<td bordercolor="#FF9900">
<div align="justify"><font face=" arial, helvetica,sans-serif" color="#999999" size="3">
<font color="#666666">
<%response.write rs("descr")%>
</font></font></div>
<font color="#666666"></font></td>
</tr>
<tr>
<td height="4" valign="middle" bordercolor="#009900"> </td>
<td valign="middle" bordercolor="#009900" height="4">
</table>

<%rs.close
set rs= nothing
objconn.close
set objconn=nothing
%>
</body>
</html>

ma l'errore è : Impossibile visualizzare la pagina
Si è verificato un problema a livello della pagina che si desidera visualizzare che ne impedisce la visualizzazione.

--------------------------------------------------------------------------------

Please try the following:

Fare clic sul pulsante Aggiorna o riprovare più tardi.

Aprire la localhost home page e cercare i collegamenti alle informazioni desiderate.
HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/mdb-database/vision.asp, line 114, column 64
if divis <= 1 then response.write (indi) else for i =0 to divis ch= 76 + i a =mid(indi,ch,75) response.write(a&"
") next end if
---------------------------------------------------------------^

Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Pagina:
GET /mdb-database/vision.asp

Ora:
martedì 19 febbraio 2008, 17.23.10

Informazioni aggiuntive:
Supporto Microsoft

qualcuno mi sà suggerire qualcosa grazie

**Mems** · 19-02-2008, 18:34

Sto codice l'hai copiato da qualche parte?
L'errore indica che alcune istruzioni sono scritte tutte in una riga, mentre invece dovrebbero andare a capo.

codice:

<%
if divis <= 1 then 
  response.write (indi) 
else 
  for i =0 to divis 
    ch = 76 + i 
    a =mid(indi,ch,75) 
    response.write (a & "
") 
  next 
end if 
%>

**nataw** · 19-02-2008, 19:26

ti ringrazio provo a inserrirlo come è stato postato da te. L'ho creato io, fa schifo?

**Mems** · 20-02-2008, 10:21

Originariamente inviato da nataw
ti ringrazio provo a inserrirlo come è stato postato da te. L'ho creato io, fa schifo?

Non fa schifo. E' solo sbagliato sintatticamente.

Discussione: impaginazione con asp

Strumenti discussione

Ricerca discussione

Visualizza

impaginazione con asp

Permessi di invio