kommasepareret liste der dør
Jeg har den her side der danner en kommasepareret liste. Det virker som det skal når antal linier i listen holder sig under ca 250.Hvis linier der skal skrives i filen kommer for højt op sker der bare ingenting.
Hvad gør jeg galt.
<%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=dsn;UID=user;PWD=pass"
Set oRs = oConn.Execute(Session("SQLPrint"))
Response.AddHeader "Content-Disposition","attachment;filename=tabel.txt"
Response.Write "MainContact"&vbTAB&"Name"&vbTAB&"Address"&vbTAB&"Zip"&vbTAB&"City" & vbCRLF
Do While Not oRs.EOF
Name = oRs("Name")
Address = oRs("Address")
Zip = oRs("Zip")
City = oRs("City")
MainContact = oRs("MainContact")
Response.Write MainContact&vbTAB&Name&vbTAB&Address&vbTAB&Zip&vbTAB&City&vbCRLF
oRs.MoveNext
Loop
Response.Flush
Response.End
oRs.Close
Set oRs = Nothing
oConn.Close
Set oConn = Nothing
%>
