%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim strConnection, conn,rs,x,gp strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".\db\jwa_upd.mdb") & ";User Id=pdenny;Password=pdenny;" Set conn = Server.CreateObject("ADODB.Connection") conn.Open strConnection Set rs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT * FROM myTable" rs.open strSQL, conn, 3,3 'end of new set 'set conn=Server.CreateObject("ADODB.Connection") 'conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=195.153.201.132;DATABASE=jwa_upd;UID=pdenny;PWD=pdenny;" 'set rs=Server.CreateObject("ADODB.Recordset") rs.open "SELECT * FROM tbl_proj ORDER BY ID",conn gp=rs.GetRows() %>
| JW Automarine's Project Portfolio |
| Salvage Operations |
| Buoyancy Aid |
| Entertainment And Media |
| Specialist Requirements |
| JW Automarine products are assessed
and registered, complying to EN ISO 9001- 2000 |
| JW Automarine Enterprise Way, Fakenham, Norfolk, England, NR21 8SN Tel. +44 (0)1328 852300 Fax. +44 (0)1328 864222 Email. sales@jwautomarine.co.uk |
|
||||||||||||||||||||||||||||||||||||
![]() |
|