> Hier mal der Code zum besseren Verst�ndnis.
>
> <%
> if Request("submit")<>vbNullString then
> dim strurl, links, diff, rechts, udexchr, udexText
> strurl=Replace(""&Request.ServerVariables("URL")&"",".asp","1001.txt")
hat das einen bestimmten Grund, dass Du unn�tigerweise vorne und hinten
einen leerstring anh�ngst?
>
> For I = 1 to Request.Form.Count
> links=len(Request.Form.Key(I))
> rechts=15
> diff=rechts-links
> For e = 1 to diff
> udexchr=udexchr & " "
> Next
>
> udexText = udexText & Request.Form.Key(I) & ": "&udexchr &
> Request.Form.Item(I) & vbCRLF
> udexchr=""
> Next
>
oha... das geht auch k�rzer... und Dein Problem mit edn mehrzeiligen
Textfeldern sollte damit auch gel�st sein... :-)
laenge= 15
for each key in Request.Form
udexText = udexText & key & ": " & space(laenge-len(key)) & _
replace(Request.Form(key), vbCrLf, vbCrLf&space(laenge+2)) & vbCRLF
next
> postPage=Server.Mappath(""&strurl&"")
wieso den schon wieder vorne und hinten leerstrings???
Gruss,
Claudius
>
> dim objFSO, objFile
> set objFSO = Server.CreateObject("Scripting.FileSystemObject")
> set objFile = objFSO.OpenTextFile(postpage, 2, True, 0)
> objFile.Write udexText
> objFile.Close
> Response.redirect("testform_text1001.txt")
> End if
>
> %>
--
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
