Hej Danielsen
Koden:
<html>
<title>Min test</title>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
</head>
<body>
<%
IF session("Login") = "JA" then
dim MyConn, SQL_query, RS, MyIden, AktSag
set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=minsrv;UID=minbrug;PWD=mitpass;DATABASE=mindb"
AktSag=Request.Form("select1")
if AktMonth <> "" And AktMonth <> "Alle" then
SQL_query = "SELECT * FROM mintbl WHERE Bruger = '" & Session("Username") & "' AND mymonth = '" & AktMonth & "' Order by Dato desc"
else
SQL_query = "SELECT * FROM mintbl WHERE Bruger = '" & Session("Username") & "' Order by Dato desc"
END IF
response.write "SQL:" & sql_query
Set RS = MyConn.Execute(SQL_query)
IF rs.bof AND rs.eof THEN
Response.Write "Der er endnu ikke registreret oplysninger på dette brugernavn"
ELSE
response.write("<table border='1' cellspacing='1'>")
response.write "<tr><TD><Strong>Dato</strong></TD><TD><Strong>Sagsnr</strong></TD><TD><Strong>Status</strong></TD></TR>"
While Not RS.EOF
response.write("<tr><td>")
response.write rs("Dato")
response.write "</td><td>"
response.write rs("mitfelt")
response.write "</td><td>"
response.write rs("Status")
response.write "</td></TR>"
RS.MoveNext
Wend
RS.Close
response.write ("</table>")
END IF
'**********
response.write "<form name='MonthSelection' id='Sag' action='getdata.asp' method='post'>"
response.write "<SELECT id='select1' style='WIDTH: 90px' name='SelBox'onChange='this.form.submit();' >"
response.write "<Option value='Alle'>Alle</Option>"
response.write "<Option value='JAN'>JAN</OPTION>"
response.write "<Option value='Feb'>Feb</OPTION>"
response.write "</form></SELECT>"
'***********
MyConn.Close
END IF
%>
</body></html>
