File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/manual.asp
<%
option explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<%
Dim Conn, Rs, strSql, strMsg, x, strTest, timStart, intMS, strTimTotal
strMsg = "Voer een SQL statement in"
strTest = "select P.naam, count(S.ip_host) as DistinctIP from(select distinct P.naam, S.ip_host from dd_statistieken S, dd_paginas P WHERE S.pagn_id=P.id AND S.datum > " & DateToSql(date-1) & ") GROUP BY P.naam ORDER BY COUNT(S.ip_host) DESC"
If Request.Form("txtOms") <> "" Then
strSql = FormToStr(Request.Form("txtOms"))
Else
strSql = strTest
End If
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../css/onderhoud.css">
<script language="JavaScript">
function doCheck(){
if(!document.form1.txtOms.value){
alert('Geen omschrijving ingevoerd!');
document.form1.txtOms.focus();
return false;
}
else {
return true;
}
}
</script>
</head>
<body>
<h2>Manual</h2>
<form id="form1" name="form1" action="manual.asp" method="post" onsubmit="document.form1.cmdSave.disabled=true;">
<%=Response.Write("<p><b>" & strMsg & "</b></p>")%>
<textarea id="txtOms" name="txtOms" rows="10" cols="100">
<%=strSql%>
</textarea>
<p>
<input type="submit" style="width:100;height=20" name="cmdSave" value="Run" class="clsBtn" onclick="return doCheck();">
</p>
<hr>
<%
timStart = milliDif()
If Not Session("blnInTransaction") Then
Set Session("objDB") = Server.CreateObject("ADODB.Connection")
Session("objDB").Open Application("stoeligans_ConnectionString")
End If
Set Rs = Session("objDB").Execute(strSQL)
intMS = milliDif() - timStart
strTimTotal = elapsedshort(intMS)
If Not Rs.EOF Then
Response.Write("RECORDS: <b>" & Rs.RecordCount & "</b><br/>")
Response.Write("EXECUTION: <b>" & strTimTotal & "</b><br/><br/>")
End If
Response.Write("<table class=""clsDefault"" cellSpacing=""1"">")
If Not Rs.EOF Then
Response.Write("<tr>")
for each x in Rs.Fields
Response.Write("<th>" & x.name & "</th>")
next
Response.Write("</tr>")
End If
While Not Rs.EOF
Response.Write("<tr>")
for each x in Rs.Fields
Response.Write("<td>" & x.value & "</td>")
next
Response.Write("</tr>")
Rs.MoveNext
Wend
Rs.Close
Response.Write("</table>")
%>
</form>
</body>
</html>