<style>
BODY 
	{
		background-color:#FFFFFF;
		margin-bottom:0px;
		margin-left:0px;
		margin-right:0px;
		margin-top:0px;
		font-family:Tahoma;
		font-size:11px;
		color:#515151;
	}
TR,TD 
	{
		font-family:Tahoma;
		font-size:11px;
		color:#515151;
		font-weight:normal;
	}
	.inputumuz
{
	border-right: #a9a8a8 1px solid;
	border-top: #a9a8a8 1px solid;
	border-left: #a9a8a8 1px solid;
	border-bottom: #a9a8a8 1px solid;
	background-image: url(/images/InputArkaPlan.jpg);
	background-repeat: repeat;
	background-position: 100% 50%;
	font-family: "Tahoma" , Verdana;
	font-size: 11px;
	height:16px;
	width:175px;
}
.inputumuzHata
{
	border-right: #FF0000 1px solid;
	border-top: #FF0000 1px solid;
	border-left: #FF0000 1px solid;
	border-bottom: #FF0000 1px solid;
	background-color:#FFAAAA;
	background-position: 100% 50%;
	font-family: "Tahoma" , Verdana;
	font-size: 11px;
	height:16px;
	width:175px;
}
.HataTD
{
	background-color:#FFDDDD;
	border:#FF0000 1px solid;
	padding:50px;
	font-weight:bold;
	color:#FF0000;
	width:50%;
}
.HataTDGenis
{
	background-color:#FFDDDD;
	border:#FF0000 1px solid;
	padding:20px;
	font-weight:bold;
	color:#FF0000;
	width:90%;
}
</style>
<table width="100%" border="0">
<tr>
    <td colspan="4" valign="top"><strong>Bu firma hakkında yazılmış yorumlar </strong></td>
  </tr>
  <tr>
    <td colspan="4" valign="top">
<%
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("<div class='HataTDGenis'>Bu firma hakkında yazılmış yorum bulunmamaktadır. İlk yorum yazan siz olun.</div>")
ELSE

Dim YorumSay
YorumSay = 1
Do While Not YorumRS.Eof
%>
	<table width="100%" border="0" cellspacing="2" cellpadding="2">
      <tr>
        <td bgcolor="#F5F5F5"><%=YorumRS("Yazan")%> (<%=YorumRS("Eposta")%>)</td>
        <td align="right" bgcolor="#F5F5F5"><%=YorumRS("Tarih")%></td>
      </tr>
      <tr>
        <td colspan="2"><%=YorumRS("Mesaj")%></td>
      </tr>
    </table>
	<%
YorumRS.movenext
YorumSay = YorumSay + 1
loop
END IF
%>	</td>
  </tr>
  <tr>
    <td colspan="4" valign="top">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="4" valign="top">
	<table width="60%" border="0" align="center" cellpadding="2" cellspacing="2">
      <tr>
        <td colspan="3" align="center"><strong>YORUM SERVİSİ </strong></td>
        </tr>
        <%
		If islem = "2" Then
		%>
             <tr>
        <td colspan="3" align="center"><div class="HataTDGenis">Yorumunuz sistemimize kaydedilmiştir. Ancak editör onayından sonra yayınlanacaktır. <br /> <br />Teşekkürler</div></td>
        </tr>
        <%
		Else
		
        If islem = "3" Then
		%>
             <tr>
        <td colspan="3" align="center"><div class="HataTDGenis">Lütfen tüm alanları doldurunuz.</div></td>
        </tr>
        <%	End If %>
<form name="yorumservisi" action="YorumServisi.asp?FirmaID=<%=FirmaID%>&islem=1" method="post">
	<%
	Dim tarih
	tarih = Now()
	%>
      <tr>
        <td width="31%">Ad ve Soyadınız </td>
        <td width="1%">:</td>
        <td width="68%"><input type="text" name="gonderen" <% If islem = "3" Then %> class="inputumuzHata" <% Else %> class="inputumuz" <% End If %>/>
		<input type="hidden" name="tarih" value="<%=tarih%>" />
	   <input type="hidden" name="SezonID" value="<%=Session.SessionID%>" /></td>
      </tr>
      <tr>
        <td>E-Posta Adresiniz </td>
        <td>:</td>
        <td><input type="text" name="eposta" <% If islem = "3" Then %> class="inputumuzHata" <% Else %> class="inputumuz" <% End If %>/></td>
      </tr>
      <tr>
        <td valign="top">Yorumunuz</td>
        <td valign="top">:</td>
        <td><textarea name="mesaj" rows="5" cols="10" style="width:174px; height:85px; font-family:Tahoma; font-size:11px;" <% If islem = "3" Then %> class="inputumuzHata"<% End If %>></textarea></td>
      </tr>
           <tr>
        <td colspan="3" align="center"><input type="submit" name="btnAction" id="btnAction" value=" Kaydet " <% If Request.QueryString("SezonID") = Session.SessionID Then %> disabled="disabled" <% End If %>></td>
        </tr>
        </form>
      <tr>
        <td colspan="3" align="center">* Yorumunuz editör onayından sonra yayınlanacaktır. </td>
      </tr>
      <% End If %>
    </table>
	</td>
  </tr>
</table>
<%
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 "<center><font face=""Tahoma"" size=""2""># Uyarı : SessionID Değeri Geçersiz !</center>"
			Response.Write "<center>--------------------------------------------------------------------------------</center>"
			Response.Write "<center><font face=""Tahoma"" size=""2"">Sayfayı Kapatıp - Açıp Tekrar Deneyin !</center>"
			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
%>