- دانلود فتوشاپ
- خرید بلیط هواپیما
- چاپ خودکار
- : سابروتین آباکوس
- گروه صنعتی اسکندری
- چاپ یوی دی تی اف
- بلیط هواپیما استانبول
- بانک لباس
- هاست ووکامرس
- چاپ یادداشت تبلیغاتی
- سیستم کشت عمودی
- خرید اتریوم
- خرید گیفت کارت اپل
- خرید ووچر پرفکت مانی
- بهترین آموزش سی شارپ
- سرور مجازی ایران
فوري فوري
- شروع کننده موضوع golmehr
- تاریخ شروع
<head>
<meta http-equiv="Content-Language" content="en-us">
</head>
<%
p = request.querystring("d1")
dim adoconn
set adoconn = server.CreateObject("ADODB.connection")
adoconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
adoconn.Open
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "SELECT * from ozv ", adoconn , 2, 3
do while not rs.eof
%><br><p align="left">
<b>Name: </b><%
response.write rs("name")%> <%
response.write rs("lname")%><br><p align="left"><b>Birth: </b><%
response.write rs("email")
%>
<form method="POST" action="test11.asp">
<p align="left"><select size="1" name="D1">
<option selected value="yes">yes</option>
<option value="no">no</option>
</select><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<p align="left"><br><hr>
<p align="center"></p>
<%
if p="yes" then
rs("read")="true"
rs.update
else
rs.delete
end if
rs.movenext
loop
rs.Close
adoconn.Close
set adoconn=nothing
%>
<meta http-equiv="Content-Language" content="en-us">
</head>
<%
p = request.querystring("d1")
dim adoconn
set adoconn = server.CreateObject("ADODB.connection")
adoconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
adoconn.Open
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "SELECT * from ozv ", adoconn , 2, 3
do while not rs.eof
%><br><p align="left">
<b>Name: </b><%
response.write rs("name")%> <%
response.write rs("lname")%><br><p align="left"><b>Birth: </b><%
response.write rs("email")
%>
<form method="POST" action="test11.asp">
<p align="left"><select size="1" name="D1">
<option selected value="yes">yes</option>
<option value="no">no</option>
</select><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<p align="left"><br><hr>
<p align="center"></p>
<%
if p="yes" then
rs("read")="true"
rs.update
else
rs.delete
end if
rs.movenext
loop
rs.Close
adoconn.Close
set adoconn=nothing
%>
آخرین مطالب مجیدآنلاین
-
-
-
-
-
-
-
-
-
-
