<%@ Language=VBScript %>
<% 'Declare all variables
dim conn
dim rs
dim strconn
dim strsql
dim Div_ID
dim record_ID
'On Error Resume Next
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("www.kreweofmollybrown.com/db/Inventory.mdb")
record_ID = REQUEST("record_ID")
%>
Carincia Native Nursery
Carencia Native Nursery
16101 Carencia
Lane
▪
Odessa, FL 33556
>
<%
'Setup connection and recordset objects
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
' get the record to fill the updateForm
' Set SQL statement
strSQL = "SELECT * FROM Plants WHERE ID= " & record_ID
'Open the Recordset object and retrieve data
rs.Open strSQL,conn, adOpenStatic
%>
<%
dollars = rs("Price")
%>
