Hej fedtmuledk !
jeg har ikke tjekket om dette virker men prøv det af.
1. Først skifter du din kode ud med dette :
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../forhandler/kunder.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from forhandler order by postnr"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
%>
<table>
<tr>
<td width="128" align="left" bgcolor="#FFFFFF" height="17"><font color="#FF0000" size="2"><%response.Write rs("firmanavn")%></b></font></td>
<td width="115" align="left" bgcolor="#FFFFFF" height="17"><font color="#FF0000" size="2"><%response.Write rs("firma")%></b></font></td>
<td width="124" align="left" bgcolor="#FFFFFF" height="17"><font color="#FF0000" size="2"><%response.Write rs("adresse")%></td>
<td width="38" align="left" bgcolor="#FFFFFF" height="17"><font color="#FF0000" size="2"><%response.Write rs("postnr")%></td>
<td width="85" align="left" bgcolor="#FFFFFF" height="17"><font color="#FF0000" size="2"><%response.Write rs("city")%></td>
<td width="68" align="left" bgcolor="#FFFFFF" height="17"><font color="#FF0000" size="2"> </td>
<td width="96" align="left" bgcolor="#FFFFFF" height="17"><font color="#FF0000" size="2"><%response.Write rs("email")%></td>
<td width="96" align="left" bgcolor="#FFFFFF" height="17"><font color="#FF0000" size="2"> <a href="del.asp?Id=<%= Rs("Id")%>">Slet</a>
| <a href="ret.asp?Id=<%= Rs("Id")%>">Ret</a></font></td>
</tr>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
2. Så laver du en side der heder del.asp og indsætter dette:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../forhandler/kunder.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Delete * from forhandler Where Id = " & Request("Id") & "'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Conn.Execute(strSQL)
response.redirect "dinside.asp"
%>
3. Så laver du en side der hedder ret.asp og insætter denne kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../forhandler/kunder.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Update forhandler Set firmanavn='"&request.form("firmanavn")&"', firma='"&request.form("firma")&"', adresse='"&request.form("adresse")&"', postnummer='"&request.form("postnummer")&"', city='"&request.form("city")&"', telefonnummer='"&request.form("telefonnummer")&"', email='"&request.form("email")&"' Where Id = " & Request("Id") & "'"
Conn.Execute(strSQL)
response.redirect "dinside.asp"
%>
<form method="POST" action="ret.asp">
<input type=hidden name=id value=<%=id%>>
<input type="text" name="firmanavn" size="20" value="<%=Request("firmanavn")%>"><br>
<input type="text" name="firma" size="20" value="<%=Request("firma")%>"><br>
<input type="text" name="adresse" size="20" value="<%=Request("adresse")%>"><br>
<input type="text" name="postnummer" size="20" value="<%=Request("postnummer")%>"><br>
<input type="text" name="city" size="20" value="<%=Request("city")%>"><br>
<input type="text" name="telefonnummer" size="20" value="<%=Request("telefonnummer")%>"><br>
<input type="text" name="email" size="20" value="<%=Request("email")%>"><br>
<p><input type="submit" value="Opdater" name="B1"</p>
</form>
Hvis du ikke kan få det til at virke kan du sende mig
din database så skal jeg få det til at virke for dig.
websam@worldonline.dk
/WebSam
