Tabellen heter "plan"
och kolumnerna:
Tabellen
När jag loopar ut posterna så visas samma post *(gånger) antalet poster jag har skrivit.
tex.
"123","2002-09-02","07:05"," osv...
"123","2002-09-02","07:05"," osv...
"123","2002-09-02","07:05"," osv...
Det är ju fel, eller hur!
Jag vill självklart lista ut samtliga poster som är mina.
Vad kan vara fel?
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.mappath("dbas.mdb")
user = request.cookies("username")
fran = Request.form("fran")
till = Request.form("till")
SQL = "SELECT datum,frantid,tilltid,id,rubrik,detalj,user,privat FROM plan WHERE user='"& user &"' and datum BETWEEN #"& fran &"# and #"& till &"#" & _
" order by datum,tilltid asc"
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open sql, conn, 3, 3
startdatum = RecSet("datum")
slutdatum = startdatum
frantid = RecSet("frantid")
tilltid = RecSet("tilltid")
rubrik = RecSet("rubrik")
detalj = RecSet("detalj")
privat = RecSet("privat")
plats = "Ingen specificering"
response.AddHeader "content-disposition", "attachment; filename=Export_"& user &".csv"
'Markera kolumnerna
Response.write """Ämne"",""Startdatum"",""Starttid"",""Slutdatum"","&_
"""Privat"",""Sluttid"",""Plats"""& vbcrlf
'Loopa ut samtliga händelser
if RecSet.eof then
Response.write "Det finns inga poster att hämta mellan dom datumen!"
else
Do while not RecSet.EOF
Response.write """"& rubrik &""","""& startdatum &""","""& frantid &""","""& slutdatum &""","""& privat &""","""& frantid &""","""& plats &""""& vbcrlf
RecSet.movenext
loop
end if
RecSet.close
set RecSet = nothing
conn.close
set conn = nothing
%>