Codepage = 65001

Set ConnectMySQL = CreateObject("Adodb.Connection")
ConnectMySQL.Open "Driver={MySQL ODBC 3.51 Driver};server=bighaber.com;database=bighaber_haberler;uid=bighaber_habers;pwd=big1357"

Set ConnectMsSQL = CreateObject("Adodb.Connection")
ConnectMsSQL.Open "Driver={SQL Server};server=localhost;database=devletvergisi;uid=devletvergisi;pwd=CRD11AB33"

Set objMySQL = CreateObject("Adodb.RecordSet")
SQL = "Select * from haberler where detay LIKE '%vergi%' or detay LIKE ' vergi ' or detay LIKE ' vergiler ' or detay LIKE ' vergisi ' or detay LIKE ' gelir vergisi ' order by id desc LIMIT 0, 5000"
objMySQL.Open SQL,ConnectMySQL,1,3

Set objMsSQL = CreateObject("Adodb.RecordSet")
SQL = "Select * from news where category=418 and title='"&objMySQL("baslik")&"'"
objMsSQL.Open SQL,ConnectMsSQL,1,3

Do While Not objMySQL.Eof

    If objMsSQL.Eof Then

        objMsSQL.AddNew
        objMsSQL("title") = objMySQL("baslik")
        objMsSQL("seo") = funcSeo(objMySQL("baslik"))
        objMsSQL("text") = objMySQL("detay")
        objMsSQL("photo") = objMySQL("resim1")
        objMsSQL("tags") = Replace(objMySQL("baslik")," ",",")
        objMsSQL("category") = 418
        objMsSQL("date") = Date()
        objMsSQL("status") = True
        objMsSQL("meta_keywords") = Replace(objMySQL("baslik")," ",",")
        objMsSQL("meta_descriptions") = objMySQL("baslik")
        objMsSQL.Update

    End if

objMySQL.Movenext
Loop

objMsSQL.Close
Set objMsSQL = Nothing

objMySQL.Close
Set objMySQL = Nothing

Function funcSeo(formdata)

      formdata = Replace(formdata," ","-")
      formdata = Replace(formdata,"ı","i")
      formdata = Replace(formdata,"ğ","g")
      formdata = Replace(formdata,"ü","u")
      formdata = Replace(formdata,"ş","s")
      formdata = Replace(formdata,"ö","o")
      formdata = Replace(formdata,"ç","c")
      formdata = Replace(formdata,"Ğ","G")
      formdata = Replace(formdata,"Ü","U")
      formdata = Replace(formdata,"Ş","S")
      formdata = Replace(formdata,"İ","I")
      formdata = Replace(formdata,"Ö","O")
      formdata = Replace(formdata,"Ç","C")
      formdata = Replace(formdata,"/","")
      formdata = Replace(formdata,"""","")
      formdata = Replace(formdata,"'","")
      formdata = Replace(formdata,"’","")
      formdata = Replace(formdata,"“","")
      formdata = Replace(formdata,"”","")
      formdata = Replace(formdata,".","")
      formdata = Replace(formdata,",","")
      formdata = Replace(formdata,":","")
      formdata = Replace(formdata,";","")
      formdata = Lcase(formdata)
      funcSeo = formdata

End Function