Object required: ''

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''

code:

<!-- #include file="adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/members.mdb")&";pwd=losen"

visa = "SELECT * FROM asp WHERE ID = " & Trim(Request.QueryString("id")) & " "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<form method="POST" action="redigera2.asp">
<input type="hidden" name="AD" value="<% =Request.QueryString("ID") %>">
<input type="text" size="30" name="fornamn" value="<% =RecSet("EPOST") %>">
<br>
<input type="text" size="30" name="efternamn" value="<% =RecSet("NAMN") %>">
<p>
<textarea cols="30" name="adress"><% =RecSet("INLAGG") %></textarea>
<p>
<input type="submit" value="Uppdatera">
</form>
<%RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
<p><a href="default.asp">Redigera annan post!</a>

Du skapar aldrig något recordset.

addera = "SELECT * FROM asp WHERE ID = " & request.QueryString("id") 

set RecSet = Connect.execute(addera)
%>

<form method="POST" action="redigera2.asp"> 
<input type="hidden" name="AD" value="<% =Request.QueryString("ID") %>"> 
<input type="text" size="30" name="fornamn" value="<% =RecSet("EPOST") %>"> 
<br> 
<input type="text" size="30" name="efternamn" value="<% =RecSet("NAMN") %>"> 
<p> 
<textarea cols="30" name="adress"><% =RecSet("INLAGG") %></textarea> 
<p> 
<input type="submit" value="Uppdatera"> 
</form> 
<%RecSet.CLOSE 
Connect.CLOSE 
Set RecSet = nothing 
Set Connect = nothing 
%> 
<p><a href="default.asp">Redigera annan post!</a>

Du hade också blandat ihop variabelnamnen visa och addera

Tack LarsG!

Funkade utmärkt!