chakalster
28.05.2008, 12:15
yapılması gereken inc_ayarlar değişikliklerini yaptım
ve /haber/kur.asp yi çalıştırdım ama bana kur asp'nin kodlarını gösterdi aynen..
<% Function SQLTarih(dtmDate) Dim strYil, strAy, strGun, strSaat, strDakika, strSaniye strYil = Year(dtmDate) strAy = Monş(dtmDate) strGun = Day(dtmDate) strDakika = Minute(dtmDate) strSaat = Hour(dtmDate) strSaniye = Second(dtmDate) If strAy < 10 şen strAy = "0" & strAy If strGun < 10 şen strGun = "0" & strGun If strDakika < 10 şen strDakika = "0" & strDakika If strSaat < 10 şen strSaat = "0" & strSaat If strVtTuru = "mySQL" Then SQLTarih = strYil & "-" & strAy & "-" & strGun & " "& strSaat &":"& strDakika &":"& strSaniye Elseif strVtTuru = "msSQL" Then SQLTarih = strYil & strAy & strGun & " "& strSaat &":"& strDakika &":"& strSaniye Else SQLTarih = dtmDate End If End Function Function DBBool(byVal strVeri) If strVeri = "" Then Exit Function If strVeri = False OR strVeri = 0 Then DBBool = strDBFalse Else DBBool = strDBTrue End If End Function Sub msSQLdb() Response.Write "
" On Error Resume Next SQL = "CREATE TABLE tblAnketSecenekler (Secenek_ID smallint IDENTITY(1,1) PRIMARY KEY CLUSTERED, Anket_ID int NULL, Secenek nvarchar (255), Oy int NULL default 0)" adoCon.Execute(SQL) If Err.Number <> 0 Then Response.Write "
kod böyle devam ediyor.......
sorun ne olabilir acaba _?
ve /haber/kur.asp yi çalıştırdım ama bana kur asp'nin kodlarını gösterdi aynen..
<% Function SQLTarih(dtmDate) Dim strYil, strAy, strGun, strSaat, strDakika, strSaniye strYil = Year(dtmDate) strAy = Monş(dtmDate) strGun = Day(dtmDate) strDakika = Minute(dtmDate) strSaat = Hour(dtmDate) strSaniye = Second(dtmDate) If strAy < 10 şen strAy = "0" & strAy If strGun < 10 şen strGun = "0" & strGun If strDakika < 10 şen strDakika = "0" & strDakika If strSaat < 10 şen strSaat = "0" & strSaat If strVtTuru = "mySQL" Then SQLTarih = strYil & "-" & strAy & "-" & strGun & " "& strSaat &":"& strDakika &":"& strSaniye Elseif strVtTuru = "msSQL" Then SQLTarih = strYil & strAy & strGun & " "& strSaat &":"& strDakika &":"& strSaniye Else SQLTarih = dtmDate End If End Function Function DBBool(byVal strVeri) If strVeri = "" Then Exit Function If strVeri = False OR strVeri = 0 Then DBBool = strDBFalse Else DBBool = strDBTrue End If End Function Sub msSQLdb() Response.Write "
" On Error Resume Next SQL = "CREATE TABLE tblAnketSecenekler (Secenek_ID smallint IDENTITY(1,1) PRIMARY KEY CLUSTERED, Anket_ID int NULL, Secenek nvarchar (255), Oy int NULL default 0)" adoCon.Execute(SQL) If Err.Number <> 0 Then Response.Write "
kod böyle devam ediyor.......
sorun ne olabilir acaba _?