gemme i access database
Hejsa alle :-)Først hvordan jeg vil have nedenviste kode til at virke:
Jeg går ind med id=7 elevnr=7.
Den skal nu loade sub LoadVars og sub ShowEditor. Når jeg så trykker på gem knappen skal den loade sub SaveVars og efterfølgende sub ShowOk (altså med danske ord - den skal først hente felter fra databasen (LoadVars) - skrive dem ind i felter jeg kan ændre i (ShowEditor), når jeg så trykker på gem knappen skal den gemme det der står i felterne i databasen (SaveVars) og så vise et ok (ShowOk))
Den den gør:
Den loader LoadVars og sub ShowEditor. Når jeg trykker på gemknappen loader den ShowElev (som altså kun skal fremkomme når Elevnr ikke er lig med ID) (og det har vi jo konstateret første gang, at det er) Og den har ikke gemt noget i databasen.
Kan I fortælle mig, hvor hulen fejlen er henne?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Profil.asp</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="CSS/Skole.css" rel="stylesheet" type="text/css">
<script type="text/javascript" language="JavaScript1.2" src="Script/stm31.js"></script>
<!--#include file="Beskyt.asp" -->
<style type="text/css">
<!--
.style1 {
font-size: small;
font-weight: bold;
}
.style3 {
color: #999999;
font-weight: bold;
}
.style4 {
color: #993300;
font-size: x-large;
font-weight: bold;
font-style: italic;
}
.style5 {
color: #003399;
font-weight: bold;
}
.style6 {font-size: small}
.style7 {color: #CC0066}
-->
</style>
</head>
<body>
<%
sWhat = trim(Request("ID"))
sPageAction = trim(Request("Action"))
sElevnr = trim(Request("Elevnr"))
sNavn = Trim(Request.Form("Navn"))
sEfternavn = Trim(Request.Form("Efternavn"))
sKlasse = Trim(Request.Form("Klasse"))
sAdresse = Trim(Request.Form("Adresse"))
sPostnr = Trim(Request.Form("postnr"))
sByen = Trim(Request.Form("Byen"))
sTlf = Trim(Request.Form("Tlf"))
sMobil = Trim(Request.Form("Mobil"))
sBdag = Trim(Request.Form("Bdag"))
sEmail = Trim(Request.Form("Email"))
sICQ = Trim(Request.Form("ICQ"))
sMSN = Trim(Request.Form("MSN"))
sInteresser = Trim(Request.Form("Interesser"))
sPic = Trim(Request.Form("Pic"))
if swhat = sElevnr then
if lcase(sPageAction) = "" then
LoadVars
ShowEditor
end if
if lcase(sPageAction) = "save" then
SaveVars
ShowOk
end if
else
LoadVars
ShowElev
end if
Sub ShowEditor
%>
<FORM METHOD="POST" ACTION="Profil.asp?action=save&sWhat=<%=(sWhat)%>&Elevnr=<%=(sElevnr)%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD width=10%>Hej</TD>
<TD><INPUT TYPE="text" NAME="Navn" SIZE="30" VALUE="<% Response.WRite(sNavn) %>"></TD>
<TD><INPUT TYPE="text" NAME="Efternavn" SIZE="30" VALUE="<% Response.WRite(sEfternavn) %>"></TD>
<td width="54%" rowspan="10" valign="top" align="center">
<%
Response.Write "<img src="
Response.Write (sPic)
Response.Write " width=150 height=200 border=0>"
Response.Write "</a></td>"
%>
</TR>
<TR>
<TD width=15%>Du går i:</TD>
<TD><INPUT TYPE="text" NAME="Klasse" SIZE="30" VALUE="<% Response.WRite(sKlasse) %>"></TD>
</TR>
<TR>
<TD width=15%>Du bor:</TD>
<TD><INPUT TYPE="text" NAME="Adresse" SIZE="30" VALUE="<% Response.WRite(sAdresse) %>"></TD>
</TR>
<TR>
<TD width=15%>Du bor:</TD>
<TD><INPUT TYPE="text" NAME="Postnr" SIZE="15" VALUE="<% Response.WRite(sPostnr) %>"></TD>
<TD><INPUT TYPE="text" NAME="Byen" SIZE="30" VALUE="<% Response.WRite(sByen) %>"></TD>
</TR>
<TR>
<TD width=15%>Din telefon ringer hvis jeg trykker:</TD>
<TD><INPUT TYPE="text" NAME="Tlf" SIZE="30" VALUE="<% Response.WRite(sTlf) %>"></TD>
</TR>
<TR>
<TD width=15%>Mobil:</TD>
<TD><INPUT TYPE="text" NAME="Mobil" SIZE="30" VALUE="<% Response.WRite(sMobil) %>"></TD>
</TR>
<TR>
<TD width=15%>Du kom til verden den:</TD>
<TD><INPUT TYPE="text" NAME="Bdag" SIZE="30" VALUE="<% Response.WRite(sBdag) %>"></TD>
</TR>
<TR>
<TD width=15%>Email:</TD>
<TD><INPUT TYPE="text" NAME="Email" SIZE="30" VALUE="<% Response.WRite(sEmail) %>"></TD>
</TR>
<TR>
<TD width=15%>ICQ:</TD>
<TD><INPUT TYPE="text" NAME="ICQ" SIZE="30" VALUE="<% Response.WRite(sICQ) %>"></TD>
</TR>
<TR>
<TD width=15%>MSN:</TD>
<TD><INPUT TYPE="text" NAME="MSN" SIZE="30" VALUE="<% Response.WRite(sMSN) %>"></TD>
</TR>
<TR>
<TD width=15% valign="top">Interesser:</TD>
<TD colspan="2"><textarea rows="15" cols="53" NAME="Interesser"><% Response.WRite(sInteresser)%></textarea></TD>
</TR>
</TABLE>
<BR><BR>
<INPUT TYPE="submit" VALUE="Gem"> <INPUT TYPE="reset" Value="Fortryd"><BR>
<br>
<A HREF="Addresseoversigt.asp">Retur til Adresselisten</A>
</FORM>
<%
End Sub
Sub ShowElev
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD width=10%>Hej</TD>
<TD><% Response.WRite(sNavn) %></TD>
<TD><% Response.WRite(sEfternavn) %></TD>
<td width="54%" rowspan="10" valign="top" align="center">
<%
Response.Write "<img src="
Response.Write (sPic)
Response.Write " width=150 height=200 border=0>"
Response.Write "</a></td>"
%>
</TR>
<TR>
<TD width=15%>Du går i:</TD>
<TD><% Response.WRite(sKlasse) %></TD>
</TR>
<TR>
<TD width=15%>Du bor:</TD>
<TD><% Response.WRite(sAdresse) %></TD>
</TR>
<TR>
<TD width=15%>Du bor:</TD>
<TD><% Response.WRite(sPostnr) %></TD>
<TD><% Response.WRite(sByen) %></TD>
</TR>
<TR>
<TD width=15%>Din telefon ringer hvis jeg trykker:</TD>
<TD><% Response.WRite(sTlf) %></TD>
</TR>
<TR>
<TD width=15%>Mobil:</TD>
<TD><% Response.WRite(sMobil) %></TD>
</TR>
<TR>
<TD width=15%>Du kom til verden den:</TD>
<TD><% Response.WRite(sBdag) %></TD>
</TR>
<TR>
<TD width=15%>Email:</TD>
<TD><% Response.WRite(sEmail) %></TD>
</TR>
<TR>
<TD width=15%>ICQ:</TD>
<TD><% Response.WRite(sICQ) %></TD>
</TR>
<TR>
<TD width=15%>MSN:</TD>
<TD><% Response.WRite(sMSN) %></TD>
</TR>
<TR>
<%
Response.Write "<td width=15% valign=top>Interesser</td>"
Response.Write "<td colspan=2>" & Replace(sInteresser,vbCrlf,"<br>") & " </td></tr>"
%>
</TABLE>
<br><br>
<A HREF="Addresseoversigt.asp">Retur til Adresselisten</A>
<%
End Sub
Sub LoadVars
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\CCOS\nss03.mdb"
Conn.Open DSN
SQL = "Select * FROM Brugere"
Set rs = Conn.Execute(SQL)
if rs.bof = true and rs.eof = true then
Response.Write("Eleven findes ikke!")
else
do until rs.eof = true
if lcase(cstr(rs.fields("Elevnr").value)) = lcase(cstr(sElevnr)) then
sElevnr = Rs.Fields("Elevnr").value
sNavn = Rs.Fields("Navn").value
sEfternavn = Rs.Fields("Efternavn").value
sKlasse = Rs.Fields("Klasse").value
sAdresse = Rs.Fields("Adresse").value
sPostnr = Rs.Fields("postnr").value
sByen = Rs.Fields("Byen").value
sTlf = Rs.Fields("Tlf").value
sMobil = Rs.Fields("Mobil").value
sBdag = Rs.Fields("Bdag").value
sEmail = Rs.Fields("Email").value
sICQ = Rs.Fields("ICQ").value
sMSN = Rs.Fields("MSN").value
sInteresser = Rs.Fields("Interesser").value
sPic = Rs.Fields("Pic").value
exit do
end if
rs.movenext
Loop
end if
rs.Close
set rs = Nothing
set conn = Nothing
End Sub
Sub SaveVars
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\CCOS\nss03.mdb"
Conn.Open DSN
SQL = "Select * FROM Brugere"
Set rs = Conn.Execute(SQL)
if rs.bof = true and rs.eof = true then
Response.Write("Eleven findes ikke!")
else
do until rs.eof = true
if lcase(cstr(rs.fields("Elevnr").value)) = lcase(cstr(sWhat)) then
SQL = "UPDATE Brugere SET " &_
"ElevNr = '" & sElevnr & "', " &_
"Navn = '" & sNavn & "', " &_
"Efternavn = '" & sEfternavn & "', " &_
"Klasse = '" & sKlasse & "', " &_
"Adresse = '" & sAdresse & "', " &_
"postnr = " & spostnr & ", " &_
"Byen = '" & sByen & "', " &_
"Tlf = '" & sTlf & "', " &_
"Mobil = '" & sMobil & "', " &_
"Bdag = '" & sBdag & "', " &_
"Email = '" & sEmail & "', " &_
"ICQ = '" & sICQ & "', " &_
"MSN = '" & sMSN & "', " &_
"Interesser = '" & sInteresser & "'" &_
" WHERE Elevnr = '" & sElevNr & "'"
Set rs2 = Conn.Execute(SQL)
end if
rs.movenext
Loop
end if
rs.Close
set rs = Nothing
set conn = Nothing
End Sub
Sub ShowOK
%>
<B>Ændringerne er gemt</B><p>
<A HREF="Addresseoversigt.asp">Retur til Adresselisten</A>
<%
end Sub
%>
</body>
</html>
