<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Database Test Page

<% Dim cnBookingsDatabase Dim RecordCnt Dim CustName Dim rsPLName Dim rsPLcat Dim rsSCM Dim rscult Dim PLtyp Dim PLProp PLName = Request.QueryString("MOD") Set rsPLName = Server.CreateObject("ADODB.RecordSet") Set rsPLcat = Server.CreateObject("ADODB.RecordSet") Set rsSupplier = Server.CreateObject("ADODB.RecordSet") Set rsSCM = Server.CreateObject("ADODB.RecordSet") DBConnect SQL to get the top level subjects. strSQL = "SELECT * FROM [T_customer] WHERE [id] = " & customer_Name & ";" set custName=cnBookingsDatabase.Execute(strSQL) %>

"Bookings"

<% Response.Write custName.Fields("Customer_Name") %>

<% if Not custName.EOF Then custName.MoveFirst Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsPLName.Close Set rsPLName = Nothing Set rsPLcat = Nothing Set rsSupplier = Nothing Set rsSCM = Nothing Response.Write "

" 'Response.Write "
" Response.Write "

" %>

" Response.Write "Customer Name:" Response.Write "

" Response.Write custName.Fields("Customer_Name") Response.Write "