Ja/Nej i Access med Afkrydsning
Hejsa..Jeg har i min database nogle felter med ja/nej.
Når jeg så i den fil jeg har lavet der opdaterer databasen, så er der fejl i..
Jeg har lavet det med afkrydsningsboks, men det hele virker ikke...
I stedet for at opdaterer prøvede jeg at udskrive sql'en og den ser sådan ud:
UPDATE Users SET Username='Patrick',[Password]='123',Company='WebDimension',Fullname='Patrick Nielsen',[Group]='0',Styresystemer='0',MSWord='',MSExcel='',MSAccess='',MSPowerpoint='0',Emailnet='1',GrundIT='' WHERE Userid=8
Det er kun dem som jeg krydser af der får en value..
Min edituser.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<% session.LCID=1030 %>
<!--#include file="protect.inc"-->
<!-- #include file="conn.asp" -->
<html>
<head>
<title>Velcommen til COMEDU - Professionel IT kursusleverandør</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../style/roi.css" type="text/css">
<link rel="stylesheet" href="../style/style.css" type="text/css">
</head>
<body background="../images/baggrund.gif" leftmargin="0" topmargin="5" marginwidth="0" marginheight="5" body scroll="auto">
<div align="center">
<table width="726" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="360" height="100%" valign="top"><div align="left">
<table width="360" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="340" bgcolor="#FFFFFF"> <div align="center"><img src="../images/menu/billeder/trine.jpg" width="360" height="340"></div></td>
</tr>
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="3"></td>
</tr>
</table>
</div></td>
<td height="100%" valign="top"> <table width="366" height="100%" border="0" cellpadding="0" cellspacing="3">
<tr>
<td height="86" valign="top" bgcolor="#FFFFFF"><img src="../images/top_logo.jpg" width="360" height="86"></td>
</tr>
<tr>
<td height="16" bgcolor="#FFFFFF" align="center"><a href="overview.asp">Tilbage til oversigten</a></td>
</tr>
<tr>
<td height="100%" valign="top" bgcolor="#FFFFFF"><table width="360" border="0" cellspacing="3" cellpadding="0">
<tr>
<td width="350" valign="middle" class="rio-tekst">
<%
strCmd = Request.QueryString("cmd")
openConn()
strUserid = Request.querystring("id")
If strCmd = "update" Then
'strUserid = Request.Form("userid")
strUsername = replace(Request.Form("username")&"","'","''")
Set rs2 = connection.execute("SELECT UserId FROM Users WHERE Username = '" & strUsername & "' AND Userid <> " & strUserid)
If (rs2.bof or rs2.eof) Then
If strUserid = 1 Then
strUsername = replace(Request.Form("username")&"","'","''")
strPassword = replace(Request.Form("password")&"","'","''")
strFullname = replace(Request.Form("fullname")&"","'","''")
Else
strUsername = replace(Request.Form("username")&"","'","''")
strPassword = replace(Request.Form("password")&"","'","''")
strCompany = replace(Request.Form("company")&"","'","''")
strFullname = replace(Request.Form("fullname")&"","'","''")
strGroup = replace(Request.Form("group")&"","'","''")
strStyresystemer = Request.Form("Styresystemer")
strMSWord = Request.Form("MSWord")
strMSExcel = Request.Form("MSExcel")
strMSAccess = Request.Form("MSAccess")
strMSPowerpoint = Request.Form("MSPowerpoint")
strEmailnet = Request.Form("Emailnet")
strGrundIT = Request.Form("GrundIT")
End if
strSQL = "UPDATE Users SET Username='" & strUsername & "',[Password]='" & strPassword & "',Company='" & strCompany & "',Fullname='" & strFullname & "',[Group]='" & strGroup & "',Styresystemer='" & strStyresystemer & "',MSWord='" & strMSWord & "',MSExcel='" & strMSExcel & "',MSAccess='" & strMSAccess & "',MSPowerpoint='" & strMSPowerpoint & "',Emailnet='" & strEmailnet & "',GrundIT='" & strGrundIT & "' WHERE Userid=" & strUserid
'connection.Execute(strSQL)
Response.Write(strSQL)
%>
<h1>Brugeren er nu rettet!</h1><br>
<a href="overview.asp">Tilbage til oversigten</a>
<%
Else
%>
<h1>Fejlmeddelse</h1>
<font color=red>Brugernavnet eksisterer allerede!</font><br><br>
<a href="edituser.asp?id=<%=StrUserid%>">Tilbage</a>
<%
End if
%>
<%
Else
strId = Request.QueryString("id")
strSQL = "SELECT username, password, fullname, company, group, styresystemer, MSWord, msexcel, msaccess, mspowerpoint, emailnet, grundit FROM Users WHERE UserId=" & strId
Set rs = connection.Execute(strSQL)
If Not (rs.EOF Or rs.BOF) Then
%>
<b><font color="#660000" size="2">Redigering
af bruger</font></b><br>
<br>
<b><u>Kurser:</u></b><br><br>
<form method="post" action="edituser.asp?id=<%=StrUserid%>&cmd=update">
<% if rs("Styresystemer") = 0 Then %>
<input type="checkbox" name="Styresystemer" value="0"> <b>- Styresystemer</b><br>
<% Else %>
<input type="checkbox" name="Styresystemer" value="1" checked> <b>- Styresystemer</b><br>
<% End if %>
<% if rs("MSWord") = 0 Then %>
<input type="checkbox" name="MSWord" value="0"> <b>- Microsoft Word</b><br>
<% Else %>
<input type="checkbox" name="MSWord" value="1" checked> <b>- Microsoft Word</b><br>
<% End if %>
<% if rs("MSExcel") = 0 Then %>
<input type="checkbox" name="MSExcel" value="0"> <b>- Microsoft Excel</b><br>
<% Else %>
<input type="checkbox" name="MSExcel" value="1" checked> <b>- Microsoft Excel</b><br>
<% End if %>
<% if rs("MSAccess") = 0 Then %>
<input type="checkbox" name="MSAccess" value="0"> <b>- Microsoft Access</b><br>
<% Else %>
<input type="checkbox" name="MSAccess" value="1" checked> <b>- Microsoft Access</b><br>
<% End if %>
<% if rs("MSPowerpoint") = 0 Then %>
<input type="checkbox" name="MSPowerpoint" value="0"> <b>- Microsoft PowerPoint</b><br>
<% Else %>
<input type="checkbox" name="MSPowerpoint" value="1" checked> <b>- Microsoft PowerPoint</b><br>
<% End if %>
<% if rs("Emailnet") = 0 Then %>
<input type="checkbox" name="Emailnet" value="0"> <b>- Email og Internet</b><br>
<% Else %>
<input type="checkbox" name="Emailnet" value="1" checked> <b>- Email og Internet</b><br>
<% End if %>
<% if rs("GrundIT") = 0 Then %>
<input type="checkbox" name="GrundIT" value="0"> <b>- Grundlæggende IT</b>
<% Else %>
<input type="checkbox" name="GrundIT" value="1" checked> <b>- Grundlæggende IT</b>
<% End if %>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td height="16" colspan="2"><table width="723" height="16" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top" style="padding: 10px;">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="120"><b>Brugernavn:</b></td>
<td width="120"><b>Adgangskode:</b></td>
<td width="120"><b>Navn:</b></td>
<td width="120"><b>Firmanavn:</b></td>
<td width="120"><b>Hold</b></td>
<td width="120"></td>
</tr>
<tr>
<td width="120"><input type="text" name="username" value="<%=rs("username")%>" class="input" size="17"></td>
<td width="120"><input type="text" name="password" value="<%=rs("password")%>" class="input" size="17"></td>
<td width="120"><input type="text" name="fullname" value="<%=rs("fullname")%>" class="input" size="17"></td>
<% if strid = 1 THEN %>
</table>
<div align="center"><br><input type="submit" value="Rediger brugeren" class="input"><br><a href="overview.asp">Tilbage til oversigten</a></div>
<% Elseif strid > 1 Then %>
<td width="120"><input type="text" name="company" value="<%=rs("company")%>" class="input" size="17"></td>
<td width="120"><input type="text" name="group" value="<%=rs("group")%>" class="input" size="17"></td>
<td width="120"><input type="submit" value="Rediger brugeren" class="input"></td>
</tr>
</table>
<% end if %>
</form>
<% Else %>
Fejl, brugeren eksisterer ikke<br><br>
<a href="java script:this.history.go(-1);">Tilbage</a>
<div align="left"><font size="2"></font></div>
<%
End if
End If
%>
</td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td height="3" colspan="2"></td>
</tr>
<tr valign="top">
<td height="16" colspan="2"><!-- #include file="../inkludes/loginadminbund.inc" --></td>
</tr>
</table>
</div>
<%
%>
</body>
</html>
<%
closeConn()
%>
