<!--#include file="connstr.asp"-->
<% Response.Buffer = True
Server.ScriptTimeout = 3000
' Response.ContentType="text/csv"
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "attachment; filename=JSOutdial.csv"
' <SQL syntax and connector strings go here>
LinesForOutput = LinesForOutput & """Customer_Telephone""" & ","
LinesForOutput = LinesForOutput & """Customer_Forename""" & ","
LinesForOutput = LinesForOutput & """Customer_Surname""" & ","
LinesForOutput = LinesForOutput & """Query_Name""" & ","
LinesForOutput = LinesForOutput & """URL""" & vbCrLf
While Not csvQuery.EOF
LinesForOutput = LinesForOutput & """" & csvQuery("Customer_Telephone") & """" & ","
LinesForOutput = LinesForOutput & """" & csvQuery("Customer_Forename") & """" & ","
LinesForOutput = LinesForOutput & """" & csvQuery("Customer_Surname") & """" & ","
LinesForOutput = LinesForOutput & """" & rsQuery("QueryName") & """" & ","
LinesForOutput = LinesForOutput & """http://outcall.********.co.uk/jsoutcall/customerdetails.asp?CURN=" & csvQuery("Customer_URN") & """" & vbCrLf
csvQuery.MoveNext
Wend
Response.Write(LinesForOutput)
Response.End
%>
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.
Thanks !!
<!--#include file="connstr.asp"-->
<% Response.Buffer = True
Server.ScriptTimeout = 3000
' Response.ContentType="text
'
SET fso = Server.CreateObject("Scrip
SET CSVFile = fso.CreateTextFile (Server.MapPath("test.csv"
LinesForOutput = LinesForOutput & """Customer_Telephone""" & ","
LinesForOutput = LinesForOutput & """Customer_Forename""" & ","
LinesForOutput = LinesForOutput & """Customer_Surname""" & ","
LinesForOutput = LinesForOutput & """Query_Name""" & ","
LinesForOutput = LinesForOutput & """URL""" & vbCrLf
CSVFile.WriteLine LinesForOutPut
LinesForOutput = ""
While Not csvQuery.EOF
LinesForOutput = LinesForOutput & """" & csvQuery("Customer_Telepho
LinesForOutput = LinesForOutput & """" & csvQuery("Customer_Forenam
LinesForOutput = LinesForOutput & """" & csvQuery("Customer_Surname
LinesForOutput = LinesForOutput & """" & rsQuery("QueryName") & """" & ","
LinesForOutput = LinesForOutput & """http://outcall.********.co.uk/jsoutcall/customerdetails.asp?CURN=" & csvQuery("Customer_URN") & """" & vbCrLf
CSVFile.WriteLine LinesForOutPut
csvQuery.MoveNext
Wend
Response.AddHeader "content-disposition", "attachment; filename=JSOutdial.csv"
Response.AddHeader "Content-Length", CSVFile.Size
Response.ContentType = "application/octet-stream"
CSVFile.Close
SET objStream = Server.CreateObject("ADODB
objStream.Open
objStream.Type = 1
objStream.LoadFromFile(Ser
Response.BinaryWrite(objSt
objStream.Close
SET objStream = Nothing
SET CSVFile = Nothing
SET fso = nothing