  VorwortMissionKlinikLeistungenBeispiel OperationenPatientenfragenFür VersicherungAnmeldungWo sind WirKontaktZur Startseite |
|||
|
|
||||
An Error Occured
" &_ ""& strMsg &"
" &_ "Please try again.
" &_ "If problem continue inform the webmaster
" Response.Write (HataMesaj) Err.Clear 'kayit.Close 'veriyolu.Close 'set kayit = nothing 'set veriyolu = nothing Response.End End if End Function On Error Resume Next If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("Leartes") = "0" Then Err.Clear Set VeriYolu = Server.CreateObject("ADODB.Connection") VeriDeyim = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:/947/htdocs/sendental/private/faq.mdb" 'VeriDeyim = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:/htdocs/sendental/private/faq.mdb" VeriYolu.Open(VeriDeyim) HataVar "Database is Not Available" Set kayit = Server.CreateObject("ADODB.Recordset") sqlDeyim = "SELECT * FROM faq WHERE Lang='Deu' ORDER BY ID Desc" kayit.Open sqlDeyim, VeriYolu, 3, 3 HataVar "RecordSet is Not Available" kayit.AddNew HataVar ("Can Not Add to Database") kayit.Fields("SurName")=Request.Form("Surname") kayit.Fields("Name")=Request.Form("Name") kayit.Fields("EMail")=Request.Form("EMail") kayit.Fields("Konu")=Request.Form("Subject") kayit.Fields("Soru")=Request.Form("Question") kayit.Fields("Lang")=Request.Form("Language") kayit.Fields("YN")=Request.Form("No") kayit.Update HataVar "Can Not Update Database" kayit.Close veriyolu.Close set kayit = nothing set veriyolu = nothing Success = 1 Err.Clear Basarili="Your Question successfully Added to our FAQ Database
It will be evaluated
|
|
|||||||||||