Udskrivning i en streng!

ups her er koden:

<body>
&amp;navn=
<%
While ((Repeat1__numRows <> 0) AND (NOT firmanavn.EOF))
%>
<%=(firmanavn.Fields.Item("Ffirmanavn").Value)%>*
<%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  firmanavn.MoveNext()
Wend
%>
&amp;gade=
<%
While ((Repeat2__numRows <> 0) AND (NOT gade.EOF))
%>
<%=(gade.Fields.Item("Fadresse").Value)%>*
<%
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  gade.MoveNext()
Wend
%>
&amp;postnr=
<%
While ((Repeat3__numRows <> 0) AND (NOT postnummer.EOF))
%>
<%=(postnummer.Fields.Item("Fpostnr").Value)%>*
<%
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  postnummer.MoveNext()
Wend
%>
&amp;by=
<%
While ((Repeat4__numRows <> 0) AND (NOT by.EOF))
%>
<%=(by.Fields.Item("Fby").Value)%>*
<%
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  by.MoveNext()
Wend
%>
&amp;tlf=
<%
While ((Repeat5__numRows <> 0) AND (NOT telefon.EOF))
%>
<%=(telefon.Fields.Item("Ftelefon").Value)%>*
<%
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  telefon.MoveNext()
Wend
%>
&amp;web=
<%
While ((Repeat6__numRows <> 0) AND (NOT web.EOF))
%>
<%=(web.Fields.Item("Fweb").Value)%>*
<%
  Repeat6__index=Repeat6__index+1
  Repeat6__numRows=Repeat6__numRows-1
  web.MoveNext()
Wend
%>
&amp;x=
<%
While ((Repeat7__numRows <> 0) AND (NOT x.EOF))
%>
<%=(x.Fields.Item("FX").Value)%>*
<%
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  x.MoveNext()
Wend
%>
&amp;y=
<%
While ((Repeat8__numRows <> 0) AND (NOT y.EOF))
%>
<%=(y.Fields.Item("FY").Value)%> *
<%
  Repeat8__index=Repeat8__index+1
  Repeat8__numRows=Repeat8__numRows-1
  y.MoveNext()
Wend
%>
&amp;fhl=1
</body>

Prøv sådan her:


<body>
<%
str = "&amp;navn="
While ((Repeat1__numRows <> 0) AND (NOT firmanavn.EOF))
  str = str & firmanavn.Fields.Item("Ffirmanavn").Value & "*"
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  firmanavn.MoveNext()
Wend
str = str & "&amp;gade="

While ((Repeat2__numRows <> 0) AND (NOT gade.EOF))
  str = str & gade.Fields.Item("Fadresse").Value & "*"
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  gade.MoveNext()
Wend
str = str & "&amp;postnr="

While ((Repeat3__numRows <> 0) AND (NOT postnummer.EOF))
  str = str & postnummer.Fields.Item("Fpostnr").Value & "*"
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  postnummer.MoveNext()
Wend
str = str & "&amp;by="

While ((Repeat4__numRows <> 0) AND (NOT by.EOF))
  str = str & by.Fields.Item("Fby").Value & "*"
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  by.MoveNext()
Wend
str = str & "&amp;tlf="

While ((Repeat5__numRows <> 0) AND (NOT telefon.EOF))
  str = str & telefon.Fields.Item("Ftelefon").Value & "*"
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  telefon.MoveNext()
Wend
str = str & "&amp;web="

While ((Repeat6__numRows <> 0) AND (NOT web.EOF))
  str = str & web.Fields.Item("Fweb").Value & "*"
  Repeat6__index=Repeat6__index+1
  Repeat6__numRows=Repeat6__numRows-1
  web.MoveNext()
Wend
str = str & "&amp;x="

While ((Repeat7__numRows <> 0) AND (NOT x.EOF))
  str = str & x.Fields.Item("FX").Value & "*"
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  x.MoveNext()
Wend
str = str & "&amp;y="

While ((Repeat8__numRows <> 0) AND (NOT y.EOF))
  str = str & y.Fields.Item("FY").Value) & "*"
  Repeat8__index=Repeat8__index+1
  Repeat8__numRows=Repeat8__numRows-1
  y.MoveNext()
Wend
str = str & "&amp;fhl=1"
%>
</body>

så kan du udskrive str eller hvad der skal ske med den:

str = str & "&amp;fhl=1"
respone.write str
%>
</body>

tusinde tak