casque
Yeni Üye
Kayıt Tarihi: 17-Nisan-2010
Ülke: Turkiye
Gönderilenler: 2
|
| Gönderen: 13-Eylül-2010 Saat 10:19 | Kayıtlı IP
|
|
|
Selam,
veritabanındaki kayıtlı soruları ekrana yazdırıyorum. Ekrana yazdırdığım soruları update ederek cevapları evet / hayır
olacağından 2 tane radiobutton ekledim. Veritabanına cevap alanı oluşturdum
ve 1 ve 0 ları yazdırmak istiyorum. Mesela 10 sorum var, soruların
şıkları evet / hayır; radiobuttondan seçimleri yaptım, fakat
veritabanına topluca kayıt ettiremedim. MySQL veritabanı kullanıyorum.
Yardımcı yada yol gösterebilirseniz sevinirim.
<%
islem = request.QueryString("islem")
if request.ServerVariables("REQUEST_METHOD") = "POST" then
i = request.form("i")
If Request.form("cevap"&i&"") = "On" Then
StrChecked = "1"
Else
StrChecked = "0"
End If
if request.Form("cevap") = "" then
Response.Redirect("test.asp?islem=hata1")
end if
itm = request.Form("edit")
for each itm in request.Form("edit")
SQL ="SELECT * FROM test WHERE Kimlik = " & itm
Set SQL=ObjConn.Execute("UPDATE test Set tarih=now(),cevap='"&StrChecked&"' where Kimlik="& itm)
next
Response.Redirect ("test.asp?islem=ok")
Response.End
end if
KayitSayisi = 50
KacarliSira = 1
Set ObjTst = ObjConn.Execute("SELECT * FROM test Where status=1 order by Soru asc")
%>
<form name="test" method="POST" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% If ObjTst.EoF and ObjTst.BoF Then %>
<tr>
<td>Lütfen daha sonra tekrar ziyaret ediniz.</td>
</tr>
<% else %>
<tr>
<%
for i=1 to KayitSayisi
If ObjTst.Eof Then Exit For
sirala=sirala+1
if yan=KacarliSira then
response.write ("<tr>")
yan=0
End if
%>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<b><%=sirala%>.</b> <%=ObjTst("soru")%><br />
<input type="radio" name="cevap<%=i%>" value="On"> Evet<br />
<input type="radio" name="cevap<%=i%>" value="On"> Hayır
<INPUT NAME="edit" TYPE="hidden" ID="edit" VALUE="<%=ObjTst("Kimlik")%>">
<INPUT NAME="i" TYPE="hidden" ID="i" VALUE="<%=sirala%>"></span>
</td>
</tr>
</table>
</td>
<%
yan=yan+1
if yan = (KacarliSira+1) then
response.write ("</tr>")
end if
ObjTst.movenext
Next
%>
</tr>
<tr>
<td><input type="submit" name="testbitir" value=" Test Bitir "></td>
</tr>
<% End If %>
</table>
</form>
<br />
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left">
<%
if islem <> "" then
if islem = "hata1" then
Response.Write "<b class=""testikaz"">Evet/Hayır seçimlerini lütfen boş geçmeyiniz!"
elseif islem = "ok" then
Response.Write "<b class=""testikaz"">Katıldığınız için teşekkür ederiz."
end if
end if
%>
</td>
</tr>
</table>
|
ASPTurkiye.com Forum : ASP / ASP.NET
Konu: Veritabanına toplu kayıt sorunu
Aktif Konular
Üye Listesi
Arama
Yardım
Kayıt Ol
Giriş
