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")
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
postPage=Server.Mappath(""&strurl&"")
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
%>
MfG
J. Schwalenberg
______________________
www.udex.de
www.ultradevextensions.de
[EMAIL PROTECTED]
______________________
Think big - UDEX Software !
Software & Extensions for Dreamweaver Ultradev & MX
| [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
