Dear Friend,

First i want to thank you for the help.

Second as you will see i did this code but i have a problem :

1) i want to implement the code as you sent me for this page.
Thats mean i can choose from combo box the vessel and all the other fields will update with the right data from the DB.

2)I want to build the possibility to navigate in the DB as (Next, Priv, First, Last)

3) Need a possibility to add new data, i need to put all the fields.

<%@ Language=VBScript %>


<%dim conn
set conn=Server.CreateObject("ADODB.connection")
conn.Open "dsn=hire"

dim rs,sql
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from VESSEL"
rs.Open sql,conn

dim editAction
editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
editAction = editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
abortEdit = false

' query string to execute Add Record
MM_editQuery = ""


' Movment Of Record
Dim MoveFirst
Dim MoveLast
Dim moveNext
Dim movePrev
Dim Index



' set the record count
hire_total = rs.RecordCount


<P align=center><STRONG><FONT face="Times New Roman"
color=darkslategray size=7>Vessel Table</FONT></STRONG></P>
<HR style="COLOR: blue">

<form method="post" action="<%=MM_editAction%>" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Vessel:</td>
<td> <input type="text" name="vessel" value="<%=rs("vessel")%>" size="32">
<tr valign="baseline">
<td nowrap align="right">Name:</td>
<td> <input type="text" name="name" value="<%=rs("name")%>" size="32">
<tr valign="baseline">
<td nowrap align="right">Bank:</td>
<td> <input type="text" name="bank" value="<%=rs("bank")%>" size="32">
<tr valign="baseline">
<td nowrap align="right">Char:</td>
<td> <input type="text" name="char" value="<%=rs("char")%>" size="32">
<tr valign="baseline">
<td nowrap align="right">&nbsp;</td>
<td> <input type="submit" value="Update Record" id=submit1 name=submit1> </td>
<input type="hidden" name="MM_update" value="form1">
<input type="hidden" name="MM_recordId" value="<%=rs("vessel") %>">



<% rs.Close
set rs=nothing
set conn=nothing %>