om jag har ett fält "visa" i en access databas med ett värdet 0 så vill jag inte att OrderID raden skrivs ut/visas, ändrar jag till värde 1 så skall den visas/listas på sidan, hur skall jag lättas fixa det om jag använder mig av detta: Hmm, ser inte att du skriver ut någonstans, men..Visa all info men inte om värdes 0 finns
<code><%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("modell/DB/orders.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM TFT WHERE Model ORDER BY OrderID desc"
if request.querystring("sort")="sok" then
Addera = "SELECT * FROM TFT WHERE Model LIKE '%%" & Request.Form("sok") & "%%' "
else
IF request.querystring("sort")&""<>"" then
Addera = "SELECT * FROM TFT WHERE Model LIKE '"&request.querystring("sort")&"%'"
end if
end if
rs.Open Addera, Connect, 3, 3
if request.QueryString("action")="tabort" then
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM TFT where OrderID ="&request.QueryString("OrderID")
rs.Open Addera, Connect, 3, 3
rs.delete
rs.update
response.redirect "default.asp"
end if
IF Request.QueryString("action")="tabortx" THEN
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("pdf"))
fileObject.Delete
Set fileObject = Nothing
Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("img"))
fileObject.Delete
Set fileObject = Nothing
Set fso = Nothing
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source="& Server.MapPath("modell/DB/orders.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open
Addera = "SELECT * From TFT WHERE OrderID ="& request.QueryString("OrderID")
Connect, 1, 3
RecSet.Delete
RecSet.Update
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
END IF
%></code>
/TommySv: Visa all info men inte om värdes 0 finns
<code>
IF dittRS("Visa") = true THEN ' vi ska visa så skriv ut
Response.write "OrderID =" & RS("OrderID")
END IF
</code>
Om du däremot inte vill hämta de som inte ska visas så hämtar du de som är true i selectsatsen
<code>
strSQL ="SELECT * FROM tabell WHERE visa = true"
</code>
//Anna-Karin