export til excel

Hej. Nu så jeg lige, at ingen havde svaret og søgte lidt på google. Første link var dette: http://www.theukwebdesigncompany.com/articles/article.php?article=730

Nu har jeg ikke selv prøvet det - aldrig faktisk - men det lyder som den rigtige løsning. Det kunne du jo evt. prøve. =)

hmm ja men hvordan får jeg den til at virke med mysql db ?

<%@ Language=VBScript %>
<%
dim Cn,Rs

SQLserveradr="localhost" 
SQLdatabase="x_dk"
SQLlogin="x_dk"
SQLpassword=""
Set Cn = Server.CreateObject("ADODB.Connection")
set Rs=server.createobject("ADODB.recordset")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr





Rs.open "select * from pris",Cn,1,3
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=Enquiry_List.xls"
if Rs.eof <> true then
response.write "<table border=1>"
while not Rs.eof
response.write "<tr><td>" & Rs.fields("pris") & "</td><td>" &

Rs.fields("pris") & "</td><td>" & Rs.fields("pris") & "</td><td>" & Rs.fields("pris") &

"</td></tr>"
Rs.movenext
wend
response.write "</table>"
end if
set rs=nothing
Cn.close
%>

det virker kom med et svar

Lyder godt. =)