Bu firma hakkında yazılmış yorumlar

<% Dim islem Dim Baglanti Dim YorumRS Dim YorumSQL Dim FirmaID islem = Request.QueryString("islem") FirmaID = Request.QueryString("FirmaID") If FirmaID = "" Then FirmaID = "1" End If Set Baglanti = Server.CreateObject("Adodb.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("DB.mdb") Set YorumRS = Server.CreateObject("ADODB.Recordset") YorumSQL = "SELECT * FROM [Yorumlar] WHERE [FirmaID] = '" & FirmaID & "' AND [Onay] = 1" Set YorumRS = Baglanti.Execute(YorumSQL) IF YorumRS.Eof or YorumRS.Bof THEN Response.Write(" Bu firma hakkında yazılmış yorum bulunmamaktadır. İlk yorum yazan siz olun. ") ELSE Dim YorumSay YorumSay = 1 Do While Not YorumRS.Eof %> <%=YorumRS("Yazan")%> (<%=YorumRS("Eposta")%>) <%=YorumRS("Tarih")%> <%=YorumRS("Mesaj")%> <% YorumRS.movenext YorumSay = YorumSay + 1 loop END IF %>

<% If islem = "2" Then %> <% Else If islem = "3" Then %> <% End If %> <% Dim tarih tarih = Now() %> <% End If %> YORUM SERVİSİ Yorumunuz sistemimize kaydedilmiştir. Ancak editör onayından sonra yayınlanacaktır. Teşekkürler Lütfen tüm alanları doldurunuz. Ad ve Soyadınız : class="inputumuzHata" <% Else %> class="inputumuz" <% End If %>/> E-Posta Adresiniz : class="inputumuzHata" <% Else %> class="inputumuz" <% End If %>/> Yorumunuz : class="inputumuzHata"<% End If %>> disabled="disabled" <% End If %>> * Yorumunuz editör onayından sonra yayınlanacaktır.

<% IF islem = "1" THEN If Request.Form("gonderen") = "" or Request.Form("eposta") = "" or Request.Form("mesaj") = "" Then Response.Redirect("YorumServisi.asp?islem=3&FirmaID="&FirmaID&"") Else Dim SezonID SezonID = Trim(Request.Form("SezonID")) IF SezonID <> Session.SessionID THEN Response.Write "# Uyarı : SessionID Değeri Geçersiz !" Response.Write "--------------------------------------------------------------------------------" Response.Write "Sayfayı Kapatıp - Açıp Tekrar Deneyin !" Response.End END IF If Session("Guvenlik")=TRUE Then Response.Redirect("HataMesaji.asp?Mesaj=Guvenlik") Else Session("Guvenlik") = TRUE Dim YorumKaydetRS, YorumKaydetSQL Set YorumKaydetRS = Server.CreateObject("ADODB.Recordset") YorumKaydetSQL = "SELECT * FROM [Yorumlar]" YorumKaydetRS.Open YorumKaydetSQL, Baglanti, 1, 3 YorumKaydetRS.AddNew YorumKaydetRS("yazan") = Request.Form("gonderen") YorumKaydetRS("tarih") = Request.Form("tarih") YorumKaydetRS("eposta") = Request.Form("eposta") YorumKaydetRS("mesaj") = Request.Form("mesaj") YorumKaydetRS("FirmaID") = FirmaID YorumKaydetRS("Onay") = "0" YorumKaydetRS.Update YorumKaydetRS.Close Set YorumKaydetRS=Nothing Response.Redirect("YorumServisi.asp?islem=2&FirmaID="&FirmaID&"&SezonID="&SezonID&"") End If End If END IF Baglanti.Close Set Baglanti = Nothing %>

E-mail adresiniz:
Siteniz:
İsminiz:
Başlık:
:
:
:
:
:
:
Mesajınız: