<%@LANGUAGE="VBSCRIPT"%> <% 'initialise objects and variables dim conn, strsql, rsuser, strMDBPath set conn=server.createobject("ADODB.Connection") set rsuser=server.createobject("ADODB.Recordset") 'direct connection conn.open GetStockConnStr rsuser.CursorType = 2 'Set the cursor type we are using so we can navigate through the recordset rsuser.LockType = 3 'Set the lock type so that the record is locked by ADO when it is updated aaaa="" cccc="" dddd="" eeee="" aaaa = aaaa +"Robert Burns " else aaaa= aaaa +"Limited" end if rsuser.close 'close resources used aaaa = aaaa +"" strsql = "SELECT * FROM stock where rowid=3" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBRE2") rsuser("OOS")=Request.Form("REOOS2") rsuser.Update aaaa = aaaa + bbbb else aaaa = aaaa +cccc end if rsuser.close 'close resources used strsql = "SELECT * FROM stock where rowid=4" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBLE2") rsuser("OOS")=Request.Form("LEOOS2") rsuser.Update aaaa= aaaa +dddd else aaaa= aaaa +eeee end if rsuser.close 'close resources used aaaa = aaaa +"" strsql = "SELECT * FROM stock where rowid=5" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBRE3") rsuser("OOS")=Request.Form("REOOS3") rsuser.Update aaaa = aaaa + bbbb else aaaa = aaaa +cccc end if rsuser.close 'close resources used strsql = "SELECT * FROM stock where rowid=6" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBLE3") rsuser("OOS")=Request.Form("LEOOS3") rsuser.Update aaaa= aaaa +dddd else aaaa= aaaa +eeee end if rsuser.close 'close resources used aaaa = aaaa +"" strsql = "SELECT * FROM stock where rowid=7" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBRE4") rsuser("OOS")=Request.Form("REOOS4") rsuser.Update aaaa = aaaa + bbbb else aaaa = aaaa +cccc end if rsuser.close 'close resources used strsql = "SELECT * FROM stock where rowid=8" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBLE4") rsuser("OOS")=Request.Form("LEOOS4") rsuser.Update aaaa= aaaa +dddd else aaaa= aaaa +eeee end if rsuser.close 'close resources used aaaa = aaaa +"" strsql = "SELECT * FROM stock where rowid=9" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBRE5") rsuser("OOS")=Request.Form("REOOS5") rsuser.Update aaaa = aaaa + bbbb else aaaa = aaaa +cccc end if rsuser.close 'close resources used strsql = "SELECT * FROM stock where rowid=10" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBLE5") rsuser("OOS")=Request.Form("LEOOS5") rsuser.Update aaaa= aaaa +dddd else aaaa= aaaa +eeee end if rsuser.close 'close resources used aaaa = aaaa +"" strsql = "SELECT * FROM stock where rowid=11" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBRE6") rsuser("OOS")=Request.Form("REOOS6") rsuser.Update aaaa = aaaa + bbbb else aaaa = aaaa +cccc end if rsuser.close 'close resources used strsql = "SELECT * FROM stock where rowid=12" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBLE6") rsuser("OOS")=Request.Form("LEOOS6") rsuser.Update aaaa= aaaa +dddd else aaaa= aaaa +eeee end if rsuser.close 'close resources used aaaa= aaaa+"" strsql = "SELECT * FROM stock where rowid=13" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBRE7") rsuser("OOS")=Request.Form("REOOS7") rsuser.Update aaaa = aaaa + bbbb else aaaa = aaaa +cccc end if rsuser.close 'close resources used strsql = "SELECT * FROM stock where rowid=14" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBLE7") rsuser("OOS")=Request.Form("LEOOS7") rsuser.Update aaaa= aaaa +dddd else aaaa= aaaa +eeee end if rsuser.close 'close resources used aaaa = aaaa +"" strsql = "SELECT * FROM stock where rowid=15" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBRE8") rsuser("OOS")=Request.Form("REOOS8") rsuser.Update aaaa = aaaa + bbbb else aaaa = aaaa +cccc end if rsuser.close 'close resources used strsql = "SELECT * FROM stock where rowid=16" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBLE8") rsuser("OOS")=Request.Form("LEOOS8") rsuser.Update aaaa= aaaa + dddd else aaaa= aaaa + eeee end if rsuser.close 'close resources used aaaa = aaaa + ""+ "" strsql = "SELECT * FROM stocknotes where id=1" rsuser.open strsql, conn if not rsuser.eof Then rsuser("mynotes")=Request.Form("mynotes") rsuser.Update aaaa = aaaa + "" + "

" bbbb="	Regular	Regular	Limited
Limited
" strsql = "SELECT * FROM stock where rowid=1" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBRE") rsuser("OOS")=Request.Form("REOOS") rsuser.Update aaaa = aaaa + "Regular	" else aaaa = aaaa +"Regular	" end if 'close resources used rsuser.close strsql = "SELECT * FROM stock where rowid=2" rsuser.open strsql, conn if not rsuser.eof Then rsuser("Stock")=Request.Form("RBLE") rsuser("OOS")=Request.Form("LEOOS") rsuser.Update aaaa= aaaa +"Limited
Flower of Scotland	Haggis/Nessie	Attendees / Spare	Hog Roast Meat / Veg	David Douglas	Binam Oak	Calendar | Ceilidh
Notes	Updated

" else aaaa = aaaa +"Updated" + "" end if rsuser.close 'close resources used conn.close 'clean up set rsuser=nothing set conn=nothing %>

 

<%=aaaa %>