% method = Request.ServerVariables("REQUEST_METHOD") If method = "POST" Then set objConn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("KoliFiyatHesap.mdb") objConn.Open DSNtemp UrunId = Request.form("urun") KapakId = Request.form("kapak") Boy = Request.form("boy") En = Request.form("en") Yuk = Request.form("yuk") i = 0 if UrunId > 3 then SQL= "SELECT Fiyat, Aciklama FROM Fiyat WHERE UrunId = " & Request.Form("urun") else SQL= "SELECT Fiyat, Aciklama FROM Fiyat WHERE UrunId = " & Request.Form("urun") end if set objRS=objconn.execute(SQL) else set objConn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("KoliFiyatHesap.mdb") objConn.Open DSNtemp UrunId = 1 KapakId = 1 Boy = 0 En = 0 Yuk = 0 i = 0 SQL= "SELECT Fiyat, Aciklama FROM Fiyat WHERE UrunId = 1" set objRS=objconn.execute(SQL) end if %>
|