|
 |
| |
ไม่สามารถลบข้อมูลได้........ ช่วยหน่อยคับ Response.flush Response.Buffer = True Function |
| |
 |
|
|
 |
 |
|
<%
Response.flush
Response.Buffer = True
Function SQLQuote(var)
If InStr(var, "'") <> 0 Then
var = Replace(var, "'", "''")
End If
SQLQuote = var
End Function
Function ConnectDB()
If Err.Number <> 0 Then
ConnectDB = True
Else
ConnectDB = False
End If
End Function
Dim MyDB
Dim MyDSN
Dim MySQL
Dim MyRS
Dim MCode
ID=Request.QueryString("ID")
MCode=Request.QueryString("MCode")
PCode=Request.QueryString("PCode")
If ConnectDB = True Then
DelTraining()
Public Function DelTraining()
Set MyDB = Server.CreateObject("ADODB.Connection")
MyDSN = "dsn=Production;uid=srathee;pwd=advantage;"
MyDB.open MyDSN
MyDB.Execute "DELETE * FROM Monthplan WHERE MCode" & MCode
Set MyRS = MyDB.execute (MySQL)
End Function
End If
%>
|
 |
 |
 |
 |
| Date :
15 เม.ย. 2548 12:21:17 |
By :
M@C |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Error หมดเลย ใช้ MySQL เป็นฐานข้อมูล
|
| |
|
|
| |
| Date :
15 เม.ย. 2548 12:21:59 |
By :
M@C |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 00
|
