<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="AjaxProductsDetail2.aspx.vb" Inherits="ASPNetPortal.AjaxProductsDetail2" %> <% Dim ProductId As Integer Dim firstitem As Integer = 0 Dim culture As New System.Globalization.CultureInfo("tr-TR") Dim dvProducts As System.Data.DataView = Nothing Dim dvFrame As System.Data.DataView = Nothing Dim frameid As String = "" Dim paspartucolor As String = "" Dim paspartuborder As String = "" Dim paspartuid As String = "" Dim paspartucolorName As String = "" Dim PaspartuPrice As Double = 0 Dim TotalPrice As Double = 0 Dim SubTotal As Double = 0 Dim temp_wall_color As String = "" Dim StokIskActive As Boolean Dim StokIsk As Integer Dim cnn As New ASPNetPortal.DatabaseDB Dim enabled As Boolean = True If Request.QueryString("id") IsNot Nothing Then ProductId = Request.QueryString("id").ToString() Dim cmd0 As New SqlDataAdapter("GetProductDetails5", cnn.conn) cmd0.SelectCommand.CommandType = CommandType.StoredProcedure cmd0.SelectCommand.Parameters.AddWithValue("@PortalId", PortalId) cmd0.SelectCommand.Parameters.AddWithValue("@ProductId", ProductId) cmd0.SelectCommand.Parameters.AddWithValue("@StokIndirim", StokIsk) cmd0.SelectCommand.Parameters.AddWithValue("@StokIskActive", StokIskActive) If Session("UICulture") Is Nothing Then cmd0.SelectCommand.Parameters.AddWithValue("@LangCode", DefaultLangCode) Else cmd0.SelectCommand.Parameters.AddWithValue("@LangCode", ChkNullEmptyString(Session("UICulture").ToString.Split("-")(0))) End If Dim ds0 As New DataSet cmd0.Fill(ds0) dvProducts = ds0.Tables(0).DefaultView If dvProducts.Count = 0 Then MyRedirect("../error.aspx") End If 'dvRelatedProducts = products.MTD_GetRelatedProducts() 'dvSoldProducts = products.MTD_GetRelatedSoldProducts() End If If Request.QueryString("frameid") IsNot Nothing Then frameid = Request.QueryString("frameid").ToString() End If If Request.QueryString("temp_wall_color") IsNot Nothing Then temp_wall_color = "#" & Request.QueryString("temp_wall_color").ToString() End If If Request.QueryString("paspartuborder") IsNot Nothing Then If Request.QueryString("paspartuborder").ToString() > "0" Then paspartuborder = Request.QueryString("paspartuborder").ToString() If Request.QueryString("paspartuid") IsNot Nothing Then If Request.QueryString("paspartuid").ToString() > "0" Then paspartuid = Request.QueryString("paspartuid").ToString() Dim strSQL0 As String = "Select * from posterpaspartu where ID=@ID" Dim cmd0 As New SqlDataAdapter(strSQL0, cnn.conn) cmd0.SelectCommand.Parameters.AddWithValue("@ID", paspartuid) Dim ds0 As New DataSet cmd0.Fill(ds0) 'Try paspartucolorName = ds0.Tables(0).DefaultView(0)("PaspartuCode") paspartucolor = ds0.Tables(0).DefaultView(0)("paspartucolor") 'Catch ex As Exception ' paspartucolor = "ffffff" ' paspartucolorName = "Beyaz" 'End Try Else paspartuborder = "0" paspartucolorName = "" paspartucolor = "" End If Else paspartuborder = "0" paspartucolorName = "" paspartucolor = "" End If Else paspartuborder = "0" paspartucolorName = "" paspartucolor = "" End If Else paspartuborder = "0" paspartucolorName = "" paspartucolor = "" End If If frameid = "" Then frameid = "01" End If 'frame.ID = frameid 'dvFrame = frame.MTD_Frame() cnn.connectDb() Dim strSQL As String = "Select * from posterframes where FrameCode=@frameid" Dim cmd As New SqlDataAdapter(strSQL, cnn.conn) cmd.SelectCommand.Parameters.AddWithValue("@frameid", frameid) Dim ds As New DataSet cmd.Fill(ds) dvFrame = ds.Tables(0).DefaultView Dim kmt As New SqlCommand("select * from ProductUnits where ProductId=@ProductId", cnn.conn) kmt.Parameters.AddWithValue("@ProductId", ProductId) Dim dr2 As SqlDataReader dr2 = kmt.ExecuteReader Dim B2 As Double = 0 Dim C2 As Double = 0 While dr2.Read B2 = dr2("En") C2 = dr2("Boy") End While Dim D2 As Double = Double.Parse(paspartuborder) Dim E2 As Double = 0 If D2 <> 0 Then Dim id As Integer = Request.QueryString("paspartuid") Dim cmd1 As New SqlCommand("select Price from posterpaspartu where ID=@ID", cnn.conn) cmd1.Parameters.AddWithValue("@ID", id) E2 = cmd1.ExecuteScalar End If Dim cmd3 As New SqlCommand("select glassPrice from PosterSettings", cnn.conn) Dim GP As Double = cmd3.ExecuteScalar Dim cmd4 As New SqlCommand("select workPrice from PosterSettings", cnn.conn) Dim GW As Double = cmd4.ExecuteScalar Dim F2 As Double = 1 Dim G2 As Double = 1 Try F2 = Double.Parse(dvFrame(0)("PricePerCm").ToString().Replace(".", ","), culture) G2 = Double.Parse(dvFrame(0)("Width").ToString().Replace(".", ","), culture) Catch ex As Exception End Try cnn.disconnectDb() Dim newFrameHeight As Double = (C2 + 2 * (D2 + G2 - 0.5)) Dim newFrameWidth As Double = (B2 + 2 * (D2 + G2 - 0.5)) Dim NewDesi As Double = 0 Try NewDesi = (newFrameHeight * newFrameWidth * 4) / 3000 Catch ex As Exception End Try 'Response.Write(float.Parse(dvFrame(0)("PricePerCm").ToString().Replace(".", ","), culture).ToString() + "--" + paspartuborder.ToString()); Dim GlassPrice As Double = ((B2 + (2 * D2) + 1) * (C2 + (2 * D2)) + 1) * GP Dim FramePrice As Double = ((2 * (B2 + C2 + 4 * D2) + G2 * 10) * F2) PaspartuPrice = ((B2 + (2 * D2)) * (C2 + (2 * D2)) * 10) * E2 / 10000 Dim Workmanship As Double = ((B2 + (2 * D2)) * (C2 + (2 * D2))*4) * GW/10000 Dim KDV As Double = (FramePrice + PaspartuPrice + GlassPrice + Workmanship) * 0.17999999999999999 SubTotal = FramePrice + PaspartuPrice + GlassPrice + Workmanship + KDV 'SubTotal1 = 0.85 * (FramePrice + PaspartuPrice + GlassPrice + Workmanship + KDV) 'TotalPrice = SubTotal1 + Double.Parse(dvProducts(0)("SatisFiyati").ToString().Replace(".", ","), culture) TotalPrice = SubTotal + CalcKdvDahil(dvProducts(0)("SatisFiyati") * dvProducts(0)("Rate"), dvProducts(0)("KdvRate")) If Request.QueryString("type") IsNot Nothing Then ProductId = Request.QueryString("id").ToString() Dim cart As New ASPNetPortal.ShoppingCartDB Dim cartId As String = GetShoppingCartId() Dim sbDescription As New StringBuilder() sbDescription.Append("Çerçeve:(# " & frameid & " ," & dvFrame(0)("Material").ToString() & "," & dvFrame(0)("Type").ToString() & ")") If paspartuid <> "" Then sbDescription.Append("
Paspartu:( " & Convert.ToString(Integer.Parse(paspartuborder)) & " cm," & paspartucolorName & "( " & ")") Else sbDescription.Append("
Paspartu: (Yok)") End If Dim sbAttributes As New StringBuilder() sbAttributes.Append(frameid & ",") sbAttributes.Append(Integer.Parse(paspartuborder) & ",") Dim i As Integer 'i = cart.AddItem(cartId, 0, ProductId, 0, 1, sbDescription.ToString, sbAttributes.ToString, SubTotal1) i = cart.AddItem(cartId, 0, ProductId, 0, 1, "
" & sbDescription.ToString & "
", sbAttributes.ToString, SubTotal - KDV, NewDesi) 'i = cart.AddItem(cartId, 0, ProductId, 0, 1, "
" & sbDescription.ToString & "
", sbAttributes.ToString, 0) If i = 0 Then Response.Redirect(BaseUrl & "/store/cart.aspx?add=no", True) ElseIf i = 2 Then Response.Redirect(BaseUrl & "/store/cart.aspx?add=no1", True) Else Response.Redirect(BaseUrl & "/store/cart.aspx", True) End If End If 'Response.Write(Total.ToString()); %> <%--
"") then %> bgcolor="<%=temp_wall_color%>" <% end if %>--%>
&intSize=400" style="border:<%=paspartuborder*5%>; margin:<%=Convert.ToInt32(paspartuborder) * 10 %>px;" />
<%----%> <%-- <% If enabled Then%> <% Else%> <% End If%> <%----%>
Ürünün Çerçeveli Ebatları :
<%=Convert.ToString(newFrameWidth)%> x <%=Convert.ToString(newFrameHeight)%> cm.
  Çerçeve : (# <%=frameid%>) <%=MTD_TrueTypeCurrency(FramePrice.ToString(culture))%> TL  
  Paspartu : (<%=Convert.ToString(Integer.Parse(paspartuborder))%> cm <%=paspartucolorName %>) <%=MTD_TrueTypeCurrency(PaspartuPrice.ToString(culture))%> TL  
  Cam info : <%=MTD_TrueTypeCurrency(GlassPrice.ToString(culture))%> TL  
  İşçilik : <%=MTD_TrueTypeCurrency(Workmanship.ToString(culture))%> TL  
  KDV : <%=MTD_TrueTypeCurrency(KDV.ToString(culture))%> TL  
  Çerçeve Fiyatı : <%=MTD_TrueTypeCurrency(SubTotal.ToString(culture))%> TL  
  %15 İndirimli Fiyat : <%=MTD_TrueTypeCurrency(SubTotal1.ToString(culture))%> TL  
  <%=dvProducts(0)("Code15").ToString()%> Fiyatı :<%=MTD_TrueTypeCurrency(dvProducts(0)("SatisFiyati").ToString().Replace(".", ","))%> TL <%If (dvProducts(0)("Indirim").ToString() <> "0") Then%> --%> <%= formatCurTL(CalcKdvDahil(dvProducts(0)("SatisFiyati") * dvProducts(0)("Rate"),dvProducts(0)("KdvRate"))) %> <%If (dvProducts(0)("Indirim").ToString() <> "0") Then%> <% End If%>  
  Toplam Fiyat : <%=MTD_TrueTypeCurrency(TotalPrice.ToString(culture))%> TL  

&Amount=1&frameid=<%=frameid%>&paspartucolor=<%=paspartucolor%>&paspartuid=<%=paspartuid %>&paspartuborder=<%=Convert.ToString(integer.Parse(paspartuborder))%>">Satın Al <%--&Amount=1&frameid=<%=frameid%>&paspartucolor=<%=paspartucolor%>&paspartuid=<%=paspartuid %>&paspartuborder=<%=Convert.ToString(integer.Parse(paspartuborder))%>">Ekle--%>

Kargo sınırlaması nedeniyle bu ürün çerçevelenememektedir.
 <%=dvProducts(0)("ProductName").ToString()%>
 <%=dvProducts(0)("Code15").ToString()%>
 <%=Convert.ToString(double.Parse(B2))%> x <%=Convert.ToString(C2)%> cm.  <%=Convert.ToString(double.Parse(dvProducts(0)("Width").ToString())/10)%> x <%=Convert.ToString(double.Parse(dvProducts(0)("Height").ToString())/10)%> cm.
<%=dvProducts(0)("MarKName").ToString()%>
<%----%>