<%
Function HataVar(strMsg)
If Err.Number <> 0 Then
HataMesaj="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='Eng' 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
"
end if
end if
%>
Þen Dental
Introduction
