<%
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
%>
YORUM SERVİSİ
<%
If islem = "2" Then
%>
Yorumunuz sistemimize kaydedilmiştir. Ancak editör onayından sonra yayınlanacaktır.
Teşekkürler
<%
Else
If islem = "3" Then
%>
Lütfen tüm alanları doldurunuz.
<% End If %>
* Yorumunuz editör onayından sonra yayınlanacaktır.
<% End If %>
<%
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 "
"
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
%>