%@LANGUAGE="VBSCRIPT"%>
<%
dim MM_javiconn_STRING, strMDBPath
set MM_javiconn_STRING=server.createobject("ADODB.Connection")
strMDBpath = Server.MapPath("..\database\london1.mdb")
MM_javiconn_STRING.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath
Dim Recordset1__MMColParam
$courseid=1"
If (Request.QueryString("ID") <> "") Then
Recordset1__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_javiconn_STRING
Recordset1.Source = "SELECT * FROM cart WHERE ID = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
London Academy student reviews | student success | london academy tutors | photos & news
| |
|
|
|
| |
Copyright London Academy of Media, Film & TV@1996-2013 |