tage gammel data ud og opdatere den fra database
Hej alle sammen der ud...Når jeg bruger nedenstående script sker der ikke noget... den loader en tom side...
Er der nogen der kan hjælpe??
<-- netlunden.asp -->
<% if lund = "profil" then
'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("netlunden.asp")
end if
%>
<%
If Request.Form("update") <> "" Then
strError = ""
strFornavn = Trim(Request.Form("Fornavn"))
strEfternavn = Trim(Request.Form("Efternavn"))
strBrugernavn = Trim(Request.Form("Brugernavn"))
strPassword = Trim(Request.Form("Password"))
strGade = Trim(Request.Form("Gade"))
strNr = Trim(Request.Form("Nr"))
strPost = Trim(Request.Form("Post"))
strBy = Trim(Request.Form("By"))
strLand = Trim(Request.Form("Land"))
strMobil = Trim(Request.Form("Mobil"))
strTele = Trim(Request.Form("Tele"))
strEmail = Trim(Request.Form("Email"))
End If
If Len(strEfternavn) = 0 Then
strError = "Du skal skrive dit Efternavn!"
End If
If Len(strError) = 0 Then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM bruger WHERE id = " & session("id")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/datalunden.mdb")
rs.Open strSQL, strDSN, 1, 3
If NOT (rs.BOF Or rs.EOF) Then
rs.update
rs("fornavn") = Strfornavn
rs("efternavn") = strefternavn
rs("brugernavn") = strbrugernavn
rs("password") = strpassword
rs("gade") = strgade
rs("nr") = strnr
rs("post") = strpost
rs("by") = strby
rs("land") = strland
rs("mobil") = strmobil
rs("tele") = strtele
rs("email") = stremail
rs.update
End If
rs.Close
Set rs = Nothing
Response.Redirect("net-lunden.asp?lund=profil")
Else
strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
strMode = "add"
End If
%>
<%
If Request.Form("update") = "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../db/datalunden.mdb")
Conn.Open DSN
' Hent fra databasen afhængig af værdien id fra URL
SQL = "Select * From bruger Where Id = " & session("id")
Set rs = Conn.Execute(SQL)
strFornavn = rs("Fornavn")
strEfternavn = rs("Efternavn")
strGade = rs("Gade")
strNr = rs("Nr")
strPost = rs("Post")
strBy = rs("By")
strLand = rs("Land")
strMobil = rs("Mobil")
strTele = rs("Tele")
strEmail = rs("Email")
strLundmail = rs("Lundmail")
strBrugernavn = rs("Brugernavn")
strPassword = rs("Password")
end if
%>
Rediger din profil:
<form method="post" action="netlunden-profil.asp">
<table width="80%">
<tr>
<td colspan="2" align="center"><%=strError%>
</td>
</tr>
<tr>
<td width="30%"><font class="lille">Fornavn</font></td>
<td width="70%"><input type="text" name="fornavn" value="<%=rs("fornavn")%>"></font></td>
</tr>
<td width="30%"><font class="lille">Efternavn</font></td>
<td width="70%"><input type="text" name="efternavn" value="<%=rs("efternavn")%>"></font></td>
</tr>
<tr>
<td><font class="lille">Brugernavn</font></td>
<td><input type="text" name="brugernavn" value="<%=rs("brugernavn")%>"></td>
</tr>
<tr>
<td><font class="lille">Password</font></td>
<td><input type="password" name="password" value="<%=rs("password")%>"></td>
</tr>
<tr>
<td><font class="lille">Gade</font></td>
<td><input type="text" name="gade" value="<%=rs("gade")%>"></td>
</tr>
<tr>
<td><font class="lille">Nr</font></td>
<td><input type="text" name="nr" value="<%=rs("nr")%>"></td>
</tr>
<tr>
<td><font class="lille">Postnr.</font></td>
<td><input type="text" name="post" value="<%=rs("post")%>"></td>
</tr>
<tr>
<td><font class="lille">By</font></td>
<td><input type="text" name="by" value="<%=rs("by")%>"></td>
</tr>
<tr>
<td><font class="lille">Land</font></td>
<td><input type="text" name="land" value="<%=rs("land")%>"></td>
</tr>
<tr>
<td><font class="lille">Mobiltelefon</font></td>
<td><input type="text" name="mobil" value="<%=rs("mobil")%>"></td>
</tr>
<tr>
<td><font class="lille">Fastnetstelefon</font></td>
<td><input type="text" name="tele" value="<%=rs("tele")%>"></td>
</tr>
<tr>
<td><font class="lille">Email</font></td>
<td><input type="text" name="email" value="<%=rs("email")%>"></td>
</tr>
<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="submit" value="Opdater" id=submit1 name=submit1></td>
</tr>
</table>
</form>
<%
rs.close
set rs = nothing
end if %>
