Forum Moderators: open
Response.ContentType = "unknown/exe"
if request.form("act")="items" then
Response.AddHeader "Content-Disposition","attachment;filename=items.csv"
end if
Set rs = Server.CreateObject("ADODB.RecordSet")
Set cnn=Server.CreateObject("ADODB.Connection")
cnn.open sDSN
request.form("act")="items" then
sSQL2 = "SELECT ID,Name,Section,Price, FROM miscproduct"
rs.Open sSQL,cnn,0,1
response.write """ID"",""Name"",""Section"",""price"" &vbCrLf
do while NOT rs.EOF
response.write """"&replace(rs("ID"),"""","""""")&""","
response.write """"&replace(rs("Name"),"""","""""")&""","
response.write """"&replace(rs("Section"),"""","""""")&""","
response.write rs("Price")&","&vbCrLf
rs.MoveNext
loop
rs.Close
current output:
section
58
58
60
60
59
should be (this is how it views in access):
section
shoes
shoes
handbags
handbags
gloves
Thank you in advance for any help you provide
Marlene