mavera58 adlı üyeden alıntı: mesajı görüntüle
Malumunuz siteme giren ziyaretçilere e-bültene kayıt olmaları için e-mail adresini girmelerini isteyeceğim.Veritabanında ebulten adında tablom mevcut.

Soru Şu: ziyaretçi emailini gireceği bölümüne girmem gereken kodlar vs nedir.yani girilen mail adresini veritabanına nasıl çekerim ?

Aşağıdaki epostamodulu.asp dosyam
    <table cellpadding="0" cellspacing="0">
                <thead>
                <tr>
                    <td width="68%"><div style="width:400px;height:500px;"><span class="style8">
					
					 <%
 

	 ppp = ""

sorgu = "Select distinct(g_eposta) from siparis"
     set liste= Conn.execute(sorgu)
    do until liste.eof 
if cckEmail(liste("g_eposta")) then
ppp = ppp & liste("g_eposta") & ";"
end if
%>
			
					
<% 
i = i + 1
liste.MoveNext
Loop
%>	

					 <%

sorgu = "Select distinct(eposta) from ebulten"
     set liste= Conn.execute(sorgu)
    do until liste.eof 
if cckEmail(liste("eposta")) then
ppp = ppp & liste("eposta") & ";"
end if
%>
			
					
<% 
i = i + 1
liste.MoveNext
Loop
%>							
					</span>
                        <label>
                        <textarea name="textarea" cols="60" rows="15"><%=ppp%></textarea>
                      </label>
</div>

Hala Lazımıdır Bilmem Ama Şu Aşağıdaki şekilde Kullanabilirsiniz.

Uyeol.asp


    <form id="SiparisBilgileriForm" action="uyetamam.asp" method="post">
        <div data-role="fieldcontain">
            <label class="ui-hidden-accessible" for="eposta">eposta</label>
            <input id="eposta" type="text" name="eposta" maxlength="255" placeholder="eposta">
        </div>

        <div data-role="fieldcontain" style="text-align: center;">
            <button type="submit" data-inline="true">Tamam</button>
        </div>
    </form>

    
</body>
</html>
uyetamam.asp
<!-- #include file="baglantidosyan.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<%
eposta=Request.Form("eposta")


set Kontrol=baglanti.execute("Select * from ebulten where Eposta='"&eposta&"'")

if not Kontrol.eof Then

Response.Write("<LI>" & "Bu Kullanıcıda Bir Üye Zaten Var: " & eposta & "</LI>")
else
baglanti.Execute= "INSERT INTO ebulten (Eposta) VALUES ('"&eposta&"')" 

Response.Write("Kayıt Başarılı")
Response.Redirect("default.asp")
end if

%>