If sætning i en sql kan man det?
Jeg laver et exceludtræk hvor jeg vælger felter ud med denne kommando:call CreateExcel("Titelnavn","SELECT Medlemsnr,Fornavn,Efternavn,Adresse,Postnummer,By,Land,Medlemsstatus,Tlf,Email,Diverse,Apua,Kredsadmin,Admin,Tillad_Kreds,Tillad_Alle from medlem ORDER BY Medlemsnr")
Men nu har jeg det problem at et af felter kun skal med hvis det er ens med et andet felt. Dvs.
if gkoderod=kodeord skal gkodeord med eller skal ingen af felterne med i udtrækket! Kan det lade sig gøre?
Hele koden ses her :
<%
Dim objConn 'Holds the Database Connection Object
Set objConn = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("medlemsrs.mdb")
Function CreateExcel(Title,tblname)
Dim Rs,Fso,Act,fname
Fname = "Udtrak.xls"
Set rs = Server.CreateObject("ADODB.Recordset")
Set FSO = Createobject("scripting.filesystemobject")
Set act = Fso.CreateTextfile(server.mappath(Fname),true)
rs.Open Tblname, objconn, 3, 3
If Not Rs.EOF and not Rs.BOF Then
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine "<!--[if gte mso 9]><xml>"
act.WriteLine "<x:ExcelWorkbook>"
act.WriteLine "<x:ExcelWorksheets>"
act.WriteLine "<x:ExcelWorksheet>"
act.WriteLine "<x:Name>"& title &"</x:Name>"
act.WriteLine "<x:WorksheetOptions>"
act.WriteLine "<x:Print>"
act.WriteLine "<x:ValidPrinterInfo/>"
act.WriteLine "</x:Print>"
act.WriteLine "</x:WorksheetOptions>"
act.WriteLine "</x:ExcelWorksheet>"
act.WriteLine "</x:ExcelWorksheets>"
act.WriteLine "</x:ExcelWorkbook>"
act.WriteLine "</xml>"
act.WriteLine "<![endif]--> "
act.WriteLine "</head>"
act.WriteLine "<body>"
Act.Writeline "<table border=1>"
Act.Writeline "<Tr>"
For X = 0 to Rs.Fields.count - 1
Act.Writeline "<Td><b>" & Rs.Fields.Item(x).Name & "</b></td>"
Next
Act.Writeline "</Tr>"
While not Rs.Eof
Act.Writeline "<Tr>"
For X = 0 To Rs.Fields.Count - 1
Act.Writeline "<Td>" & Rs.Fields.Item(X).Value & "</td>"
Next
Act.Writeline "</Tr>"
Rs.Movenext
Wend
Act.Writeline "</Table>"
act.writeline "<tr></tr>"
act.writeline "<tr>Genereret af Totalpc</tr>"
act.WriteLine "</body>"
act.WriteLine "</html>"
End if
Act.close
Rs.close
%>
<html>
<body style="background-color: #ECF9FF">
Dit excel udtræk kan hentes hér: <a href="<%=fname%>" target="_blank"> Udtræk </a>
</body>
</html>
<%
End function
call CreateExcel("Titelnavn","SELECT Medlemsnr,Fornavn,Efternavn,Adresse,Postnummer,By,Land,Medlemsstatus,Tlf,Email,Diverse,Apua,Kredsadmin,Admin,Tillad_Kreds,Tillad_Alle from medlem ORDER BY Medlemsnr")
'call CreateExcel("Titelnavn","SELECT feltnavn1,feltnavn2,feltnav3 from medlemmer ORDER BY feltnavn ")
'Reset server objects
Set rs = Nothing
Set objConn = Nothing
%>
