<% Dim strSQL,objExec Set ConnDBF = Server.CreateObject("ADODB.connection") ConnStr= "Driver=Microsoft Visual Foxpro Driver; " + _ "UID=;SourceType=DBC;SourceDB=C:\ASP\Data\Data.DBC;Exclusive=No; Collate=Machine;NULL=YES;DELETED=NO;BACKGROUNDFETCH=NO;" ConnDBF.Open ConnStr ,1,3 strSQL = "" strSQL = strSQL &"INSERT INTO employee " strSQL = strSQL &"(SSOID,TAXID,NATION,BIRTHDAY) " strSQL = strSQL &"VALUES " strSQL = strSQL &"('"&Request.Form("txtSSOID")&"','"&Request.Form("txtTAXID")&"', '"&Request.Form("txtNATION")&"' ,'"&Request.Form("txtTBIRTHDAY")&"') " Response.write(strSQL) Set objExec = ConnDBF.Execute(strSQL) If Err.Number = 0 Then Response.write("Save Done.") Else Response.write("Error Save ["&strSQL&"] ("&Err.Description&")") End If ConnDBF.Close() Set objExec = Nothing Set ConnDBF = Nothing %>
Quote:Request.Form("txtSM_TAXID")
strSQL = strSQL &"('"&cdate(Request.form("txtBIRTHDAY"))&"') "
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง