Dim objRS
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open "Friends", objConn,adopenstatic,adlockoptimistic
objrs.addnew
objrs("name")="katy"
objrs("username")="3433"
objrs("email")="shiraz@s..."
objrs.update
objrs.movefirst
Do While Not objRS.EOF
Response.Write "<B>" & objRS("Name") & "</B><BR>"
       Response.Write objRS("username") & "<BR>"
       Response.Write objRS("email") & ", " & objRS("password")
           Response.Write objRS("lastname") & "<P><HR><P>"
       objrs.movenext
Loop
     objRS.Close
    Set objRS = Nothing

    objConn.Close
    Set objConn = Nothing
%>

Try this

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=whateveryounamedyourdsn"

> -----Original Message-----
> From: Keyvan Janghorbani [mailto:iranwap@y...]
> Sent: Sunday, October 13, 2002 2:54 PM
> To: Access ASP
> Subject: [access_asp] I CANNOT UPDATE MY DB records
> 
>   Dim objRS
>     Set objRS = Server.CreateObject("ADODB.Recordset")
>     objRS.Open "Friends", objConn,adopenstatic,adlockoptimistic
> objrs.addnew
> objrs("name")="katy"
> objrs("username")="3433"
> objrs("email")="shiraz@s..."
> objrs.update
> objrs.movefirst
> Do While Not objRS.EOF
> Response.Write "<B>" & objRS("Name") & "</B><BR>"
>        Response.Write objRS("username") & "<BR>"
>        Response.Write objRS("email") & ", " & objRS("password")
>            Response.Write objRS("lastname") & "<P><HR><P>"
>        objrs.movenext
> Loop
>      objRS.Close
>     Set objRS = Nothing
> 
>     objConn.Close
>     Set objConn = Nothing
> %>
> to unsubscribe send a blank email to leave-access_asp-
> 1112135Q@p...