<%@ LANGUAGE = VBScript%><%Option Explicit
Dim SourceDir, fso, Indent, nl, SrcDrLen, tmp, Title,oConn,oRs,filePath,RecID
Dim id,Speaker,Location,Date,Source,Note,qryStr,DatePosted
nl=vbCrLf
Indent=0
Const ForReading = 1
RecID=Request.QueryString("ID")
SourceDir=Server.MapPath("./")
Set fso = CreateObject("Scripting.FileSystemObject")
Set SourceDir = fso.GetFolder(SourceDir)
SrcDrLen=Len(SourceDir.Path)+2
' Create ADO Connection Component to connect
filePath = Server.MapPath("Adm_ThuyetPhap.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
%>
Record Updated
<%
id=Request.QueryString("ID")
title=Request.QueryString("Title")
Speaker=Request.QueryString("Speaker")
Location=Request.QueryString("Location")
Date=Request.QueryString("Date")
Source=Request.QueryString("Source")
Note=Request.QueryString("Note")
DatePosted=Request.QueryString("DatePosted")
Set oRs = oConn.Execute("Update ThuyetPhap Set title=""" & title & """,Speaker=""" & Speaker & """,Location=""" & Location & """,[Date]=""" & Date & """,Source=""" & Source & """,[Note]=""" & Note & """,DatePosted=#" & DatePosted & "# Where id=" & id & ";")
oConn.Close
Response.Redirect "http://thientongvietnam.net/audio/Adm_Listmaintenance.asp"
%>