Profil: serkan_cs | DonanımHaber Forum

Şimdi Ara

@serkan_cs

Takip Et 1 takipçi

Özel Mesaj

Çavuş

06 Ekim 2010
Tarihinde Katıldı

Takip Ettikleri
0 üye

Görüntülenme
Toplam: 2 (Bu ay: 0)

Fırsat Ekle

Gönderileri

Tümü (18)

Sadece Konular (18)

Sadece Bağlantılar (0)

serkan_cs (serkan coşkun) · Network altına konu açtı. 12 yıl

bilgisayarlar internete geç bağlanıyor

Yanıt Yok

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · İşlemci altına konu açtı. 12 yıl

pentium inside işlemci konusunda acil yardım

5 Yanıt

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · Asp / Asp.NET altına konu açtı. 13 yıl

Parası ile asp alışveriş sepeti yapacak arkadaş

1 Yanıt

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · Asp / Asp.NET altına konu açtı. 13 yıl

aspciler yardıma ihtiyacım var

iyi geceler

arkadaşlar ne olur yardım edin çıldırmak üzereyim asp dilini kullanarak site yapmaya çalışıyorum alışveriş sepetinde problem var internetten kollarını aldığım alışveriş sepetinde action=ekle action=bak ve action= sil gibi şeyler var ne manaya geldiklerini anladım ama action= bak çalışıyor ama action= ekle çalışmıyor sayfaya hib bir şey eklemiyor kodları kopyalıyorum bi yardımcı olursanız minnettar olurum.

If Action="ekle" then
no=Request.QueryString("no")
urunisim=Request.QueryString("urunisim")
adet=Request.QueryString("adet")
fiyat=Request.QueryString("fiyat")
CartItems = Session("CartItems")
TempArray = Session("Cart")
NewCartItems=CartItems+1
Dim TempArray2()
ReDim TempArray2(NewCartItems,3)
For I = 0 to CartItems
TempArray2(I,0)=TempArray(I,0)
TempArray2(I,1)=TempArray(I,1)
TempArray2(I,2)=TempArray(I,2)
TempArray2(I,3)=TempArray(I,3)
Next
TempArray2(NewCartItems,0)=no
TempArray2(NewCartItems,1)=urunisim
TempArray2(NewCartItems,2)=adet
TempArray2(NewCartItems,3)=fiyat
Session("Cart") = TempArray2
Session("CartItems")=NewCartItems
Response.Write "<br>Ürünü Eklediniz.!<br><br>"
End If

If Action="sil" Then
Item=Request.QueryString("Item")

K=Int(Item)

TempArray = Session("Cart")
CartItems = Session("CartItems")
NewCartItems=CartItems-1

'Dim TempArray2()

ReDim TempArray2(NewCartItems,3)
N=0
For I = 0 to CartItems
If I<>K Then
TempArray2(N,0)=TempArray(I,0)
TempArray2(N,1)=TempArray(I,1)
TempArray2(N,2)=TempArray(I,2)
TempArray2(N,3)=TempArray(I,3)
N=N+1
End If
Next

Session("Cart") = TempArray2
Session("CartItems")=NewCartItems
Response.Write "<br>Ürünü Sildiniz.!<br><br>"
End If

End If

If Action="bak" Then

TempArray3 = Session("Cart")
CartItems = Session("CartItems")

If CartItems=0 then
Response.Write "<br>Sepetiniz Boş Durumda !<br><br>"
Else %>

1 Yanıt

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · Asp / Asp.NET altına konu açtı. 13 yıl

asp alışveriş sepetini mail atma

merhaba arkadaşlar siteme alışveriş sepeti ekledim ama bu sepetdeki ürünleri satın al diyince belirlediğim mail adresine mail olarak düşmesini istiyorum bana bir yardıncı olabilirmisiniz.

kollar:

bular sepete düşen ürünleri gösteriyor

bu kodların altında da mail gönderme kodu var onunla bunu entegre etmem lazım

<HTML><HEAD>
<meta http-equiv="Content-Language" content="tr">

<TITLE>Reva Alışveriş Sepeti</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1254">

<LINK href="images/style.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY bgcolor="#F0F0F0">
<div align="center">
<center>
<TABLE height="18" cellSpacing=0 cellPadding=0 width=612
bgColor=#f0f0f0 border=1 bordercolorlight="#FFFFFF" style="border-collapse: collapse" bordercolor="#FFFFFF" bordercolordark="#FFFFFF">
<TBODY>
<TR>
<TD vAlign=top height="18" width="612" bgcolor="#FFFFFF" bordercolordark="#FFFFFF" bordercolor="#C0C0C0">
<p align="center"><font face="Verdana" size="1" color="#FF0000">ALIŞVERİŞ
SEPETİNİZ</font></TD></TR>
<TR>
<TD vAlign=top height="128" width="612" bgcolor="#FFFFFF" bordercolordark="#C0C0C0" bordercolor="#C0C0C0" bordercolorlight="#FFFFFF">
<p align="center"><font face="Verdana" size="1"> <%
For Each key in Request.Cookies("download_box")
x=x+1
keyy=Request.Cookies("download_box")(key)
%></font><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=55132406&url=urungoster.asp?olay=goster&id=<%=key%>" data-href="urungoster.asp?olay=goster&id=<%=key%>"><font color="#2A368D"><%=Keyy%></font></a><font color="#2A368D">
<br>
<%Next%>
<br>
<%if Request.Cookies("download_box")="" then%> <font size="2" face="Verdana">Alışveriş Sepetiniz Boş..
<%else%> </font> </font>
<font face="Verdana"><font size="2">
<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=55132406&url=sepetim.asp?cookie=sil" data-href="sepetim.asp?cookie=sil"><font color="#FF0000">Sepeti Boşalt</font></a></font><font size="2" color="#FF0000">
<%end if%>
<%
budosya = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

if Request("cookie")="sil" then
For Each key in Request.Cookies
Response.Cookies(key) = ""
Response.Cookies(key).Expires = Now-1
Next
end if
if Request.QueryString<>"" then Response.Redirect(budosya)
%> </font></font></TD></TR></TBODY></TABLE>
</center>
</div>
</BODY></HTML>

iletişim formu

<%
If Request.querystring("Send") <> "" Then
msg_txt = "<font face=""Tahoma"" size=""2""><b>Yeni İletişim Formu</b>"
msg_txt = msg_txt & "<br><br><b>İsim:</b> " & Request.form("FromName")
msg_txt = msg_txt & "<br><b>Email:</b> " & Request.form("From")
msg_txt = msg_txt & "<br><b>Firma:</b> " & Request.form("Firma")
msg_txt = msg_txt & "<br><b>Telefon:</b> " & Request.form("Phone")
msg_txt = msg_txt & "<br><br><b>Mesajınız:</b><br>" & Request.form("mesaj")
msg_txt = msg_txt & "</font>"

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.mail.com"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "mail@mail.com"
Mail.Subject = "İletişim Formu"
Mail.IsHTML = True
Mail.Body = msg_txt

On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajınız Gönderilemedi.<br>" & Err.Description
else
msg = "Mesajınız Alınmıştır."
End If
End If
%>
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>İletişim</title>
<style type="text/css">
td{
font-family: Tahoma;
font-size: 11px;
font-weight: bold;
padding: 2 5 2 0
}
input,textarea{
font-family: Tahoma;
font-size: 11px;
width: 500px;
}
.style1 {color: #33CCFF}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#3366CC" vlink="#666666" alink="#996600">
<p> </p>
<h1 align="center"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=55132406&url=index.html" data-href="index.html"><span class="style1">internet</span><span>Lokantaları</span></a></h1>
<table cellpadding="0" cellspacing="0" align="center">
<form action="iletisim.asp?send=1" method="post">
<tr>
<td colspan="2" align="center" style="padding-bottom:15"><font size="3" face="Tahoma">İLETİŞİM </font></td>
</tr>
<tr><td width="63">İsim</td>
<td width="453"><input type="Text" name="FromName"></td>
</tr>
<tr><td>Email</td>
<td><input type="Text" name="From"></td>
</tr>
<tr>
<td>Adres</td>
<td><input type="Text" name="Firma"></td>
</tr>
<tr><td>Telefon</td>
<td><input type="Text" name="Phone"></td>
</tr>
<tr><td>Mesajınız<br></td>
<td><textarea name="mesaj" rows="4"></textarea></td>
</tr>
<tr><td colspan="2" align="right"><input type="Submit" value="Gönder" style="width:50px"></td></tr>
<%If Request.querystring("Send") <> "" Then%>
<tr><td colspan="2" align="center"><%=msg%></td></tr>
<%End If%>
</form>
</table>
<p>
<div id="apDiv1">

</body>
</html>

yukarıdaki sepete düşen siparişleri bu iletişim formu ile belirlediğim mail adresine düşmesini istiyorum yardım ederseniz çok minnettar olurum. teşekkürler...

bu kodları entegre etmenize gerek yok bildiğiniz bir şekilde de sepeti mail göndereme işlemi yapabiiriz

Yanıt Yok

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · Asp / Asp.NET altına konu açtı. 13 yıl

veritabanı kullanan site

2 Yanıt

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · İkinci El Araç / Oto İlanları ve Her Türlü Oto Ekipmanları altına konu açtı. 13 yıl

eski araba meraklılarına

Yanıt Yok

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · Projeler altına konu açtı. 14 yıl

web sayfaları hakkında bir sorum var

3 Yanıt

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · Web Domain - Domain Alım Satım altına konu açtı. 14 yıl

www. yazınca siteye girmiyor acil

3 Yanıt

Yanıtla

Favorilere Ekle

serkan_cs (serkan coşkun) · Otomobil ve Otomotiv Dünyası Genel altına konu açtı. 14 yıl

cnr tuning show 2011 bilet

5 Yanıt

Yanıtla

Favorilere Ekle

Hakkında

Konum: İstanbul,Bahçelievler

Forum İmzası:

imzadediğin nedirki BENİM SÖZÜM SENETTİR.

Temel Bilgiler ve İstatistikler

Aktiflik: Şu anda DH'de değil
Son Giriş: 12 yıl önce
Son Mesaj Zamanı: 12 yıl
Mesaj Sayısı: 60
Gerçek Toplam Mesaj Sayısı: 62
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 4.593 (Bu ay: 73)
Toplam aldığı artı oy sayısı: 0 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Donanım / Hardware

Mesajları

İkinci El Referansları