<%
If Session("login") <> True Then
Response.Redirect "defualt.asp"
End If
if Request.Querystring("id") <> "" then
pid = request.querystring("id")
end if
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("../database/brugere.mdb")
Conn.Open DSN
SQL = "SELECT * From adresser WHERE id like '" & pid & "'"
Set RS = Conn.Execute(SQL)
' Data fra databasen lægges ind i lokale variabler, så de kan indsættes i formularen.
do while NOT RS.EOF
id = RS("id")
Firma = RS("Firma")
Adresse = RS("Adresse")
Post = RS("postnr")
By = RS("city")
Telefon = RS("Telefon")
Email = RS("email")
Hjemmeside = RS("Hjemmeside")
RS.Movenext
Loop
%>
Ret Data</tr>
<table width="300" cellspacing="0">
<form action="retadresser.asp?id=<%=pid%>" method="POST">
<input type="hidden" name="Mode" value="ret">
<tr>
<td> Firma </td>
<td> <input type="text" name="Firma" value="<%=firma%>" size="27"> </td>
</tr>
<tr>
<td> Adresse </td>
<td> <input type="text" name="Adresser" value="<%=adresse%>" size="27"> </td>
</tr>
<tr>
<td> Post </td>
<td> <input type="text" name="Adresser" value="<%=postnr%>" size="27"> </td>
</tr>
<tr>
<td> By </td>
<td> <input type="text" name="By" value="<%=city%>" size="27"> </td>
</tr>
<tr>
<td> Telefon </td>
<td> <input type="text" name="Telefon" value="<%=telefon%>" size="27"> </td>
</tr>
<tr>
<td> E-mail </td>
<td> <input type="text" name="Email" value="<%=email%>" size="27"> </td>
</tr>
<tr>
<td> Hjemmeside </td>
<td> <input type="text" name="Hjemmeside" value="<%=hjemmeside%>" size="27"> </td>
</tr>
<tr>
<td> Send </td>
<td> <input type="submit" value="OK"> </td>
</tr>
</form>
</table>
</tr>
<form action="retadresser.asp" method="post">
<tr>
<td valign="top" height="41" width="701">
<table width="300" bgcolor="000000" cellspacing="1" cellpadding="1">
<tr bgcolor="cdcdcd">
<%
Mode = Request.Form("Mode")
if Mode = "ret" then
' SQL sætning opbygges. Denne sætning bruges til at opdatere data i databasen.
strSQL = "UPDATE adresser SET "
strSQL = strSQL & "Firma = '" & Request.Form("Firma") & "',"
strSQL = strSQL & "Adresse = '" & Request.Form("Adresse") & "',"
strSQL = strSQL & "Postnr = '" & Request.Form("postnr") & "',"
strSQL = strSQL & "city, = '" & Request.Form("city") & "',"
strSQL = strSQL & "Telefon = '" & Request.Form("Telefon") & "',"
strSQL = strSQL & "email = '" & Request.Form("Email") & "',"
strSQL = strSQL & "Hjemmeside = '" & Request.Form("Hjemmeside") & "'"
strSQL = strSQL & "WHERE id = " & pid &" "
Conn.execute strSQL
response.redirect "firmalist.asp"
Conn.Close
Set Conn = nothing
end if
%>
