Udtræk fra database til textfil hjælp
Jeg fik hjælp den anden dag til hvordan jeg skulle oprette en kommasepareret textfil fra et udtræk af min database.Det er også fint jeg kan sagtens skrive til filen som jeg gerne vil og jeg kan også hente data fra databasen, men jeg kan bare ikke få det til at arbejde sammen.
Det kan være jeg har set mig blind på koden jeg får en access denied fejl når jeg køre.
<%
Dim strConnect
%>
<!-- #include file="datastore.asp" -->
<!-- #include virtual="/ADOVBS.INC" -->
<html>
<head>
<title></title>
<LINK REL="Stylesheet" HREF="styles/admstyles.css" type="text/css">
<BASE TARGET="main">
</head>
<body bgcolor="#FFFFFF" topmargin="25" leftmargin="15" bgproperties="fixed">
<p align="left">
<SCRIPT language="vbscript">
<!--
parent.frames("contents").location.href="menu.htm"
//parent.frames("top").location.href="top.asp"
-->
</SCRIPT>
<%
Dim objCommand, objRS, objFS, objTextfile, fileSpec
Set objCommand = Server.CreateObject("ADODB.Command")
objCommand.ActiveConnection = strConnect
objCommand.CommandText = "SELECT * FROM Item"
objCommand.CommandType = adCmdText
Set objRS = objCommand.Execute
Set objCommand = Nothing
Set objFS = CreateObject("Scripting.FileSystemObject")
fileSpec = Server.Mappath("/textfile/price_update.txt")
Set objTextfile = objFS.OpenTextFile(fileSpec,2)
While Not objRS.EOF
objTextfile.WriteLine(objRS("ID")
objRS.MoveNext
Wend
objRS.Close
objTextfile.Close
%>
</body>
</html>
