Suck, då har man kört fast igen... Detta borde fungera: Tack Andreas.Wildcard i Access.
Jag vill plocka ut poster från databasen beroende av datum och ibland också tid.
I kolumnen thisDate lagras datum och tid med Now().
Om jag lagrar både datum och tid i variabeln limit så är det inga problem, men jag får inte till det när jag vill hämta alla poster med ett visst datum oberoende av tid.
<code><%@ Language=VBScript%>
<%
Option Explicit
'# constants & variables
Const adOpenStatic = 3
Const adLockOptimistic = 3
Dim objConn, objRs, strSql
Dim intTemp, intUnik, arrRS, i
Function trying(limit)
'# open database
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("statsdb.mdb")
'# create recorset
Set objRs = Server.CreateObject("ADODB.Recordset")
strSql = "select hits.*, (select count(*) from (SELECT DISTINCT ip FROM hits)) as intTemp from hits where thisDate like #"& limit &"#"
objRs.Open strSql, objConn, adOpenStatic, adLockOptimistic '<-- rad 21
intUnik = objRs("intTemp")
arrRs = objRs.GetRows()
'# closse database & recordset
objRs.Close: Set objRs = nothing
objConn.Close: Set objConn = nothing
End Function
'# run function
trying(#2003-03-24#)
'# xhtml(strict) output
Response.Write "" &_
"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN""" &_
" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"">" &_
"<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang=""sv"" lang=""sv"">" &_
"<head><title>// WebStats //</title>" &_
"<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" />" &_
"<link rel=""STYLESHEET"" type=""text/css"" href=""../includes/stil.css"" />" &_
"</head><body>"
Response.Write intUnik & " unika besökare.<br>"
For i=0 To Ubound(arrRs,2)
Response.Write arrRs(0,i) & " " & arrRs(1,i) & " " & arrRs(2,i) & " " & arrRs(3,i) & " " & arrRs(4,i) & " " & arrRs(5,i) & " " & arrRs(6,i) & "<br>"
Next
Response.Write "</table></body></html>"
%></code>Sv: Wildcard i Access.
<code>
strSql = "SELECT hits.*, (SELECT count(*) FROM (SELECT DISTINCT ip FROM hits)) as intTemp FROM hits WHERE thisDate >= #" & CDate(limit) &"# AND < #" & DateAdd("d", 1, limit) & "#"
</code>Sv: Wildcard i Access.
Får det inte riktigt att fungera men jag har byggt om lite så jag klarar mig med enbart datum så länge, och det lyckas jag med. =)