Her kommer hele koden - jeg har desværre ikke lige et link der p.t. er tilgængelig.
SQL-sætningen virker fint, bortset fra mit problem. Den viser det den skal vise, uafhængig af datoerne. Så jeg vil gerne ændre i sql-sætningen, så den kun viser indholdet indenfor det valgte datoområde, altså så den søger inkl. dato også.
Tabellen med datoerne hedder \"LOG_Data\", og datofeltet i den hedder \"LOG_DataEventTime\".
Derudover var der jo \"selected\"-problemet. Når man vælger en dato i dropdown, skal den jo blive stående på den så man kan se hvad man har søgt på (\"option selected\")
<H5>Log</h5>
<%
STARTconn
Select Case request(\"action\")
Case \"Find\"
SearchFrm request(\"LOG_ModulID\"),request(\"LOG_EventID\"),request(\"dtStart\"),request(\"dtEnd\")
ShowResult BuildSQL (request(\"LOG_ModulID\"),request(\"LOG_EventID\"),request(\"dtStart\"),request(\"dtEnd\"))
Case else
SearchFrm \"\",\"\",\"\",\"\"
End Select
ENDconn
%>
</BODY>
</HTML>
<%
-------------------------
Sub SearchFrm (iLOG_ModulID,iLOG_EventID,dtStart,dtEnd)
%>
<TABLE cellPadding=\"0\" cellSpacing=\"2\">
<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\">
<TR>
<TD rowspan=\"2\"><%
set objRs = objConn.Execute(\"SELECT * FROM LOG_Modul ORDER BY LOG_ModulName\")
If not objRs.EOF Then
%>
<select name=\"LOG_ModulID\">
<option value=\"%\">*Modul</option><%
do while not objRs.eof
%>
<option value=\"<%=objRs(\"LOG_ModulID\")%>\" <%
if CStr(iLOG_ModulID) = CStr(objRs(\"LOG_ModulID\")) then Response.Write \"selected\"
%>><%=objRs(\"LOG_ModulName\")%></option><%
objRs.movenext
loop
%></select><%
end if
%>
</TD>
<TD rowspan=\"2\">
<%
set objRs = objConn.Execute(\"SELECT * FROM LOG_Event ORDER BY LOG_EventName\")
If not objRs.EOF Then
%><select name=\"LOG_EventID\">
<option value=\"%\">*Event</option>
<%
do while not objRs.eof
%><option value=\"<%=objRs(\"LOG_EventID\")%>\" <%
if CStr(iLOG_EventID) = CStr(objRs(\"LOG_EventID\")) then Response.Write \"selected\"
%>><%=objRs(\"LOG_EventName\")%></option><%
objRs.movenext
loop
%></select><%
end if
%>
</TD>
<TD rowspan=\"2\">
<select name=\"dtStart\">
<%
dtLogStart = objConn.Execute(\"SELECT MIN(LOG_DataEventTime) as dtStart FROM LOG_Data\")(\"dtStart\")
dtLogEnd = Now()
generateDateList Month(dtLogStart), Year(dtLogStart), Month(dtLogEnd), Year(dtLogEnd),\"\",\"\"
%>
</select>
</TD>
<TD rowspan=\"2\">
<select name=\"dtEnd\">
<%
generateDateList Month(dtLogStart), Year(dtLogStart), Month(dtLogEnd), Year(dtLogEnd),\"\",\"\"
%>
</select>
</TD>
<TD rowspan=\"2\"><input type=\"submit\" name=\"action\" value=\"Find\"></TD>
</TR>
</FORM>
</TABLE>
<br><br>
<%
End Sub
\'-------------------------------------------------
sub generateDateList( startMonth, StartYear, stopMonth, stopYear, SelectedMonth, SelectedYear )
for iyear = startYear to stopYear
for imonth = startMonth to stopMonth
if( imonth < 10 ) then
val = \"0\" & imonth
else
val = imonth
end if
response.write \"<option value=\"\"\" & val & \"/\" & iyear & \"\"\" \"
If SelectedMonth = imonth and Selectedyear = iyear then Response.Write \"Selected\"
Response.Write \" >\" & val & \"/\" & iyear & \"</option>\"
next
next
end sub
\'-------------------------------------------------
Sub ShowResult(szSQL)
set objRs = objConn.execute(szSQL)
If objRs.EOF = true then
Response.Write (\"Du fandt ingen poster ved søgning - prøv igen.\")
else
Response.Write \"<table width=\"\"50%\"\" border=\"\"1\"\">\"
Response.Write \"<tr><td><b>User</b></td><td><b>Event</b></td><td><b>Logtidspunkt</b></td>\"
Do while not objRs.EOF
Response.Write \"<tr><td>\" & objRs(\"User_Username\") & \"</td>\"
Response.Write \"<td>\" & objRs(\"LOG_DataDesc\") & \"</td>\"
Response.Write \"<td>\" & objRs(\"LOG_DataEventTime\") & \"</td></tr>\"
\'Response.Write request(\"dtStart\") & \" \" & request(\"dtEnd\") & \"<br>\"
objRS.MoveNext
Loop
end if
Response.Write \"</table>\"
end sub
\'------------------------------------------------
Function BuildSQL (LOG_ModulID,LOG_EventID,dtStart,dtEnd)
\'szSQL=\"SELECT * from LOG_Data,SSS_User\"
szSQL=\"SELECT LOG_Data.LOG_DataEventTime, LOG_Data.LOG_DataID, LOG_Data.LOG_ModulID, LOG_Data.LOG_EventID, LOG_Data.LOG_DataDesc, SSS_User.User_ID, SSS_User.User_Username, LOG_Data.User_ID, LOG_Event.LOG_EventName, LOG_Event.LOG_EventID FROM LOG_Data INNER JOIN SSS_User ON LOG_Data.User_ID = SSS_User.User_ID INNER JOIN LOG_Event ON LOG_Data.LOG_EventID = LOG_Event.LOG_EventID WHERE (LOG_Data.LOG_ModulID LIKE \'\" & LOG_ModulID & \"\') AND (LOG_Event.LOG_EventID LIKE \'\" & LOG_EventID & \"\')\"
BuildSQL = szSQL
End Function
%>
